Bouclage Code VBA impossible

Bonjour à tous, j'espère que vous allez bien en ces temps difficile...

J'ai besoin de vos lumières...

Très facile... mais je coince...

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2")) Is Nothing Then Range("B2:C2").ClearContents End If End Sub

---

Je veux que ce code se répercute en boucle... donc verifier A3 et effacer au besoin B3,C3

ça doit être très simple mais... je n'y arrive pas... j'ai tenté aussi avec Target.Adresse mais étant donné que ce n'est que des valeurs absolue...



Merci d'avance !!!

Salut salut,

Si je comprends bien tu veux exécuter cette macro (supprimer les valeurs de "B2" et "C2") en changeant de page ? Ou seulement lorsque tu cliques sur "A2" dans une page précise ?
Si tu peux ajouter quelques précisions ça me permettrait de t'aider.

Cordialement
Midou Samidou

Hello,
si j'ai bien compris la requête , c'est à dire effacer le contenu des cellules adjacentes (colonnes B,C) à une cellule modifiée dans une plage donnée alors tu peux essayer quelque chose comme ceci par exemple :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A10")) Is Nothing Then Target.Offset(0, 1).ClearContents ' Colonne B Target.Offset(0, 2).ClearContents ' Colonne C End If End Sub

---

Hello,

@Jurrasic Un grand grand merci tu as tapé dans le mille !
@Samidou Merci d'avoir pris la peine d'y regarder !!

Je met en résolu et vous souhaite une très bonne journée !!