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
Jean-François Aubert
salut Daniel,
Private Sub CommandButton1_Click() ' ***récup caption Cells(1, 2) = CommandButton1.Caption ' ***test sur caption If CommandButton1.Caption = Cells(1, 2) Then CommandButton1.Caption = Second(Now) End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Daniel" a écrit dans le message de news:
Bonjour,
J'aimerais copier-coller le caption d'un bouton de commande dans une cellule. Comment puis-je faire ?
J'aimerais aussi pouvoir faire un test sur le caption et modifier celui-ci suivant le résultat du test.
Merci pour votre aide et joyeux Noël !
Daniel
salut Daniel,
Private Sub CommandButton1_Click()
' ***récup caption
Cells(1, 2) = CommandButton1.Caption
' ***test sur caption
If CommandButton1.Caption = Cells(1, 2) Then
CommandButton1.Caption = Second(Now)
End If
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de news:
1B861595-7DDB-47FA-8B42-12C9862282DB@microsoft.com...
Bonjour,
J'aimerais copier-coller le caption d'un bouton de commande dans une
cellule. Comment puis-je faire ?
J'aimerais aussi pouvoir faire un test sur le caption et modifier celui-ci
suivant le résultat du test.
Private Sub CommandButton1_Click() ' ***récup caption Cells(1, 2) = CommandButton1.Caption ' ***test sur caption If CommandButton1.Caption = Cells(1, 2) Then CommandButton1.Caption = Second(Now) End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Daniel" a écrit dans le message de news:
Bonjour,
J'aimerais copier-coller le caption d'un bouton de commande dans une cellule. Comment puis-je faire ?
J'aimerais aussi pouvoir faire un test sur le caption et modifier celui-ci suivant le résultat du test.
