Mettre en surbrillance les nombres négatifs, Excel VBA

Sub surbrillancenombresnegatifs()
Dim Rng As Range
For Each Rng In Selection
If WorksheetFunction.IsNumber(Rng) Then
If Rng.Value < 0 Then
Rng.Font.Color= -16776961
End I f
End I f
Next
End Sub

Sélectionnez une plage de cellules et exécutez ce code. Il vérifiera chaque cellule de la plage et mettra en surbrillance toutes les cellules où vous avez un nombre négatif.

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