Généralité sur le VBA

Vous êtes ici: ExcelCorpo > Généralité sur le VBA

Par Élie Chancelin
13 janvier 2022
19:02

Généralité sur le VBA

Toutes les ressources nécessaires pour prendre en main et maîtriser les Généralités sur la programmation VBA Excel.

Afficher toutes les lignes et colonnes, Excel VBA

Sub AfficherLigneColonne() Columns.EntireColumn.Hidden = Fаlѕе Rows.EntireRow.Hidden = False End Sub Au lieu d’afficher les lignes et les colonnes manuellement, vous pouvez utiliser ce code pour

Désactiver les sauts de page, Excel VBA

Sub DesactiverSautsPage() Dіm wb As Wоrkbооk Dim wkѕ Aѕ Wоrkѕhееt Aррlісаtіоn.SсrееnUрdаtіng = False For Eасh wb In Aррlісаtіоn.Wоrkbооkѕ For Eасh Sht In wb.Wоrkѕhееtѕ Sht.DіѕрlауPаgеBrеаkѕ =

Remplacer les cellules vides par des zéros, Excel VBA

Sub RemplacerCelluleVilleZeros() Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If plagecell = « » Or plagecell = » » Then plagecell.Value

Supprimer les signes négatifs, Excel VBA

Sub SupprimerSignesNegatifs( ) Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Sélection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = Abs(plagecell) End If Next plagecell

Convertir des nombres romains en nombres arabes, Excel VBA

Sub convertirNombre ( ) Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If Not Worksheet Function.IsNonText(plagecell) Then plagecell .Value = Worksheet

Ajouter des alphabets de A à Z dans une plage, Excel VBA

Sub ajouterAlphabet1() Dim i As Integer For i = 65 To 90 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub Sub ajouterAlphabet2() Dim i

Calculer la racine cubique, Excel VBA

Sub calculerracinecubique() Dim plagecell As Range Dim i As Integer For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = plagecell ^(1 / 3) Else

Calculer la racine carrée, Excel VBA

Sub racenecarre() Dim plagecell As Range Dim i As Integer For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = Sqr(plagecell) Else End If Next

Ajouter un numéro dans tous les numéros, Excel VBA

Sub ajouternumero() Dim plagecell As Range Dim i As Integer i = InputBox(« Entrer les nombre à multiple », « Entrée necessaire ») For Each plagecell In Selection If

Multiplier toutes les valeurs par un nombre, Excel VBA

Sub ajouternombre() Dim plagecell As Range Dim i As Integer i = InputBox(« Entrer les nombre à multiple », « Entrée necessaire ») For Each plagecell In Selection If

Supprimer les décimales des nombres, Excel VBA

Sub SupprimerDecimales() Dim lResult As Long Dim lnumber As Double Dim plagecell As Range For Each plagecell In Selection plagecell.Value = Int(plagecell) plagecell.NumberFormat = « 0 »

Supprimer l’apostrophe d’un nombre, Excel VBA

Sub supprimerApostrophes() Selection.Value = Selection.Value End Sub Si vous avez des données numériques où vous avez une apostrophe avant chaque nombre, vous exécutez ce code

Nombre de mots de la feuille de calcul entière, Excel VBA

Sub NombreMots() Dim WordCnt As Long Dim plagecell As Range Dim S As String Dim N As Long For Each plagecell In ActiveSheet.UsedRange.Cells S =

Supprimer un caractère de la sélection, Excel VBA

Sub Supprimercaractere() Dim plagecell Aѕ Rаngе Dіm rc Aѕ Strіng rс = InputBox(« Character(s) tо Rерlасе », « Entrer la valeur ») Fоr Each plagecell In Selection Sеlесtіоn.Rерlасе Whаt:=rс,

Convertir en cas de phrase, Excel VBA

Sub convertirphrase() Dim plagecell As Range For Each plagecell In Selection If WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(Left(plagecell, 1)) & LCase(Right(plagecell, Len(plagecell) – 1)) End If