Bout de code facile

Bonjour,

Pouvez vous m'expliquer l'utilité de ce petit bout de code svp

je pense que au début ce code va compter toutes les checkbox existante, ensuite

If CheckBox(i) = True

Private Sub CheckBox1_Change()

  For i = 1 To CheckBox.Count
  n = 0
    If CheckBox(i) = True Then
        n = n + 1
    Else
        Shapes("forme 1").Visible = False
    End If

End Sub

merci beaucoup!

Salut,

Ton code a l’air très bizarre, mais sans avoir le fichier qui va avec, difficile d’être très précis.

Effectivement que tous les CheckBox devraient être passés en revue par le code, mais déjà il manque la partie Next à ta boucle For/Next.

La ligne If CheckBox(i) = True Then contrôle en fait si le CheckBox passé en revue est activé ou non.

Par la ligne n = n + 1 ta macro devrait incrémenter le compte n à chaque fois qu’un CheckBox est activé (true) mais comme tu remets à chaque nouveau passage de la boucle For/Next le compteur n à zéro, ça semble abérrant.

D’autant plus que tu ne fais rien avec cette valeur n !!!!

La ligne Shapes("Rectangle à coins arrondis 1").Visible = False quant à elle ne peut que difficilement être testée sans ton fichier.

Drôle de code, vraiment

Cordialement.

Re-bonjour,

Je me suis toujours demandé pourquoi il avait été nécessaire d’introduire le point 8 de la charte du Forum https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

A lire ta réponse, je comprends pourquoi

Au plaisir de pouvoir à nouveau t’aider gratuitement