Vérifier une cellule qui posséde une valeur négative
Résolu
r4944
Messages postés
136
Statut
Membre
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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.
