Bonjour,
Je cherche à attribuer une valeur « oui » ou « non » dans la colonne U par rapport à la valeur de la cellule de la colonne B.
Par contre, je voudrais appliquer 2 conditions dans « ElseIf ActiveCell.Value = "Gestion" And ActiveCell.Offset(0, 3).Value = "" » mais j’ai un message d’erreur incompatibilité de type.
Pouvez-vous m’expliquer pourquoi ?
Le code complet ci-dessous :
Merci par avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Range("B1").Select Range(Selection, Selection.End(xlDown)(0)).Select For Each cell In Selection X = X + 1 ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "Inv" Then ActiveCell.Offset(0, 19).Value = "non" ElseIf ActiveCell.Value = "Gestion" And ActiveCell.Offset(0, 3).Value = "" Then ActiveCell.Offset(0, 19).Value = "non" Else ActiveCell.Offset(0, 19).Value = "oui" End If Next
Partager