Mettre le texte sur une seule ligne [VBA-W] - VB/VBA/VBS - Programmation
Marsh Posté le 16-01-2007 à 16:57:49
Bonjour à tous
Bonjour brandtance
Dans C6
Dans C7
et dans C8 tu mets cette formule :
=CONCATENER(C6;C7)
Eric
Marsh Posté le 16-01-2007 à 17:00:34
Merci Eric,
Mais en fait, si tu veux ta solution n'est pas possible (enfin je crois) Car il n'y a pas que deux phrases mais tout un texte sur plusieurs pages.
Marsh Posté le 16-01-2007 à 17:02:32
Re
En code VBA :
Sub concatener()
Dim text01 As String
Dim text02 As String
text01 = Range("c6" ).Text
text02 = Range("c7" ).Text
Range("c9" ).Value = text01 & text02
End Sub
Eric
Marsh Posté le 16-01-2007 à 17:03:51
Re
Je n'avais pas vu ta réponse dsl
Combien as tu de phrase ?
Es tu sur excel ?
Eric
Marsh Posté le 16-01-2007 à 17:06:13
Ben non sur Word. Regarde mon titre ;-)
Le nombre de phrase varie suivant les fichiers! Mais il a au moins 1 page et demi de texte
Marsh Posté le 16-01-2007 à 17:43:08
Bonsoir,
edition->remplacer-> ^p (dans la case rechercher) et rien du tout dans le remplacer par. le^ se trouve à côté du ç
Cordialement
Marsh Posté le 16-01-2007 à 18:26:13
Bonsoir,
Voilà ce que j'ai obtenu en enregistrant une Macro :
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 16/01/2007 par PAPOU
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Marsh Posté le 16-01-2007 à 18:34:11
Super merci!!
J'avais oublié wdReplaceAll, c'est pour cela que ça marchait pas!
Merci bien..
Marsh Posté le 16-01-2007 à 16:35:19
Bonjour,
Comment faire une macro qui formate le texte sur une seule ligne ?
Exemple :
On a :
ma premiere phrase.
ma deuxieme phrase
Et on doit avoir :
ma premiere phrase.ma deuxieme phrase
Merci beaucoup de votre aide