Sub RemplacerCelluleVilleZeros() Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If plagecell = “” Or plagecell = ” ” Then plagecell.Value
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
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
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
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
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
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
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
