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

Phil69970

XLDnaute Barbatruc

• 22 Novembre 2023

• #2

Bonjour @telemarrk

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Calendrier er croix V1.xlsm

  76.5 KB · Affichages: 2

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 23 Novembre 2023

• #3

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

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 23 Novembre 2023

• #4

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.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Novembre 2023

• #5

Bonjour @telemarrk

J'avais pas vu pour les colonnes suivantes

telemarrk à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Calendrier er croix V2.xlsm

  77.9 KB · Affichages: 10

Vote positif 1 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 23 Novembre 2023

• #6

Bonjour Jean Marie

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

 

Vote positif 1 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 23 Novembre 2023

• #7

Merci Phil69970

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

Chti160, un simple clic me suffit

Encore merci

 

Vote positif 0 Vote négatif