Cocher une case avec VBA [Résolu]

Messages postés
33
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
19 août 2019
- - Dernière réponse :  Amar - 14 août 2019 à 14:41
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.
Afficher la suite 

1 réponse

Meilleure réponse
1
Merci
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 If
fin:
Application.EnableEvents = True
End Sub

Cordialement.

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 58271 internautes nous ont dit merci ce mois-ci

nathan027
Messages postés
33
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
19 août 2019
-
PARFAIT !!!!! MERCI
bonjour gyrus,
Votre code est fort intéressent !
Mais comment le modifier si au lieu de cocher D10, j'écris dans la cellule D10 "ABS" ou "Abs" ou "abs" et seulement celà pour que B10 et C10 se cochent automatiquent?
Autrement rien ne se passe.
Bonjour gyrus,
çà y est j'ai trouvé.
Il suffit de mettre
If( Target = "ABS" or Target="Abs" or Target="abs")

Merci.
Commenter la réponse de gyrus