J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton
d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
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
ThierryP
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub ......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
With New DataObject
.SetText OptionButton1.Caption
.PutInClipboard
End With
End If
End Sub
......et pour coller le presse-papiers dans la cellule A1:
Dans un module standard :
Sub coller()
With New DataObject
.GetFromClipboard
[A1] = .GetText(1)
End With
End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton
d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub ......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
Tucky
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons
(sans que je sois obligé de faire autant de if que de bouton) et ne mette
dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
With New DataObject
.SetText OptionButton1.Caption
.PutInClipboard
End With
End If
End Sub
.......et pour coller le presse-papiers dans la cellule A1:
Dans un module standard :
Sub coller()
With New DataObject
.GetFromClipboard
[A1] = .GetText(1)
End With
End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton
d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
ThierryP
Re.. Pas trop le temps là, mais peut-être une piste : avec une variable publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton Nom_du_bouton=OptionButton1.Caption et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
-- @+ thierryp
Re..
Pas trop le temps là, mais peut-être une piste : avec une variable
publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton
Nom_du_bouton=OptionButton1.Caption
et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons
(sans que je sois obligé de faire autant de if que de bouton) et ne mette
dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
With New DataObject
.SetText OptionButton1.Caption
.PutInClipboard
End With
End If
End Sub
.......et pour coller le presse-papiers dans la cellule A1:
Dans un module standard :
Sub coller()
With New DataObject
.GetFromClipboard
[A1] = .GetText(1)
End With
End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton
d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Re.. Pas trop le temps là, mais peut-être une piste : avec une variable publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton Nom_du_bouton=OptionButton1.Caption et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
-- @+ thierryp
Tucky
Bonsoir ThierryP,
Merci du tuyau. Je n'ai jamais utilisé une variable publique mais je vais me lancer.
Tucky
Re.. Pas trop le temps là, mais peut-être une piste : avec une variable publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton Nom_du_bouton=OptionButton1.Caption et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci de votre aide.
-- @+ thierryp
-- @+ thierryp
Bonsoir ThierryP,
Merci du tuyau. Je n'ai jamais utilisé une variable publique mais je vais me
lancer.
Tucky
Re..
Pas trop le temps là, mais peut-être une piste : avec une variable
publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton
Nom_du_bouton=OptionButton1.Caption
et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons
(sans que je sois obligé de faire autant de if que de bouton) et ne mette
dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
With New DataObject
.SetText OptionButton1.Caption
.PutInClipboard
End With
End If
End Sub
.......et pour coller le presse-papiers dans la cellule A1:
Dans un module standard :
Sub coller()
With New DataObject
.GetFromClipboard
[A1] = .GetText(1)
End With
End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton
d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
Merci du tuyau. Je n'ai jamais utilisé une variable publique mais je vais me lancer.
Tucky
Re.. Pas trop le temps là, mais peut-être une piste : avec une variable publique Nom_du_bouton, tu ajoutes dans l'évènement click du bouton Nom_du_bouton=OptionButton1.Caption et dans ton commandbutton : .SetText Nom_du_bouton
Non testé, non remboursé si pas satisfait !! :-))))))))
Merci de la réponse ; mais comment faire pour que la macro test les 6 boutons (sans que je sois obligé de faire autant de if que de bouton) et ne mette dans le presse papier que la valeur du bouton cochée.
Merci d'avance.
Bonjour Tucky
Ceci colle dans le presse-papiers :
Private Sub CommandButton1_Click() If OptionButton1.Value = True Then With New DataObject .SetText OptionButton1.Caption .PutInClipboard End With End If End Sub .......et pour coller le presse-papiers dans la cellule A1: Dans un module standard :
Sub coller() With New DataObject .GetFromClipboard [A1] = .GetText(1) End With End Sub
Bonjour,
J'ai une UserForm avec 6 boutons d'option et une bouton de commande (OK). Quand je clique sur OK, je souhaiterai que la valeur 'Caption' du bouton d'option cochée se colle dans le presse-papier, sinon qu'il ne se passe rien.
