Discussion :

[kev6540]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[Samidou Midou]

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

[jurassic pork]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kev6540]

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 !!