Cocher une case avec VBA Résolu/Fermé

Question

Bonjour 

J'aurais besoin de votre aide s'il vous plait.

Voilà ce que j'aimerai faire :

Lorsque je coche la cellule D10, je voudrais que B10 et C10 se coche automatiquement (ou qu'un X apparaisse). je sais le faire avec une formule "SI" mais mon soucis c'est qu'on peut facilement effacer la formule.
Autre contrainte j'aimerai que ce code soit fonctionnelle sur toute la colonne en gros de D10 à D1000 (voir plus)

Je résume 

Si je coche D10, B10 et C10 se coche aussi,
Si je coche D99, B99 et C99 se coche aussi.

J'espère que vous pourrez m'aider.

Merci beaucoup d'avance.

gyrus · Answer

Bonjour,

Essaie avec ce code placé dans le module de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)    On Error GoTo fin    Application.EnableEvents = False    If Not Application.Intersect(Target, Range("D10:D" & Rows.Count)) Is Nothing Then        If Target <> "" Then            Target.Offset(, -2).Resize(, 2) = "X"        Else            Target.Offset(, -2).Resize(, 2).ClearContents        End If    End Iffin:    Application.EnableEvents = TrueEnd Sub
Cordialement.

Cocher une case avec VBA

1 réponse

Discussions similaires