Vérifier une cellule qui posséde une valeur négative [Résolu/Fermé]

Signaler
Messages postés
122
Date d'inscription
vendredi 2 octobre 2015
Statut
Membre
Dernière intervention
3 mars 2017
-
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
-
Bonjour,

je voudrais savoir comment faire pour vérifier une cellule qui contienne une valeur negative et aprés appliquer quelques changements

j'ai commencé par ce code la mais j'ai eu une erreur dans l'instruction qui doit verifier la valeur



dim a as integer
Dim MaPlage As Range
For a = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range("A:AP").Rows(a)

If (ActiveSheet.Cells(a, 37).Value) < 0 Then

ActiveSheet.Cells(a, 31).Interior.Color = vbYellow

ActiveSheet.Cells(a, 14).Interior.Color = vbYellow


End If
Next a


1 réponse

Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
42
Bonjour,

Voici ton code corrigé :

Sub Code()

Dim a as integer
 Dim MaPlage As Range

For a = 2 To ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range(Cells(2, 1), Cells(a, 42))

If ActiveSheet.Cells(a, 37).Value < 0 Then

 ActiveSheet.Cells(a, 31).Interior.Color = vbYellow
             
 ActiveSheet.Cells(a, 14).Interior.Color = vbYellow

End If
Next a


Cordialement.