[VBA-W] Mettre le texte sur une seule ligne

Mettre le texte sur une seule ligne [VBA-W] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 16-01-2007 à 16:35:19   

Reply

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

Reply

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.

Reply

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

Reply

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
 

Reply

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

Reply

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

Reply

Marsh Posté le 16-01-2007 à 17:52:15    

Seniorpapou, merci, mais comment le faire en macro ?

Reply

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

Reply

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..

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed