Cocher une case avec VBA
Résolu
nathan027
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Amar -
Amar -
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.
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.
1 réponse
-
Bonjour,
Essaie avec ce code placé dans le module de la feuillePrivate 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 If
fin:
Application.EnableEvents = True
End Sub
Cordialement.
