Salut, je vous remercie tous pour votre aide.
j'utilise le code ci-dessus pour cr=E9er une zone de texte, et =E7a
marche bien, le probl=E8me , c'est que j'arrive pas =E0 connaitre le nom
de la zone de texte cr=E9e afin de la selectionner et la relier par une
formule
selection.formula=3Dactivecell.text
'exactement : copier le contenue de la cellule active dans la zone de
texte
*************************
Set ici =3D ActiveCell
T =3D ici.Top
L =3D ici.Left
W =3D ici.Width
H =3D ici.Height
Set un =3D ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
*************************
merci de votre aide
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
bourby
bonjour,
voici l'exemple de l'aide sur l'objet shape:
Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 144, 144, 72, 72) .Name = "Red Square" .Fill.ForeColor.RGB = RGB(255, 0, 0) .Line.DashStyle = msoLineDashDot End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide. j'utilise le code ci-dessus pour créer une zone de texte, et ça marche bien, le problème , c'est que j'arrive pas à connaitre le nom de la zone de texte crée afin de la selectionner et la relier par une formule selection.formula¬tivecell.text 'exactement : copier le contenue de la cellule active dans la zone de texte ************************* Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) ************************* merci de votre aide
bonjour,
voici l'exemple de l'aide sur l'objet shape:
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide.
j'utilise le code ci-dessus pour créer une zone de texte, et ça
marche bien, le problème , c'est que j'arrive pas à connaitre le nom
de la zone de texte crée afin de la selectionner et la relier par une
formule
selection.formula¬tivecell.text
'exactement : copier le contenue de la cellule active dans la zone de
texte
*************************
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
*************************
merci de votre aide
Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 144, 144, 72, 72) .Name = "Red Square" .Fill.ForeColor.RGB = RGB(255, 0, 0) .Line.DashStyle = msoLineDashDot End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide. j'utilise le code ci-dessus pour créer une zone de texte, et ça marche bien, le problème , c'est que j'arrive pas à connaitre le nom de la zone de texte crée afin de la selectionner et la relier par une formule selection.formula¬tivecell.text 'exactement : copier le contenue de la cellule active dans la zone de texte ************************* Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) ************************* merci de votre aide
kamal
merci de votre reponse mais l'exemple d'aide n'est pas suffaisant pour un debutant merci
merci de votre reponse mais l'exemple d'aide n'est pas suffaisant pour
un debutant
merci
merci de votre reponse mais l'exemple d'aide n'est pas suffaisant pour un debutant merci
bourby
bonjour, je ne passe pas souvent sur le forum. Voilà ce qu'il faut écrire pour nommer le textBox "maBoite":
Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height with ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) .Name = "maBoite" End With Set un = ActiveSheet.Shapes("maBoite")
Cordialement
Bourby
bourby wrote:
bonjour,
voici l'exemple de l'aide sur l'objet shape:
Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 144, 144, 72, 72) .Name = "Red Square" .Fill.ForeColor.RGB = RGB(255, 0, 0) .Line.DashStyle = msoLineDashDot End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide. j'utilise le code ci-dessus pour créer une zone de texte, et ça marche bien, le problème , c'est que j'arrive pas à connaitre le nom de la zone de texte crée afin de la selectionner et la relier par une formule selection.formula¬tivecell.text 'exactement : copier le contenue de la cellule active dans la zone de texte ************************* Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) ************************* merci de votre aide
bonjour,
je ne passe pas souvent sur le forum.
Voilà ce qu'il faut écrire pour nommer le textBox "maBoite":
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
with ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
.Name = "maBoite"
End With
Set un = ActiveSheet.Shapes("maBoite")
Cordialement
Bourby
bourby wrote:
bonjour,
voici l'exemple de l'aide sur l'objet shape:
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide.
j'utilise le code ci-dessus pour créer une zone de texte, et ça
marche bien, le problème , c'est que j'arrive pas à connaitre le nom
de la zone de texte crée afin de la selectionner et la relier par une
formule
selection.formula¬tivecell.text
'exactement : copier le contenue de la cellule active dans la zone de
texte
*************************
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
*************************
merci de votre aide
bonjour, je ne passe pas souvent sur le forum. Voilà ce qu'il faut écrire pour nommer le textBox "maBoite":
Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height with ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) .Name = "maBoite" End With Set un = ActiveSheet.Shapes("maBoite")
Cordialement
Bourby
bourby wrote:
bonjour,
voici l'exemple de l'aide sur l'objet shape:
Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 144, 144, 72, 72) .Name = "Red Square" .Fill.ForeColor.RGB = RGB(255, 0, 0) .Line.DashStyle = msoLineDashDot End With
Cordialement
kamal wrote:
Salut, je vous remercie tous pour votre aide. j'utilise le code ci-dessus pour créer une zone de texte, et ça marche bien, le problème , c'est que j'arrive pas à connaitre le nom de la zone de texte crée afin de la selectionner et la relier par une formule selection.formula¬tivecell.text 'exactement : copier le contenue de la cellule active dans la zone de texte ************************* Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) ************************* merci de votre aide
