XL 2013 Cocher / Décocher toutes les Checkbox

[YANOU38]

Bonjour à tous,
Ma Feuille "PG" fonctionnait en Cochant/Décochant les Checkbox (checkbox 1 à 20 colonne W) pour Afficher/Masquer les Feuilles.
J'ai voulu ajouter une Checkbox pour Afficher/Masquer toutes les checkbox d'un seul coup.
Tout semble fonctionner, mis à part qu'après ça, je n'accède plus à la chekbox 1 ?
Je ne comprends pas pourquoi.
Merci pour votre aide.

 

[Phil69970]

Bonjour @YANOU38

Passe cettet ligne de False à True :

Enabled : True

et met au début de ton code pour les yeux c'est mieux !!!

Application.ScreenUpdating = False

*Merci de ton retour

@Phil69970

 

[YANOU38]

Bonjour Phil69970,
La solution était là.
Grand MERCI !

YANOU38150 (pas bien loin...)

 

[Hasco]

bonjour,

une façon de le faire, par boucle for :

Private Sub CheckBox21_Click()
    Dim i As Integer
    Dim valeur As Boolean
    ' Valeur de la checkbox21
    valeur = CheckBox21
    '
   ' Bloquer la mise à jour de l'écran
   Application.ScreenUpdating = False
    '
    ' Parcourir les checkbox de la feuille par leur noms
    For i = 1 To 20
        Me.OLEObjects("CheckBox" & i).Object.Value = valeur
    Next
    '
    ' Rétablir la mise à jour écran
    Application.ScreenUpdating = True

End Sub

 

[YANOU38]

Re-bonjour Phil69970,
J'étais tellement content que cela fonctionne que j'en ai oublié la suite du message.
Avec

Application.ScreenUpdating = False

Merci pour mes yeux !

 

[Hasco]

Bonjour,

J'étais tellement content que cela fonctionne que j'en ai oublié la suite du message.

Que votre enthousiasme ne rende pas les autres interventions invisibles

Cordialement

 

[YANOU38]

Re-bonjour,
L'utilité de passer par une boucle for (ou juste un autre moyen) ?
Une écriture plus condensée peut-être...le temps d'exécution me semble être le même...
Cordialement.

 

[Phil69970]

Bonjour le fil

@YANOU38

Je suis étonné que tu mettes ton propre post en résolu car tu n'as rien trouvé du tout et ton post ne correspond en rien à la réponse que tu souhaitais.
La logique est de valider la réponse qui correspond à la question que tu as posé.
Le but est de montrer qu'une réponse a été trouvée et montrer au forum laquelle correspond à ton problème et donc à ta question.

@Phil69970

 

[Hasco]

Re,

L'utilité de passer par une boucle for (ou juste un autre moyen) ?

C'est au choix de chacun.
Moins de lignes à écrire

Cordialement

 

[YANOU38]

Re,
Je viens de mettre le #2 en solution.
Je ne voulais froisser personne.
En tout cas merci pour votre aide.

Cordialement

 

[ChTi160]

Bonjour le Fil
Histoire de vous saluer !
Ou alors !

Private Sub CheckBox21_Click()
    Dim i As Integer
   ' Bloquer la mise à jour de l'écran
   Application.ScreenUpdating = False    '
    ' Parcourir les checkbox de la feuille par leur nom
    For i = 1 To 20
        Me.OLEObjects("CheckBox" & i).Object.Value = CheckBox21
    Next
    ' Rétablir la mise à jour écran
    Application.ScreenUpdating = True
End Sub

Bonne fin de Journée
Jean marie