Introduction sur le VBA

Vous êtes ici: ExcelCorpo > Introduction sur le VBA

Par Élie Chancelin
13 janvier 2022
17:55

Introduction sur le VBA

Toutes les ressources nécessaires pour prendre en main les bases de la programmation VBA Excel.

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

Convertir en minuscules, Excel VBA

Sub convertirminiscule() Dim plagecell As Range For Each plagecell In Sélection If Application.Worksheet Function.IsText(plagecell) Then plagecell.Value= LCase(plagecell) End If Next End Sub Ce code vous

Convertir en majuscules, Excel VBA

Sub convertirmajuscule() Dim plagecell As Range For Each plagecell In Selection If Application.WorksheetFunction.IsText(plagecell) Then plagecell.Value = UCase(plagecell) End If Next End Sub Sélectionnez les cellules

Supprimer la date de la date et de l’heure, Excel VBA

Sub removeDate() Dim plagecell As Range For Each plagecell In Selection If IsDate(plagecell) = True Then plagecell.Value = plagecell.Value – VBA.Fix(plagecell.Value) End If NextSelection.NumberFormat =

Supprimer l’heure de la date, Excel VBA

Sub supppimerHeure() Dim plagecell As Range For Each plagecell In Selection If IsDate(plagecell) = True Then plagecell.Value = VBA.Int(plagecell.Value) End If Next Selection.NumberFormat = « dd-mmm-yy”

Convertir la date en année, Excel VBA

Sub convertirdate() Dіm tempCell Aѕ Rаngе Sеlесtіоn.Vаluе = Selection.Value For Eасh tempCell In Selection If IѕDаtе(tеmрCеll) = True Thеn Wіth tеmрCеll .Vаluе = Yеаr(tеmрCеll) .NumbеrFоrmаt

Convertir la date en jour, Excel VBA

Sub datejour() Dim tempCell As Range Selection.Value = Selection.Value For Each tempCell In Selection If IsDate(tempCell) = True Then With tempCell .Value = Day(tempCell) .NumberFormat

Insérer une plage de temps, Excel VBA

Sub PlageTemps() Dim i As Integer For i = 1 To 24 ActiveCell.FormulaR1C1 = i & « :00 » ActiveCell.NumberFormat = « [$-409]h:mm AM/PM;@” ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0) .Select Next

Activer le style de référence A1, Excel VBA

Sub Activerstylereference() If Application.ReferenceStyle = xlR1C1 Then Application.ReferenceStyle = xlA1 Else Application.ReferenceStyle = xlA1 End If End Sub Ce code de macro vous aidera à

Activer le style de référence R1C1, Excel VBA

Sub ActivateR1C1() If Application.ReferenceStyle = xlA1 Then Application.ReferenceStyle = xlR1C1 Else Application.ReferenceStyle = xlR1C1 End If End Sub Ce code de macro vous aidera à

Texte inversé, Excel VBA

Public Function inverse(ByVal cell As Range) As String inverse = VBA.strReverse(cell.Value) End Function Tout ce que vous avez à faire est d’entrer la fonction « inverse »