Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel OptionButton1_Click()

OptionButton1_Click()

6 réponses
Avatar
Papou2M
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand je
cliques sur le bouton de commande (Fonction ci -dessous) et non pas Vrai ou
Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant :
Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de news:
40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand je
cliques sur le bouton de commande (Fonction ci -dessous) et non pas Vrai
ou

Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM




Avatar
Papou2M
Bonjour
... j'ai affecté un bouton à une Userform, mais quand je clique sur
Propriétés , la fenêtre qui s'ouvre n'affiche pas de rubrique LinkedCell.
Quand je clique sur Boîte à outils, pas de rubrique Propriétés non plus..
Où puis-je voir LinkedCell ?
Merci d'avance


"papou" a écrit dans le message de
news:
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant :
Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de news:
40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand je
cliques sur le bouton de commande (Fonction ci -dessous) et non pas Vrai
ou

Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM








Avatar
papou
Re
Je n'ai effectivement pas bien compris de quoi il s'agissait, il est vrai
que le nom de ton bouton pouvait prêter à confusion ;-)
Donc, en résumé tu veux qu'en cliquant sur ce bouton situé sur ton UserForm
soit exécuté :
? à compléter...

Cordialement
Pascal



"Papou2M" <enplus+ a écrit dans le message de news:
40868faa$0$17607$
Bonjour
... j'ai affecté un bouton à une Userform, mais quand je clique sur
Propriétés , la fenêtre qui s'ouvre n'affiche pas de rubrique LinkedCell.
Quand je clique sur Boîte à outils, pas de rubrique Propriétés non plus..
Où puis-je voir LinkedCell ?
Merci d'avance


"papou" a écrit dans le message de
news:
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant :
Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de news:
40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand je
cliques sur le bouton de commande (Fonction ci -dessous) et non pas
Vrai



ou
Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM












Avatar
papou
...Heu je viens peut-être de comprendre ! (?)
Ou s'il s'agit bien d'un bouton d'option tu pourrais procéder de la sorte
par exemple :
Private Sub OptionButton1_Click()
Dim MaValeur$
If OptionButton1.Value = True Then
MaValeur = "Caractere"
Else: MaValeur = "AutreCaractere"
End If
End Sub

Cordialement
Pascal

"papou" a écrit dans le message de news:

Re
Je n'ai effectivement pas bien compris de quoi il s'agissait, il est vrai
que le nom de ton bouton pouvait prêter à confusion ;-)
Donc, en résumé tu veux qu'en cliquant sur ce bouton situé sur ton
UserForm

soit exécuté :
? à compléter...

Cordialement
Pascal



"Papou2M" <enplus+ a écrit dans le message de news:
40868faa$0$17607$
Bonjour
... j'ai affecté un bouton à une Userform, mais quand je clique sur
Propriétés , la fenêtre qui s'ouvre n'affiche pas de rubrique
LinkedCell.


Quand je clique sur Boîte à outils, pas de rubrique Propriétés non
plus..


Où puis-je voir LinkedCell ?
Merci d'avance


"papou" a écrit dans le message de
news:
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant :
Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de news:
40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand
je




cliques sur le bouton de commande (Fonction ci -dessous) et non pas
Vrai



ou
Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM
















Avatar
Papou2M
oui ! je vais essayer ça .
Merci
"papou" a écrit dans le message de
news:%
...Heu je viens peut-être de comprendre ! (?)
Ou s'il s'agit bien d'un bouton d'option tu pourrais procéder de la sorte
par exemple :
Private Sub OptionButton1_Click()
Dim MaValeur$
If OptionButton1.Value = True Then
MaValeur = "Caractere"
Else: MaValeur = "AutreCaractere"
End If
End Sub

Cordialement
Pascal

"papou" a écrit dans le message de news:

Re
Je n'ai effectivement pas bien compris de quoi il s'agissait, il est
vrai


que le nom de ton bouton pouvait prêter à confusion ;-)
Donc, en résumé tu veux qu'en cliquant sur ce bouton situé sur ton
UserForm

soit exécuté :
? à compléter...

Cordialement
Pascal



"Papou2M" <enplus+ a écrit dans le message de news:
40868faa$0$17607$
Bonjour
... j'ai affecté un bouton à une Userform, mais quand je clique sur
Propriétés , la fenêtre qui s'ouvre n'affiche pas de rubrique
LinkedCell.


Quand je clique sur Boîte à outils, pas de rubrique Propriétés non
plus..


Où puis-je voir LinkedCell ?
Merci d'avance


"papou" a écrit dans le message de
news:
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant :
Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de news:
40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul) quand
je




cliques sur le bouton de commande (Fonction ci -dessous) et non
pas





Vrai
ou
Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM




















Avatar
Papou2M
Re Bonjour...
.....Je me suis planté en le renvoyant hors suivi, d'où cette nouvelle
liaison...

La feuille 2 en colonne B et C portent en titre de colonne "Correct"
"Incorrect". la colonne A est renseignée par Numéro
Userform1 ne comporte que les boutons (OptionButton) Valeur1, Valeur 2 et
Valider et Annuler(CommandButton)
et je souhaiterais que les cellules B2 et C2 reçoivent "oui" et "non" en
fonction du choix Valeur1 ou Valeur2 et je n'y arrive pas ....:-(((

qu'est ce qui ne tourne pas rond dans mon histoire ???
Merci de votre aide
---------------------------------
Sub Essaival()
UserForm1.Show
End Sub
---------------------
Private Sub Annuler_Click()
UserForm1.Hide
End Sub
----------------------
Private Sub Valeur1_Click()

End Sub
-------------------------
Private Sub valeur2_Click()

End Sub
----------------------------
Private Sub Valider_Click()
Dim Num
Dim cellule As Object
'Détermination du numéro de fiche
Set cellule = Worksheets("Feuil2").Range("A2")
Num = 1
If cellule.Value = "" Then
cellule.Value = Num
Else
Do While IsEmpty(cellule) = False
Num = Num + 1
Set cellule = cellule.Offset(1)
Loop
cellule.Value = Num
End If
cellule.Offset(0, 1).Value = Correct
cellule.Offset(0, 2).Value = Incorrect
UserForm1.Hide
End Sub
-------------------





"Papou2M" <enplus+ a écrit dans le message de
news:4086a1ea$0$26429$
oui ! je vais essayer ça .
Merci
"papou" a écrit dans le message de
news:%
...Heu je viens peut-être de comprendre ! (?)
Ou s'il s'agit bien d'un bouton d'option tu pourrais procéder de la
sorte


par exemple :
Private Sub OptionButton1_Click()
Dim MaValeur$
If OptionButton1.Value = True Then
MaValeur = "Caractere"
Else: MaValeur = "AutreCaractere"
End If
End Sub

Cordialement
Pascal

"papou" a écrit dans le message de
news:



Re
Je n'ai effectivement pas bien compris de quoi il s'agissait, il est
vrai


que le nom de ton bouton pouvait prêter à confusion ;-)
Donc, en résumé tu veux qu'en cliquant sur ce bouton situé sur ton
UserForm

soit exécuté :
? à compléter...

Cordialement
Pascal



"Papou2M" <enplus+ a écrit dans le message de news:
40868faa$0$17607$
Bonjour
... j'ai affecté un bouton à une Userform, mais quand je clique sur
Propriétés , la fenêtre qui s'ouvre n'affiche pas de rubrique
LinkedCell.


Quand je clique sur Boîte à outils, pas de rubrique Propriétés non
plus..


Où puis-je voir LinkedCell ?
Merci d'avance


"papou" a écrit dans le message de
news:
Bonjour
Avec un bouton d'option à partir de la boîte à outils contrôles :
1- Clic droit, Propriétés
2 - Tu renseignes LinkedCell (Cellule liée)
3 - Clic droit Visualiser le code et tu adaptes l'exemple suivant
:





Private Sub OptionButton1_Click()
Range(OptionButton1.LinkedCell).Value = "Caractères"
End Sub

Cordialment
Pascal

"Papou2M" <enplus+ a écrit dans le message de
news:





40865f64$0$20176$
Bonjour
je souhaiterais obtenir un chaîne de caractères( ou un seul)
quand






je
cliques sur le bouton de commande (Fonction ci -dessous) et non
pas





Vrai
ou
Faux suivant l'action .

Private Sub OptionButton1_Click()

End Sub

Comment procéder ?
Merci d'avance.
JPM