Ecrire une série d'une variable <string>,séparé par un

Bonjour à tous,

Voici un exemple pour mon petit problème:

Dim A As String

A = "bla"

à un moment je dois écrire une série de cette variable, séparé par des points:

bla.bla.bla.bla.bla.bla.bla.bla.bla.bla.bla.bla.

Comment je ferais cela ? Merci de me dire comment je peux enchaîner la variable et comment introduire le point!!

Merci pour votre aide,

Hannes

Salut à toi,

ton problème est très vaguement posé.

je ne sais pas du coup si le simple cigle & te convient. Accolle plusieurs résultats dans une même cellule grace à "&"

tu peux mettre un point entre les résultats, ou ce que tu veux, avec les guillemets.

exemple en A1 : bla, en A2 : bla

en A3 = A1&"."&A2

résultat en A3 : bla.bla

sinon, envoie un morceau de ton fichier, et les pros t'aideront!

Bonjour,

Essayes comme ça :

Sub repete()
Dim A As String, mystr As String

A = "bla"
mystr = A & "."
mystr = Application.WorksheetFunction.Rept(mystr, 5)
Range("A1") = mystr & A
End Sub

La fonction rept t'évite de créer une boucle, donc plus léger et rapide

A la fin je te mets mystr & A pour éviter d'avoir un point après ton dernier bla.

Cordialement,

Salut Jeremie25

j'explique plus en detail: Je dois créer un document confidentiel et numéroté, chaque destinataire du document a un numéro associé et son nom et code figurent sur chaque page.

Les noms et numéros sortent d'un fichier excel et je veux les introduire dans le document word. j ai fait un macro qui marche bien pour le bas et le haut de page sur tout le doc. Par contre en fond de page (un wordArt, diagonale sur le page) je dois insérer le code en serie.

Ex: Nom: Francois, No: 001

en fond de page je veux donc 001.001.001.001.001 ...

Cela marche bien si je tape la série à la main ("001.001.001.001;..") mais comme ca je m'en sortait pas jusqu'à Noel...

Donc j'ai défini le 001 comme variable string pour pouvoir l'insérer 12 fois à la suite... Avec les & et "." il ne marche pas (pt etre different dans word?).

Voici un bout de code dans mon word avec 001.001.001 tapé à la main, ce que je veux éviter mais plutôt insérer 001 (comme variableString) à la suite:

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.Shapes("WordArt 562").Select

Selection.ShapeRange.TextEffect.Text = _

"001.001.001.001.001.001.001.001.001.001.001.001."

Remarque:

mettre:

Dim No As String

No = "001"

Selection.ShapeRange.TextEffect.Text = _

No&"."&No&"."No&"."&No&".3No&"."&No&"....

Crée un erreur déjà auqnd je tape le code...

Merci pour ton aide,

hannes

hannesmoe a écrit :

Remarque:

mettre:

Dim No As String

No = "001"

Selection.ShapeRange.TextEffect.Text = _

No&"."&No&"."No&"."&No&".3No&"."&No&"....

Crée un erreur déjà auqnd je tape le code...

Erreur qui vient certainement qu'il te faut mettre un espace avant les &

Merci TBM pour ton remarque!

Toute marche comme je veux maintenant!!!

Hannes

Hannesmoe, ta macro m'intéresse, j'ai bien envie de voir ce que celà donne?

merci!