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
Modeste
Bonsour® Jacques wrote:
J'ai un objet word art dans une feuille excel, et j'aimerais le remplire avec des données de plusieur célulles, es-ce possible et comment. tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4 la cellule c4 peut contenir le résultat d'une formule ( calcul, indexation, recherche, concaténation, texte saisi)
Sub jacques() Set myDocument = Worksheets(1) Set newWordArt = myDocument.Shapes.AddTextEffect( _ PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _ FontName:="Arial Black", FontSize:6, _ FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _ Top:0)
End Sub
-- http://viadresse.com/?94912042
Bonsour® Jacques
wrote:
J'ai un objet word art dans une feuille excel, et j'aimerais le
remplire avec des données de plusieur célulles, es-ce possible et
comment.
tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4
la cellule c4 peut contenir le résultat d'une formule ( calcul, indexation,
recherche, concaténation, texte saisi)
Sub jacques()
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _
FontName:="Arial Black", FontSize:6, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _
Top:0)
J'ai un objet word art dans une feuille excel, et j'aimerais le remplire avec des données de plusieur célulles, es-ce possible et comment. tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4 la cellule c4 peut contenir le résultat d'une formule ( calcul, indexation, recherche, concaténation, texte saisi)
Sub jacques() Set myDocument = Worksheets(1) Set newWordArt = myDocument.Shapes.AddTextEffect( _ PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _ FontName:="Arial Black", FontSize:6, _ FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _ Top:0)
End Sub
-- http://viadresse.com/?94912042
Jacques
Modeste, le forum
Je suis confut, car j'avais perdu, le post et en cherchant un peu mieux je l'ai retrouvé.
Merci, pour tes conseil, que j'ai appliqués, j'arrive tant bien que mal sur la même feuille, mais le souci c'est que la feuille des données est différante de celle, ou serai l'objet wordart.
J'essaie encore et te tens au jus.
Merci, Jacques "Modeste" a écrit dans le message de news:
Bonsour® Jacques wrote:
J'ai un objet word art dans une feuille excel, et j'aimerais le remplire avec des données de plusieur célulles, es-ce possible et comment. tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4 la cellule c4 peut contenir le résultat d'une formule ( calcul, indexation, recherche, concaténation, texte saisi)
Sub jacques() Set myDocument = Worksheets(1) Set newWordArt = myDocument.Shapes.AddTextEffect( _ PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _ FontName:="Arial Black", FontSize:6, _ FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _ Top:0)
End Sub
-- http://viadresse.com/?94912042
Modeste, le forum
Je suis confut, car j'avais perdu, le post et en cherchant un peu mieux je
l'ai retrouvé.
Merci, pour tes conseil, que j'ai appliqués, j'arrive tant bien que mal sur
la même feuille, mais le souci c'est que la feuille des données est
différante de celle, ou serai l'objet wordart.
J'essaie encore et te tens au jus.
Merci, Jacques
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uatQZh3jFHA.3436@tk2msftngp13.phx.gbl...
Bonsour® Jacques
wrote:
J'ai un objet word art dans une feuille excel, et j'aimerais le
remplire avec des données de plusieur célulles, es-ce possible et
comment.
tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4
la cellule c4 peut contenir le résultat d'une formule ( calcul,
indexation, recherche, concaténation, texte saisi)
Sub jacques()
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _
FontName:="Arial Black", FontSize:6, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _
Top:0)
Je suis confut, car j'avais perdu, le post et en cherchant un peu mieux je l'ai retrouvé.
Merci, pour tes conseil, que j'ai appliqués, j'arrive tant bien que mal sur la même feuille, mais le souci c'est que la feuille des données est différante de celle, ou serai l'objet wordart.
J'essaie encore et te tens au jus.
Merci, Jacques "Modeste" a écrit dans le message de news:
Bonsour® Jacques wrote:
J'ai un objet word art dans une feuille excel, et j'aimerais le remplire avec des données de plusieur célulles, es-ce possible et comment. tiré directement de l'aide en ligne
dans VBE faire F1 ;o)))
voici adapté à un texte se trouvant sur la feuille 1, en $C$4 la cellule c4 peut contenir le résultat d'une formule ( calcul, indexation, recherche, concaténation, texte saisi)
Sub jacques() Set myDocument = Worksheets(1) Set newWordArt = myDocument.Shapes.AddTextEffect( _ PresetTextEffect:=msoTextEffect28, Text:=myDocument.Cells(4, 3).Text, _ FontName:="Arial Black", FontSize:6, _ FontBold:=msoFalse, FontItalic:=msoFalse, Left:0, _ Top:0)
