Microsoft 365 Case à cocher apparait si une autre case est cochée

Staple1600 à dit:

Bonjour le fil

@dacunha
Il ne fallait rien créer manuellement
Voici un mode opératoire détaillé
1) Tu ouvres Excel et tu fais CTRL+N
Cela va te créer un classeur vierge
Dans ce classeur, tu fais ALT+F11 puis Insertion/Module
Dans ce module, tu copies la macro nommée Nouveau_WBK
et tu l'exécutes => tu obtiens alors le classeur de test (avec les deux cases à cocher insérées et le tableau datas créé)
Tu enregistres ce classeur en *.xlsm puis tu fermes Excel.

2) Tu ré-ouvres ce classeur
Normalement tu as deux cases à cocher sur la feuille 1 et le tableau datas sur la feuille 2
Tu vas sur la feuille 2 et tu fais un clic-droit sur l'onglet tu choisis visualiser le code
Regarde la pièce jointe 1216212
Et c'est donc dans le code de la feuille Feuil1 (et non pas dans un module standard) , qu'il faut copier la macro évènementielle nommée Sub Worksheet_Change()

Normalement , ensuite le test doit fonctionner
Si tu cliques sur la case à cocher en B6, un inpuBox doit s'afficher
Idem quand tu cliques en B8

Ce fichier de test ne fonctionne qu'avec ces deux cellules B6 et B8
C'est pour cela qu'on retrouve B6 et B8 inscrits en colonne A du tableau datas

Si tu veux poursuivre le test, ajoute une ligne dans le tableau datas pour la cellule B11 (par exemple)
(en complétant aussi les autres colonnes)
Puis insères manuellement une case à cocher en B11 sur la feuille 1.

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil

@dacunha
Bravo! La persévérance et la curiosité payent toujours 😉

Comme je le disais, c'est juste une ébauche.
Il faut voir maintenant si mon raisonnement sera applicable sur ton fichier réel (avec tes 38 cases à cocher)

L'erreur que tu décris survient quand tu cliques sur quelle case à cocher ?

Cliquez pour agrandir...

Staple1600 à dit:

Re

@dacunha
Remplace le code présent dans la feuille 1 par celui-ci

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Not Intersect(Columns(2), Target) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case Target.CellControl.Type
Case xlTypeCheckbox
If Target.Value = False Then Exit Sub
For i = 3 To [datas].Columns.Count Step 2
x = Target.Address(0, 0)
If IsError(Application.Match(x, Feuil2.ListObjects(1).DataBodyRange.Columns(1), 0)) Then Exit Sub
If Not IsEmpty(Application.VLookup(x, [datas], i, 0)) Then
Range(Application.VLookup(x, [datas], i, 0)) = InputBox(Application.VLookup(x, [datas], i - 1, 0))
End If
Next
Case Else
'
End Select
End If
End Sub

Ensuite ajoute d'autres cases à cocher sur la feuille 1 et remplis le tableau datas en conséquence

Exemple
Regarde la pièce jointe 1216298

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil

@dacunha
Tu as bien remplacé la macro événementielle qui était dans le feuille 1 par le nouveau code que j'ai publié dans le message#50 ?

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour le fil

@dacunha
Donc si tu as bien compris le principe de fonctionnement
Si le tableau [data] est bien rempli
Si les cases à cocher sont dans les bonnes cellules, cela devrait fonctionner.

PS: Cette macro Nouveau_WBK n'était qu'une aide pour créer un fichier exemple.
Une fois 'exemple créé, il faut la supprimer.

NB: je viens d'ouvrir ta PJ de message#48
Ce n'est pas le bon code qui est dans la feuille 1 (qui chez toi se nomme ZCOUP)

Il faut mettre le code VBA que j'ai publié dans le message#50

Cliquez pour agrandir...

Sub decoche_tout()
For Each coche In ActiveSheet.Shapes
    If coche.Name Like "Check*" Then coche.ControlFormat.Value = False
Next coche
End Sub

Staple1600 à dit:

Re

Test OK sur mon PC pour cette macro de RAZ

VB:

Sub R_A_Z()
Dim ws As Worksheet, c As Range
Set ws = Worksheets("ZCOUP")
For Each c In ws.UsedRange
    If Not c.CellControl Is Nothing Then
        If c.CellControl.Type = xlTypeCheckbox Then
            c.Value = False
        End If
    End If
Next c
End Sub

Sinon il faut remplacer (ou adapter) une nouvelle fois la procédure la macro événementielle

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'version du 13/4/25
Dim x
If Not Intersect(Range("B:D"), Target) Is Nothing Then '-< ici modif
If Target.Count > 1 Then Exit Sub
Select Case Target.CellControl.Type
Case xlTypeCheckbox
If Target.Value = False Then Exit Sub
For i = 3 To [datas].Columns.Count Step 2
x = Target.Address(0, 0)
If IsError(Application.Match(x, Feuil2.ListObjects(1).DataBodyRange.Columns(1), 0)) Then Exit Sub
If Not IsEmpty(Application.VLookup(x, [datas], i, 0)) Then
Range(Application.VLookup(x, [datas], i, 0)) = InputBox(Application.VLookup(x, [datas], i - 1, 0))
End If
Next
Case Else
'
End Select
End If
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Je ne sais pas .
Est-ce vraiment nécessaire qu'elles soient masquées ,

Cliquez pour agrandir...