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 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 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
Ce code vérifiera simplement toutes les cellules de la sélection et convertira tous les nombres négatifs en positifs. Sélectionnez simplement une plage et exécutez ce code.