XL 2013 Cocher / Décocher toutes les Checkbox

Phil69970

XLDnaute Barbatruc

• 28 Avril 2022

• #2

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

Cliquez pour agrandir...

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

Solution

Y

YANOU38

XLDnaute Occasionnel

• 28 Avril 2022

• #3

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

YANOU38150 (pas bien loin...)

 

Pièces jointes

• Essai 3.xlsm

  123.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Avril 2022

• #4

bonjour,

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

VB:

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

 

Pièces jointes

• Yanou38.xlsm

  111.4 KB · Affichages: 1

Vote positif 0 Vote négatif

Y

YANOU38

XLDnaute Occasionnel

• 28 Avril 2022

• #5

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

VB:

Application.ScreenUpdating = False

Merci pour mes yeux !

 

Pièces jointes

• Essai 3.xlsm

  123.6 KB · Affichages: 1

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Avril 2022

• #6

Bonjour,

YANOU38 à dit:

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

Cliquez pour agrandir...

Que votre enthousiasme ne rende pas les autres interventions invisibles

Cordialement

 

Vote positif 0 Vote négatif

Y

YANOU38

XLDnaute Occasionnel

• 28 Avril 2022

• #7

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.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 28 Avril 2022

• #8

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 28 Avril 2022

• #9

Re,

YANOU38 à dit:

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

Cliquez pour agrandir...

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

Cordialement

 

Vote positif 0 Vote négatif

Y

YANOU38

XLDnaute Occasionnel

• 28 Avril 2022

• #10

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

Cordialement

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Avril 2022

• #11

Bonjour le Fil
Histoire de vous saluer !
Ou alors !

VB:

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

 

Vote positif 0 Vote négatif