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 (vba) texte dans CommandButton

(vba) texte dans CommandButton

18 réponses
Avatar
j-pascal
Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP
Signaler un problème avec ce contenu

8 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
1 2
Avatar
Mgr Banni
non seulement tu peux mais tu dois remplacer, mon fils
et ne crains que le courroux du Dieu d'excel si tu t'as gouré
Mgr T.B.

"j-pascal" a écrit dans le message de news:

Bonsoir Daniel,

... et merci !

Supposons que j'aie renommé le bouton (propriété Name) en "toto", puis-je
remplacer "CommandButton1" par "toto" (toto.caption) ?? Je crains que non
...

@+ ?

JP

"Daniel.C" a écrit dans le message de news:

Bonjour.
ActiveSheet.CommandButton1.Caption = [A1]
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:
%
Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP









Avatar
lSteph
Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.
.. C'est un peu compliqué pour moi
Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que

quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.
solution plus simple et qui semble (aussi) parfaitement fonctionner.
L'essentiel est que tu y trouves ton bonheur.


@+

--
lSteph


On 22 oct, 22:37, "j-pascal" wrote:
Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai retenu une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dan s un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un U F)

Merci pour vos lumières.

JP




Avatar
Mgr Banni
une fois de plus : Mgr Banni 1 - LSteph 0
et pourtant, si LSteph n'est pas un bleu, Mgr Banni, lui, est un all black

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.
.. C'est un peu compliqué pour moi
Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que

quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.
solution plus simple et qui semble (aussi) parfaitement fonctionner.
L'essentiel est que tu y trouves ton bonheur.


@+

--
lSteph


On 22 oct, 22:37, "j-pascal" wrote:
Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai retenu une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP




Avatar
lSteph
Votre éminence se grise,
comme je disais à JP
L'essentiel est que tu y trouves ton bonheur.
Non solum sed etiam

aussi black soit votre soutane, si cette idée vous met en joie...

Ainsi soit-il!

Toutefois..si LSteph n'est pas un bleu,personne n'a dit allez les
verres...
vous attendrez l'eucharistie!

--
lSteph


On 23 oct, 11:13, "Mgr Banni" wrote:
une fois de plus : Mgr Banni 1 - LSteph 0
et pourtant, si LSteph n'est pas un bleu, Mgr Banni, lui, est un all black

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.> .. C'est un peu compliqué pour moi

Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que
quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.> solution plus simple et qui semble (aussi) parfaitement fonctionner.

L'essentiel est que tu y trouves ton bonheur.

@+

--
lSteph

On 22 oct, 22:37, "j-pascal" wrote:

Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai reten u une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) d ans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP






Avatar
Mgr Banni
:-))))

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

Votre éminence se grise,
comme je disais à JP
L'essentiel est que tu y trouves ton bonheur.
Non solum sed etiam

aussi black soit votre soutane, si cette idée vous met en joie...

Ainsi soit-il!

Toutefois..si LSteph n'est pas un bleu,personne n'a dit allez les
verres...
vous attendrez l'eucharistie!

--
lSteph


On 23 oct, 11:13, "Mgr Banni" wrote:
une fois de plus : Mgr Banni 1 - LSteph 0
et pourtant, si LSteph n'est pas un bleu, Mgr Banni, lui, est un all black

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.> .. C'est un peu compliqué pour moi

Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que
quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.> solution plus simple et qui semble (aussi)
parfaitement fonctionner.

L'essentiel est que tu y trouves ton bonheur.

@+

--
lSteph

On 22 oct, 22:37, "j-pascal" wrote:

Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai retenu une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans
un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP






Avatar
j-pascal
Bonjour stéphane,

Je me disais aussi qu'il devait y avoir une subtilité ;-)

Merci ++

JP

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.
.. C'est un peu compliqué pour moi
Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que

quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.
solution plus simple et qui semble (aussi) parfaitement fonctionner.
L'essentiel est que tu y trouves ton bonheur.


@+

--
lSteph


On 22 oct, 22:37, "j-pascal" wrote:
Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai retenu une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP




Avatar
lSteph
;-)

...ok! ...mais je ne fais pas de bruit...Mgr fait sa sieste (prescrite
depuis Marseille)

On 23 oct, 13:52, "j-pascal" wrote:
Bonjour stéphane,

Je me disais aussi qu'il devait y avoir une subtilité ;-)

Merci ++

JP

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.> .. C'est un peu compliqué pour moi

Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que
quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.> solution plus simple et qui semble (aussi) parfaitement fonctionner.

L'essentiel est que tu y trouves ton bonheur.

@+

--
lSteph

On 22 oct, 22:37, "j-pascal" wrote:

Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai reten u une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) d ans un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP






Avatar
j-pascal
:o)

S'il se fait appeler "Monseigneur", alors tu "mérites" au moins le titre d'
"Excel-lence" !! ;-)

JP

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

;-)

...ok! ...mais je ne fais pas de bruit...Mgr fait sa sieste (prescrite
depuis Marseille)

On 23 oct, 13:52, "j-pascal" wrote:
Bonjour stéphane,

Je me disais aussi qu'il devait y avoir une subtilité ;-)

Merci ++

JP

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

Bonjour,

Le propos était juste que si tu modifies A1 le bouton en soit
rectifié.> .. C'est un peu compliqué pour moi

Au regard de l'ensemble de tes ficelles sur ce forum ce ne sont que
quelques
modestes lignes de code n'ayant pas franchement faculté à
t'effaroucher à mon sens.> solution plus simple et qui semble (aussi)
parfaitement fonctionner.

L'essentiel est que tu y trouves ton bonheur.

@+

--
lSteph

On 22 oct, 22:37, "j-pascal" wrote:

Bonsoir Stéphane,

Merci pour ta réponse. C'est un peu compliqué pour moi ; j'ai retenu une
solution plus simple et qui semble (aussi) parfaitement fonctionner.

A bientôt,

JP

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing Then _
CommandButton1.Caption = CStr([a1])
End Sub

'lSteph

On 22 oct, 17:31, "j-pascal" wrote:

Bonjour,

Comment puis-je récupérer le texte de la cellule A1 (date) (ie) dans
un
CommandButton ?

Je précise que le Bouton est isolé (il n'est pas associé à un UF)

Merci pour vos lumières.

JP






1 2