|
|
|
|
Bonjour @ toutes & tous
Je seche sur un truc avec excel
je recupere des fichiers excel que je met en forme.
Je cherche un moyen d'automatiser la suppression des retour à ligne inserer dans certaine celulle.
chr(10)
L'ideal serait de les remplacer par une suite de caractere
mais je ne trouve pas comment faire
si qqun a une idée je suis preneur.....
merci d'avance...
J'ai trouvé
Sub quelcaractere()
Dim old_text As String
Dim new_text As String
For i = 2 To 15444
If Range("AD" & i).Value <> "" Then
old_text = Range("AD" & i).Value
new_text = Replace(old_text, Chr(10), " - ")
new_text = Replace(new_text, Chr(13), " - ")
new_text = Replace(new_text, " ", " ")
Range("AC" & i).Value = new_text
End If
Next
End Sub
c'était tout co... merci @ tout ceux qui on chercher pour moi et excuser moi pour le dérangement Bonne soirée @ toutes & tous |
Bonjour à tous,
Sub Suppr_Ret_Char()
'NFR 25/08/09
'Cette macro supprime les retours chariot dans la zone sélectionnée
Selection.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Je vous suggère d'associer un raccourci clavier à cette macro (par ex. Ctrl+Maj+S), ce qui rend d'autant plus facile son utilisation répétée. |