j'ai crée un formulaire et la personne qui la remplit a un moment donné la
possibilité de mettre "oui" ou "non" grace à un "option button" et pr
récupérer la réponse j'ai mis ça:
For j = 1 To 2
If Controls("ami" & j).Value = True Then
Range("K24").Value = Controls("ami" & j).Caption
End If
Next j
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
stef
salut isabelle, tt simplement rien n'apparait dans la cellule excel mais de message erreur. et pr ta 2eme question, les captions sont oui et non.. alors je ne comprends pas tres bien dans la mesure ou j'ai fait la meme chose pr d'autres boutons options et que ça marche.. j'espere que tu vas m'aider... Si tas une autre possibilité pr entrer la réponse donné par un bouton option.. A+ et encore merci ..
"isabelle" wrote:
bonjour stef,
qu'est ce qui ne fonctionne pas ? as-tu un message d'erreur ? le nom des "option button" est bien "ami1" et ami2" quel sont leurs "Caption" ?
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
salut isabelle,
tt simplement rien n'apparait dans la cellule excel mais de message erreur.
et pr ta 2eme question, les captions sont oui et non..
alors je ne comprends pas tres bien dans la mesure ou j'ai fait la meme
chose pr d'autres boutons options et que ça marche..
j'espere que tu vas m'aider...
Si tas une autre possibilité pr entrer la réponse donné par un bouton option..
A+ et encore merci ..
"isabelle" wrote:
bonjour stef,
qu'est ce qui ne fonctionne pas ? as-tu un message d'erreur ?
le nom des "option button" est bien "ami1" et ami2"
quel sont leurs "Caption" ?
salut isabelle, tt simplement rien n'apparait dans la cellule excel mais de message erreur. et pr ta 2eme question, les captions sont oui et non.. alors je ne comprends pas tres bien dans la mesure ou j'ai fait la meme chose pr d'autres boutons options et que ça marche.. j'espere que tu vas m'aider... Si tas une autre possibilité pr entrer la réponse donné par un bouton option.. A+ et encore merci ..
"isabelle" wrote:
bonjour stef,
qu'est ce qui ne fonctionne pas ? as-tu un message d'erreur ? le nom des "option button" est bien "ami1" et ami2" quel sont leurs "Caption" ?
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
isabelle
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec
comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize()
ami1.Caption = "oui"
ami2.Caption = "non"
End Sub
Private Sub CommandButton1_Click()
For j = 1 To 2
If Controls("ami" & j).Value = True Then
Range("K24").Value = Controls("ami" & j).Caption
End If
Next j
End Sub
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
stef
oui excuse moi de ma réponse tardif déja.. en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner: ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en cliquant sur un autre bouton d'option, automatiquement, je décoche, un des deux boutons d'options que j'ai au préalable cocher.. Pourrais tu me dire, comment fait on pr rendre des boutons d'options indépendants par groupe?? Est ce assez clair?? Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
oui excuse moi de ma réponse tardif déja..
en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner:
ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont
indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en
cliquant sur un autre bouton d'option, automatiquement, je décoche, un des
deux boutons d'options que j'ai au préalable cocher..
Pourrais tu me dire, comment fait on pr rendre des boutons d'options
indépendants par groupe??
Est ce assez clair??
Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec
comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize()
ami1.Caption = "oui"
ami2.Caption = "non"
End Sub
Private Sub CommandButton1_Click()
For j = 1 To 2
If Controls("ami" & j).Value = True Then
Range("K24").Value = Controls("ami" & j).Caption
End If
Next j
End Sub
oui excuse moi de ma réponse tardif déja.. en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner: ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en cliquant sur un autre bouton d'option, automatiquement, je décoche, un des deux boutons d'options que j'ai au préalable cocher.. Pourrais tu me dire, comment fait on pr rendre des boutons d'options indépendants par groupe?? Est ce assez clair?? Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais ça ne marche pas... merci pr votre aide
michdenis
Bonjour Stef,
DAns un formulaire, pour rendre indépendant un bouton d'option des autres, tu dois utiliser un cadre (frame) est inséré tes boutons d'options dans le cadre. Chaque cadre ne permet qu'à un bouton d'option à la fois appartenant(situé) dans ce cadre d'être actif. Évidemment, tu peux avoir plusieurs cadre et chaque cadre peut regrouper plus d'un bouton d'options.
P.S. Attention, le rôle de base d'un bouton d'options est de permettre à l'usager de choisir une des possibilités offertes par le programme au détriment des autres. Si chaque bouton d'options est indépendant... Est-ce nécessaire de faire usage à ce type de contrôle ?
Salutations!
"stef" a écrit dans le message de news: oui excuse moi de ma réponse tardif déja.. en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner: ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en cliquant sur un autre bouton d'option, automatiquement, je décoche, un des deux boutons d'options que j'ai au préalable cocher.. Pourrais tu me dire, comment fait on pr rendre des boutons d'options indépendants par groupe?? Est ce assez clair?? Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j
mais Ãf§a ne marche pas... merci pr votre aide
Bonjour Stef,
DAns un formulaire, pour rendre indépendant un bouton d'option des autres, tu dois utiliser un cadre (frame) est inséré
tes boutons d'options dans le cadre. Chaque cadre ne permet qu'à un bouton d'option à la fois appartenant(situé) dans ce
cadre d'être actif. Évidemment, tu peux avoir plusieurs cadre et chaque cadre peut regrouper plus d'un bouton d'options.
P.S. Attention, le rôle de base d'un bouton d'options est de permettre à l'usager de choisir une des possibilités
offertes par le programme au détriment des autres. Si chaque bouton d'options est indépendant... Est-ce nécessaire de
faire usage à ce type de contrôle ?
Salutations!
"stef" <stef@discussions.microsoft.com> a écrit dans le message de
news:3B8CD0B3-33E4-4896-8CEC-1C8B9DEAE701@microsoft.com...
oui excuse moi de ma réponse tardif déja..
en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner:
ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont
indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en
cliquant sur un autre bouton d'option, automatiquement, je décoche, un des
deux boutons d'options que j'ai au préalable cocher..
Pourrais tu me dire, comment fait on pr rendre des boutons d'options
indépendants par groupe??
Est ce assez clair??
Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec
comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize()
ami1.Caption = "oui"
ami2.Caption = "non"
End Sub
Private Sub CommandButton1_Click()
For j = 1 To 2
If Controls("ami" & j).Value = True Then
Range("K24").Value = Controls("ami" & j).Caption
End If
Next j
End Sub
DAns un formulaire, pour rendre indépendant un bouton d'option des autres, tu dois utiliser un cadre (frame) est inséré tes boutons d'options dans le cadre. Chaque cadre ne permet qu'à un bouton d'option à la fois appartenant(situé) dans ce cadre d'être actif. Évidemment, tu peux avoir plusieurs cadre et chaque cadre peut regrouper plus d'un bouton d'options.
P.S. Attention, le rôle de base d'un bouton d'options est de permettre à l'usager de choisir une des possibilités offertes par le programme au détriment des autres. Si chaque bouton d'options est indépendant... Est-ce nécessaire de faire usage à ce type de contrôle ?
Salutations!
"stef" a écrit dans le message de news: oui excuse moi de ma réponse tardif déja.. en fait, je sais ou se trouve le pb mais je narrive pas a le solutionner: ce quil se passe, c que j'ai plusieurs boutons d'options qui pr moi sont indépendants mais qui pr l'ordi ne le sont pas. En dautres termes, en cliquant sur un autre bouton d'option, automatiquement, je décoche, un des deux boutons d'options que j'ai au préalable cocher.. Pourrais tu me dire, comment fait on pr rendre des boutons d'options indépendants par groupe?? Est ce assez clair?? Merci d'avance
"isabelle" wrote:
salut stef,
sur un Userform j'ai créer deux OptionButton et un bouton avec comme propriété "Nom" des "option button" "ami1" et ami2"
Private Sub UserForm_Initialize() ami1.Caption = "oui" ami2.Caption = "non" End Sub
Private Sub CommandButton1_Click() For j = 1 To 2 If Controls("ami" & j).Value = True Then Range("K24").Value = Controls("ami" & j).Caption End If Next j End Sub
