Bonjour,
dans une cellule j'ai du texte avec un retour a la ligne. lorsque je
recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un
espace.
merci d'avance
Cordialement. Daniel "Albator V" a écrit dans le message de news:
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un espace. merci d'avance
Cordialement.
Daniel
"Albator V" <AlbatorV@discussions.microsoft.com> a écrit dans le message de
news: DAB85BD0-AE61-43CB-844B-0A17D0992BB9@microsoft.com...
Bonjour,
dans une cellule j'ai du texte avec un retour a la ligne. lorsque je
recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par
un
espace.
merci d'avance
Cordialement. Daniel "Albator V" a écrit dans le message de news:
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un espace. merci d'avance
If InStr(ActiveCell, vbCrLf) Then ActiveCell = Replace(ActiveCell, vbCrLf, " ") ElseIf InStr(ActiveCell, vbCr) Then ActiveCell = Replace(ActiveCell, vbCr, " ") ElseIf InStr(ActiveCell, vbLf) Then ActiveCell = Replace(ActiveCell, vbLf, " ") End If
Corto
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne pa r un espace. merci d'avance
If InStr(ActiveCell, vbCrLf) Then
ActiveCell = Replace(ActiveCell, vbCrLf, " ")
ElseIf InStr(ActiveCell, vbCr) Then
ActiveCell = Replace(ActiveCell, vbCr, " ")
ElseIf InStr(ActiveCell, vbLf) Then
ActiveCell = Replace(ActiveCell, vbLf, " ")
End If
Corto
Bonjour,
dans une cellule j'ai du texte avec un retour a la ligne. lorsque je
recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne pa r un
espace.
merci d'avance
If InStr(ActiveCell, vbCrLf) Then ActiveCell = Replace(ActiveCell, vbCrLf, " ") ElseIf InStr(ActiveCell, vbCr) Then ActiveCell = Replace(ActiveCell, vbCr, " ") ElseIf InStr(ActiveCell, vbLf) Then ActiveCell = Replace(ActiveCell, vbLf, " ") End If
Corto
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne pa r un espace. merci d'avance
Albator V
merci a vous 2
juste pour info, le retour a la ligne dans une cellule par combinaison alt+entrer correspond a chr(10) ou encore vbLf
merci encore
Bonjour Albator V, Le retour à la ligne peut être de 3 types (CHR(10), CHR(13) ou CHR(10)&CHR(13)), il existe des valeurs prédéfinies dans VBA qui sont respectivement vbLf, vbCr et vbCrLf. il faut donc tester les trois possibilités à moins que tu ne soit sûr de celui qui est utilisé :
If InStr(ActiveCell, vbCrLf) Then ActiveCell = Replace(ActiveCell, vbCrLf, " ") ElseIf InStr(ActiveCell, vbCr) Then ActiveCell = Replace(ActiveCell, vbCr, " ") ElseIf InStr(ActiveCell, vbLf) Then ActiveCell = Replace(ActiveCell, vbLf, " ") End If
Corto
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un espace. merci d'avance
merci a vous 2
juste pour info, le retour a la ligne dans une cellule par combinaison
alt+entrer correspond a chr(10) ou encore vbLf
merci encore
Bonjour Albator V,
Le retour à la ligne peut être de 3 types (CHR(10), CHR(13) ou
CHR(10)&CHR(13)), il existe des valeurs prédéfinies dans VBA qui sont
respectivement vbLf, vbCr et vbCrLf. il faut donc tester les trois
possibilités à moins que tu ne soit sûr de celui qui est utilisé :
If InStr(ActiveCell, vbCrLf) Then
ActiveCell = Replace(ActiveCell, vbCrLf, " ")
ElseIf InStr(ActiveCell, vbCr) Then
ActiveCell = Replace(ActiveCell, vbCr, " ")
ElseIf InStr(ActiveCell, vbLf) Then
ActiveCell = Replace(ActiveCell, vbLf, " ")
End If
Corto
Bonjour,
dans une cellule j'ai du texte avec un retour a la ligne. lorsque je
recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un
espace.
merci d'avance
juste pour info, le retour a la ligne dans une cellule par combinaison alt+entrer correspond a chr(10) ou encore vbLf
merci encore
Bonjour Albator V, Le retour à la ligne peut être de 3 types (CHR(10), CHR(13) ou CHR(10)&CHR(13)), il existe des valeurs prédéfinies dans VBA qui sont respectivement vbLf, vbCr et vbCrLf. il faut donc tester les trois possibilités à moins que tu ne soit sûr de celui qui est utilisé :
If InStr(ActiveCell, vbCrLf) Then ActiveCell = Replace(ActiveCell, vbCrLf, " ") ElseIf InStr(ActiveCell, vbCr) Then ActiveCell = Replace(ActiveCell, vbCr, " ") ElseIf InStr(ActiveCell, vbLf) Then ActiveCell = Replace(ActiveCell, vbLf, " ") End If
Corto
Bonjour, dans une cellule j'ai du texte avec un retour a la ligne. lorsque je recupere la valeur en vba, je souhaiterai remplacer ce saut de ligne par un espace. merci d'avance