OptionButton "" SOS "

[reve24]

Bonjour à tous SOS 😱 😱

Suivant un userform , comment cliquer sur option button et reporter valeur
sur feuil2 en colonne A1
A2
A3
A4
au fur et a mesure des saisies
voir feuille excel ci joint

exemple
A1 peut etre lapin ( c est exemple )
A4 peut etre malin
A5
A2
A1
A3
etc.... et ainsi de suite par exemple

Je bloque et je n arrive pas

 

[Pierrot93]

Re : OptionButton "" SOS "

Bonjour reve

pas sur d'avoir tout compris, regarde le code ci-dessous si il peut t'aider, à utiliser dans le module de l'USF :

Private Sub OptionButton1_change()
Range("A1").Value = IIf(OptionButton1, "lapin", "autre")
End Sub

bon après midi
@+

 

[reve24]

Re : OptionButton "" SOS "

Bonjour reve

pas sur d'avoir tout compris, regarde le code ci-dessous si il peut t'aider, à utiliser dans le module de l'USF :

Private Sub OptionButton1_change()
Range("A1").Value = IIf(OptionButton1, "lapin", "autre")
End Sub

bon après midi et merci mais comment
reporter valeur
sur feuil2 en colonne A1
A2
A3
A4
au fur et a mesure des saisies

 

[Pierrot93]

Re : OptionButton "" SOS "

Re

autre piste, mais pas très clair pour moi tout ceci...

Private Sub OptionButton1_change()
Sheets("Feuil2").Range(OptionButton1.Caption).Value = IIf(OptionButton1, "lapin", "autre")
End Sub

edition : pas de feuil2 dans ton fichier et colonne A1 ???

 

[reve24]

Re : OptionButton "" SOS "

Merci
pas de feuil2 renommée BaseDonnées dans ton fichier et colonne A ( existe)

Suivant un userform , comment cliquer sur option button et reporter valeur
sur BaseDonnées en colonne A
Cellule A1
Cellule A2
Cellule A3
Cellule Cellule A4
au fur et a mesure des saisies

exemple
Le ButtonOption peut etre lapin , maison etc....
etc.... et ainsi de suite par exemple

J ouvre USERFORM , je saisie A1 cela enregistre en cellule A1 " lapin "
je ferme
J ouvre USERFORM , je saisie A4 cela enregistre en cellule A2 " titi "
je ferme

etc.......

est ce clair 🙄 🙄

merci a vous

 

[tototiti2008]

Re : OptionButton "" SOS "

Bonjour reve24, bonjour Pierrot,

Non, pas trés clair, mais je tente :

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In UserForm1.Controls
    If Ctrl.Name Like "OptionButton*" Then
        If Ctrl.Value = True Then
            ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = Ctrl.Caption
            Exit For
        End If
    End If
Next
Unload UserForm1
End Sub

 

[reve24]

Re : OptionButton "" SOS "

Bonjour reve24, bonjour Pierrot,

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In UserForm1.Controls
etc....

[/QUOTE]

Genial excellent c est ceci que je cherche MERCI A TOUS CEUX QUI ONT PARTICIPES 😀 😀