Vérifier une cellule qui posséde une valeur négative

Résolu/Fermé
r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 6 nov. 2015 à 16:49
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 6 nov. 2015 à 17:40
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

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
6 nov. 2015 à 17:40
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.
0