Magic_Doctor
XLDnaute Barbatruc
Rebonsoir,
J'ai stipulé, en début de macro, certaines conditions que voici :
If [OnlyUX2].Value = 0 Then
Set cellule1 = [NbUXWanted2b]
Set cellule2 = [NbUXWanted2c]
Set cellule3 = [NbUXWanted2d]
Set cellule4 = [NbUXWanted2a]
Else
Set cellule1 = [NbUXWanted2a]
Set cellule2 = [NbUXWanted2b]
Set cellule3 = [NbUXWanted2c]
Set cellule4 = [NbUXWanted2d]
End If
"OnlyUX2" étant le nom d'une cellule dans la feuille, qui peut prendre la valeur 1 ou 0.
Dans cette même feuille se trouve une cellule qui se nomme "UXvsUY2" et qui, quand on y introduit une donnée, déclenche une macro événementielle.
Or, je voudrais que la deuxième condition s'applique aussi quand on introduit une nouvelle donnée dans la cellule "UXvsUY2". Ce qui donnerait en langage "ubuesque" :
If [OnlyUX2].Value = 0 Then
Set cellule1 = [NbUXWanted2b]
Set cellule2 = [NbUXWanted2c]
Set cellule3 = [NbUXWanted2d]
Set cellule4 = [NbUXWanted2a]
ElseIf [OnlyUX2].Value = 1 Or QuelqueChoseQuiSePasseDans [UXvsUY2] Then
Set cellule1 = [NbUXWanted2a]
Set cellule2 = [NbUXWanted2b]
Set cellule3 = [NbUXWanted2c]
Set cellule4 = [NbUXWanted2d]
End If
Est-ce possible ?
J'ai stipulé, en début de macro, certaines conditions que voici :
If [OnlyUX2].Value = 0 Then
Set cellule1 = [NbUXWanted2b]
Set cellule2 = [NbUXWanted2c]
Set cellule3 = [NbUXWanted2d]
Set cellule4 = [NbUXWanted2a]
Else
Set cellule1 = [NbUXWanted2a]
Set cellule2 = [NbUXWanted2b]
Set cellule3 = [NbUXWanted2c]
Set cellule4 = [NbUXWanted2d]
End If
"OnlyUX2" étant le nom d'une cellule dans la feuille, qui peut prendre la valeur 1 ou 0.
Dans cette même feuille se trouve une cellule qui se nomme "UXvsUY2" et qui, quand on y introduit une donnée, déclenche une macro événementielle.
Or, je voudrais que la deuxième condition s'applique aussi quand on introduit une nouvelle donnée dans la cellule "UXvsUY2". Ce qui donnerait en langage "ubuesque" :
If [OnlyUX2].Value = 0 Then
Set cellule1 = [NbUXWanted2b]
Set cellule2 = [NbUXWanted2c]
Set cellule3 = [NbUXWanted2d]
Set cellule4 = [NbUXWanted2a]
ElseIf [OnlyUX2].Value = 1 Or QuelqueChoseQuiSePasseDans [UXvsUY2] Then
Set cellule1 = [NbUXWanted2a]
Set cellule2 = [NbUXWanted2b]
Set cellule3 = [NbUXWanted2c]
Set cellule4 = [NbUXWanted2d]
End If
Est-ce possible ?