Discussion :

[isrdum]

Bonjour

J'ai créé une procédure qui est censé gérer mes nombreux checkbox.
Pour ne pas avoir a réécrire le même code trop souvent, j'ai décidé de créer une procédure spéciale.

Je m'explique: Je désire générer des checkbox universels auxquels je pourrai attribuer une valeur aléatoire. Par exemple, Checkbox (A), Checkbox (B)
et pour les faire fonctionner je n'aurai qu'à attribuer une valeur particulière à A et à B (A=1 et B=2)

Le problème est que je ne sais pas quoi mettre comme expression après ma CheckBox pour que mon idée fonctionne: CheckBox(A), CheckBox("A"), CheckBoxA, CheckBox[A], etc....

[HopPopPop]

Bonjour à tous,

A essayer :
Si les controls checkbox ont un Name du genre CheckBox1 à checkBox50. Utiliser dans ce cas l'instruction générique Controls("CheckBox" & i) avec i ayant pour valeur 1 à 50

[isrdum]

Merci pour votre suggestion
Mais mon ignorance m'empêche de faire fonctionner le VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ("CheckBox" & A) = True Then
            Controls("CheckBox" & B).Value = False: Controls("CheckBox" & C) = False: Controls("CheckBox" & D) = False: Controls("CheckBox" & E) = False

Voici mon projet modifié avec votre suggestion: Si la case A est cochée, alors les cases B,C,D,E,F doivent être décochée.
Dans une procédure antérieure, j'ai chargé la valeur 1 dans la case A, B=2, C=3, D=4, E=5. Ainsi, "CheckBox" & A" réfère à la checkbox1.

[HopPopPop]

Bonjour à tous,

Une petite erreur ou oubli dans votre adaptation, il faut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Controls("CheckBox" & A) Then
Controls("CheckBox" & B).Value = False: Controls("CheckBox" & C) = False: Controls("CheckBox" & D) = False: Controls("CheckBox" & E) = False 
End if

Le terme " Controls" était absent au début de la condition

Cordialement

[isrdum]

Après quelque essai je constate que la première ligne fonctionne a merveille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (CheckBox & A = True) Then

alors que l'autre me renvoie une foule d'erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("CheckBox" & B).Value = False: Controls("CheckBox" & C) = False: Controls("CheckBox" & D) = False: Controls("CheckBox" & E) = False

[HopPopPop]

Chez moi, ça fonctionne.
Mais si la commande située dans une procédure ne modifie pas apparemment l'affichage, on peut forcer celui-ci dans le formulaire par l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Repaint

En remplaçant "UserForm1" par le Name de cet UserForm.
Ceci dans le cas ou les CheckBox sont dans un Formulaire ; Dans le cas contraire, s'ils sont placés directement sur une feuille, alors cela devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Sheets("Feuil1").OLEObjects("CheckBox" & a).Object.Value Then
    Sheets("Feuil1").OLEObjects("CheckBox" & b).Object.Value = False
    Sheets("Feuil1").OLEObjects("CheckBox" & c).Object.Value = False
    Sheets("Feuil1").OLEObjects("CheckBox" & d).Object.Value = False
    Sheets("Feuil1").OLEObjects("CheckBox" & e).Object.Value = False
End If

Essai concluant sous Excel 2000.
Cordialement.