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
A voir également:
- Vérifier une cellule qui posséde une valeur négative
- Verifier compatibilite windows 11 - Guide
- Bloquer une cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour,
Voici ton code corrigé :
Cordialement.
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.
