Import dans Bouton boîte outil contrôle...

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value

J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane ;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossibl e d'aller
plus loin pour insérer une formule. Le but étant toujours de récup érer la
valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la pire
!
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

--
Cordialement @+
JP

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value


J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane
;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible
d'aller plus loin pour insérer une formule. Le but étant toujours de
récupérer la valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la
pire !
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value


J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane ;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible d'aller plus loin pour insérer une formule. Le but étant
toujours de récupérer la valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la pire !
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

--
Cordialement @+
JP

Bonsoir


Donc si on veut qd F2 change (c'est moins loi que aw3)
;o)
que le commandbutton1 en adopte le texte
(c'est un changement de la feuille donc dans le code de la feuille)
on utilise cet évennement.

'''''''''''
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [F2])
If Not isect Is Nothing Then Me.CommandButton1.Caption = [F2]
End Sub
'''''''''''

Sinon sur appel
par une macro dans un module standard on écriraitt simplemement

with Feuil1
.CommandButton1.Caption=.[F2]
end with

ou en dur dans la Feuille clic droit sur le bouton Fenêtre des propriétés
dans caption tu mets ton texte.

@+

lSteph

'lSteph

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value


J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane
;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible
d'aller plus loin pour insérer une formule. Le but étant toujours de
récupérer la valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la
pire !
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value

J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane
;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible
d'aller
plus loin pour insérer une formule. Le but étant toujours de récupérer la
valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la
pire
!
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

--
Cordialement @+
JP

Une idée comme ça :

Sub Titre_Bouton()
Worksheets("Feuil1").CommandButton1.Caption =
Worksheets("Feuil1").[aw3]
End Sub

Serge


"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
eQLAXey7HHA.1900@TK2MSFTNGP02.phx.gbl...

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value


J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane
;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible
d'aller plus loin pour insérer une formule. Le but étant toujours de
récupérer la valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la
pire !
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

--
Cordialement @+
JP

Bonsoir


Donc si on veut qd F2 change (c'est moins loi que aw3)
;o)
que le commandbutton1 en adopte le texte
(c'est un changement de la feuille donc dans le code de la feuille)
on utilise cet évennement.

'''''''''''
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [F2])
If Not isect Is Nothing Then Me.CommandButton1.Caption = [F2]
End Sub
'''''''''''


Sinon sur appel
par une macro dans un module standard on écriraitt simplemement

with Feuil1
.CommandButton1.Caption=.[F2]
end with

ou en dur dans la Feuille clic droit sur le bouton Fenêtre des propriétés
dans caption tu mets ton texte.



@+

lSteph

'lSteph

Bonjour,

Dans un bouton "boîte outils formulaire", j'ai ceci :

ActiveSheet.Shapes("Bouton 2").Select
Selection.Characters.Text = Range("AW3").Value


J'ai préféré insérer un bouton "boîte outil contrôle" (cher à Stéphane
;-) )
Mes (nombreux) essais sont infructueux !
Je n'arrive même pas à insérer un texte tout simple, donc impossible
d'aller plus loin pour insérer une formule. Le but étant toujours de
récupérer la valeur de la cellule ("AW3"). Voici mes tentatives :

ActiveSheet.Shapes("Bouton_3").Select '04/09/07

'Selection.Characters.Text = Range("AW3").Value
'Userform1.caption = "Bla bla bla" 'ça, je crois que c'est la
pire !
'Selection.Characters.Text("Bouton_3").Caption = "Bla bla bla"
'CommandButton.Caption = "Bla bla bla"

Bouton_3.Caption = "Ouvrir"

Je sais, c'est nul ;-(
Vous allez certainement me trouver une solution, mais comment devrais-je
procéder si je devais la trouver tout seul ?
A priori, ma recherche commencerait par trouver comment accéder à la
propriété "Caption" de l'objet ... et je sèche !

Merci d'avance pour vos lumières :o)

with Feuil1
.CommandButton1.Caption=.[F2]
end with

Pourquoi pas : Feuil1.CommandButton1.Caption = [F2] qui marche aussi ?

Bonsoir,

Ca fait plaisir!
(tout ce que j'ai enlevé...
5/5

Il reste ceci:

with Feuil1
.CommandButton1.Caption=.[F2]
end with

Pourquoi pas : Feuil1.CommandButton1.Caption = [F2] qui marche aussi ?

On serait effectivement tenté de faire ça
Et bien cela ne fera pas la même chose si je suis sur Feuil3

mon but est d'assigner au bouton
la valeur de F2 de Feuil1 pas de Feuil3

On peut écrire à l'identique ( je suis bien d'accord):

Feuil1.CommandButton1.Caption = Feuil1.[F2]

Mais j'aime bien les With ...

;o)

@+

lSteph