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.

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 »

Ajouter un symbole d’insertion de degré, Excel VBA

Sub degreeSymbol() Dim plagecellule As Range For Each plagecellule In Selection plagecellule.Select If ActiveCell <> « » Then If IsNumeric(ActiveCell.Value) Then ActiveCell.Value = ActiveCell.Value & « ° »

Supprimer des caractères d’une chaîne, Excel VBA

Public Function supprimerccaracteres(rng As String, cnt As Long) supprimerccaracteres = Right(rng, Len(rng) – cnt) End Function Supprimez simplement des caractères au début d’une chaîne de

Supprimer les espaces des cellules sélectionnées, Excel VBA

Sub supprimerespaces() Dim myRange As Range Dim myCell As Range Select Case MsgBox(« You Can’t Undo This Action. » _ & « Save Workbook First? », _ vbYesNoCancel,

Convertir toutes les formules en valeurs, Excel VBA

Sub convertirformules() Dim MyRange As Range Dim MyCell As Range Select Case _ MsgBox (« Vous ne pouvez pas annuler cette action. » _ & « Enregistrer

Code VBA pour rechercher sur Google

Sub SеаrсhWіndоw32() Dim chromePath As Strіng Dіm ѕеаrсh_ѕtrіng Aѕ String Dim query Aѕ Strіng ԛuеrу = InрutBоx(« Entеr hеrе уоur ѕеаrсh hеrе », « Gооglе Sеаrсh ») search_string =