CASE A COCHER AUTOMATIQUE

0

Salut les amis,

J’ai un petit souci en VBA. J’ai une checkbox principale (appelée CheckBox_Tous_LesDevis) et 15 autres checkbox le tout sur une feuille Excel.  J’essaie d’écrire un code VBA qui, une fois la checkbox principale est cochée, les 15 autres se cochent automatiquement. Aussi lorsque je décoche la checkbox principale, les autres suivent. Voici le code que j’ai écrit :

Private Sub CheckBox_Tous_LesDevis_click()

Dim i As Integer

If CheckBox_Tous_LesDevis = True Then

  For i = 1 To 15

  Feuil3.Controls("checkbox" & i) = True

  Next i

  Else

  End If

A l’exécution, je reçois le message d’erreur :

compile error :

sub or fonction not define

en remplaçant  feuil3.Controls("checkbox" & i) par Feuil3.CheckBox& i, j’obtiens toujours la même erreur.

j’ai grand besoin de votre aide. Fichier exemple https://www.cjoint.com/c/KAnbdtlqddS


matsniper Posté le 13 janvier 2021, 02:04
par matsniper
Répondre
0

Bonjour,

A tester, j'ai renommé la case "Tous"

https://mon-partage.fr/f/2oRZ0a2R/

Posté le 13 janvier 2021, 07:58
0

Merci cher inconnu, ta solution proposée marche très bien et va dans le sens de ce que je recherche. Effectivement quand je coche le checkbox principal, les autres en dessous se cochent automatiquement. Sans vouloir abuser de ta générosité j'aimerais si possible pouvoir choisir les checkbox qui doivent se cocher une fois la checkbox principale activée. Par exemple je voudrais que les checkbox de 1 à 5 ou de 1 à 10 se cochent dès que la principale est cochée, genre en insérant un code du genre :

dim i as integer

If Tous_LesDevis = True Then

               For i= 1 To 5 ....


              next i

..........................

MERCI

matsniper Posté le 13 janvier 2021, 13:52
par matsniper
-1

Re,

A tester

https://mon-partage.fr/f/0Ls3OnCI/

En fonction de la valeur de la cellule F3 les checkbox se cochent

Posté le 13 janvier 2021, 16:38

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :