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.