Supprimer les signes négatifs, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x