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
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 »
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
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 =
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с,
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
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
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
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 =
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”
