XL 2016 Code vba case à cocher et code vba insérer un calendrier dans une cellule

[telemarrk]

Bonsoir,

J’ai créé un tableau de communication avec deux codes VBA, l'un me permet d'insérer un calendrier dans les colonnes "K à P", l'autre mais une croix lorsque je cliquer dans les colonnes "Oui" et "Non" des colonnes G et H

Je n'arrive pas à appliquer le premier code sur les colonnes "C, V, AA,"

et le second code sur les autres colonnes "Usage/oui-non"

Quelqu'un peut-il m'aider?

Merci

 

[Phil69970]

Bonjour @telemarrk

Je te propose ce fichier

Merci de ton retour

 

[telemarrk]

Bonjour Phil69970,

Ce la fonctionne pour les dates

Mais je voulais également pour les "X" dans les colonnes "Oui/Non" à savoir les colonnes "D,E,R,S,X,Y,AC et Ad"

Merci

 

[telemarrk]

C'est bon j'ai réussi.
J'ai dupliqué et remplacé le code suivant :

If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target = IIf(Target = "X", "", "X")
If Range("G" & Target.Row) = "X" Then Range("H" & Target.Row) = ""
End If
If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target = IIf(Target = "X", "", "X")
If Range("H" & Target.Row) = "X" Then Range("g" & Target.Row) = ""
End If

par les lettres citées ci-dessous

Encore merci pour ton aide.

 

[Phil69970]

Bonjour @telemarrk

J'avais pas vu pour les colonnes suivantes

Mais je voulais également pour les "X" dans les colonnes "Oui/Non" à savoir les colonnes "D,E,R,S,X,Y,AC et Ad"

Pourquoi D et E ?

J'ai fait pour les colonne G, H, R, S, X, Y, AC et AD
De plus j'ai bloqué les X pour les 7 premières lignes

Merci de ton retour

 

[Phil69970]

Bonjour Jean Marie

Certes cela fonctionne mais je ne comprends pourquoi faire un double clic quand un simple clic fait l'affaire.

 

[telemarrk]

Merci Phil69970

Cela fonctionne et ton code est plus simple que le mien.

Chti160, un simple clic me suffit

Encore merci