Discussion :

[Invité]

Bonjour à tous,

voici mon probleme :

Je souhaite associé à chaque valeur d'une colonne A, une "catégorie" dans une colonne B.
On va simplifier, il y a 3 catégories : eau, terre, feu.

EXEMPLE :
A - B
toto - eau
tata - terre
titi - feu
tutu - terre
...

Et comme je ne veux pas rentrer tout à la main, j'ai créé un UserForm contenant :
- Dans un textBox j'affiche la valeur de la colonne A
- 3 optionsButton(s), un par catégorie.

La démarche :

Code :

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

1
2
3
4
Pour chaque cellule de la colonne A faire :
- Afficher la valeur de la cellule dans ma textBox
- Attendre qu'un des optionsButtons soient sélectionnés
- Récupéré un identifiant (nom ou handle ou ...)

Pour boucler sur mes cellules et changer l'affichage, pas de probleme.

Par contre comment "guetter" la selection d'un des optionsButton ?
Et comment l'identifier ?
Les macros optionButton_Click() des optionsButtons ne peuvent pas retourner de valeurs donc je ne peux pas récupérer un identifiant.

J'ai détaillé pour être clair, j'éspère l'avoir été.
Merci par avance.

[Antoniom]

Hello,

Les macros optionButton_Click() des optionsButtons ne peuvent pas retourner de valeurs donc je ne peux pas récupérer un identifiant.

Sauf incompréhension, oui comme ceci...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub OptionButton1_Click()
 
    If OptionButton1.Value = True Then
        OptionButton2.Value = False
        TextBox1.Value = OptionButton1.Caption
        TextBox2.Value = ""
    End If
 
End Sub
Private Sub OptionButton2_Click()
 
    If OptionButton2.Value = True Then
        OptionButton1.Value = False
        TextBox2.Value = OptionButton2.Caption
        TextBox1.Value = ""
    End If
 
End Sub
 
'Ou un autre exemple
 
'Private Sub OptionButton1_Click()
 
'    If OptionButton1.Value = True Then
'        OptionButton2.Value = False
'        Range("A1").Value = OptionButton1.Caption
'    End If
 
'End Sub
'Private Sub OptionButton2_Click()
 
'    If OptionButton2.Value = True Then
'        OptionButton1.Value = False
'        Range("A1").Value = OptionButton2.Caption
'    End If
 
'End Sub

Cordialement, Antoniom.

[Invité]

Merci pour ta réponse Antoniom.

Ce n'est pas exactement ce que je cherche à faire.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub OptionButton1_Click()
 
    If OptionButton1.Value = True Then
        OptionButton2.Value = False
        Range("A1").Value = OptionButton1.Caption
    End If
End Sub

Cette proposition s'en rapproche plus mais m'oblige à afficher des valeurs dans ma feuille.

L'idéal serait quelquechose du genre :

Code :

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

1
2
3
4
5
6
For chaque cellule dans colonne A 
   Afficher UserForm1
   UserForm1.TextBox.text = valeur de la cellule
   attendre que un des optionButtons soit selectionné 'le bout de code qu'il me manque
   récupéré le nom, handle ou autre... de ce bouton 'pour être stocké dans une variable tableau
Next cellule

Merci par avance