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
- Verrouiller une cellule excel - Guide
- Excel cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
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.
