VBA case à cocher

[Bruno M]

Bonjour à tous,

Je sollicite votre aide pour une programmation sous VBA. J'ai un tableau avec 3 colonne de case à cocher (F, G, H). J'ai réussi à programmer la première colonne G, mais je n'arrive pas à rentrer les 2 autres colonnes dans mon code VBA.

Si quelqu'un aurait une solution, je lui en serais très reconnaissant. Ci-joint le fichier excel à coder. Mille merci.

Bruno

 

[Hervé]

salut 🙂

passe par des union : If Intersect(Target, Union(Range("F3:F30"), Range("g3:g30"))) Is Nothing Then Exit Sub

je te laisse finir

a plus

 

[Bruno M]

Parfait! Merci Hervé. Je ne connaissais pas la fonction Union!!

 

[job75]

Bonsoir Bruno M, Hervé,

Les plages sont contiguës donc écrire :

If Intersect(Target, Range("F3:H30")) Is Nothing Then Exit Sub

Avec des plages non contiguës :

If Intersect(Target, Range("F3:F30,H3:H30")) Is Nothing Then Exit Sub

A+

 

[Bruno M]

Je me permets de vous déranger encore une fois messieurs... Mon problème d'y hier est réglé mais j'en rencontre un autre. Je vous joins le fichier en question au message.
L'idée est que lorsque je coche une case (entrée, plat ou dessert) du feuillet répartition, les compétences se reportent automatiquement sur le feuillet fiche de positionnement. A savoir que les compétences du feuillet répartition cochées en entrée doivent se reporter de la ligne 21 à 30, celles cochées en plat de la ligne 33 à 42 et celles cochées en dessert, de la ligne 45 à 54.

Je n'ai pas rencontré de difficulté par coder les cases cochées en entrée, mais par contre, VBA m'affiche en message d'erreur dès que j'ai codé les cases cochées en plat. Et là, je ne sais pas du tout comment faire.... Vous avez une idée? Merci