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
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
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
Sub Activerstylereference() If Application.ReferenceStyle = xlR1C1 Then Application.ReferenceStyle = xlA1 Else Application.ReferenceStyle = xlA1 End If End Sub Ce code de macro vous aidera à
Sub ActivateR1C1() If Application.ReferenceStyle = xlA1 Then Application.ReferenceStyle = xlR1C1 Else Application.ReferenceStyle = xlR1C1 End If End Sub Ce code de macro vous aidera à
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 »
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
Sub supprimerespaces() Dim myRange As Range Dim myCell As Range Select Case MsgBox(« You Can’t Undo This Action. » _ & « Save Workbook First? », _ vbYesNoCancel,
Sub convertirformules() Dim MyRange As Range Dim MyCell As Range Select Case _ MsgBox (« Vous ne pouvez pas annuler cette action. » _ & « Enregistrer
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 =
