Recherche de retour chariot

Question

Bonjour, g une question de débutant:

j'ai du texte dans Excel avec des retours chariots que je souhaiterais éliminer.
J'ai donc un test dans une boucle :
If Mid(STOC, CPT, 1) = ...
où STOC est le texte et CPT un compteur.

Que dois-je mettre à la place des 3 points pour tester la présence de ce retour chariot???

Merci d'avance :-)

BasicInstinct · Answer

chr(13)+chr(10) 

ca fait 2 caracteres

 :clown)  BasicInstinct  :clown)

yohan210 · Answer

chr (13)+ chr(10) = vbcrlf

dddap · Answer

J'ai essayé mais ca ne marche pas; je dois avoir la polio.

Voici la quasi-totalité de mon code(sachant qu'il y a en plus un passage de cellule en cellule):

Dim CPT As Integer
    Dim STOC As String
    Dim WORD As String
    

 STOC = ActiveCell.Value
        CPT = 1
        WORD = ""
        Do While CPT <= Len(STOC)
            If Mid(STOC, CPT, 1) <> vbCrLf Then
                WORD = WORD & Mid(STOC, CPT, 1)
                CPT = CPT + 1
            Else
                WORD = WORD & ","
                CPT = CPT + 1
             End If
        Loop
        ActiveCell.Value = WORD

Le problème est que même en passant sur le retour chariot, le test reste ne le détecte pas
J'ai aussi essayé avec vbcr, vblf et même deux fois de rang vbcrlf. Ca n'a rien donné.

Qui peut m'aider???

BasicInstinct · Answer

c pas la polio, c'est que tu n'as pas regardé mon msg d'avant !
If Mid(STOC, CPT, 2) <> vbCrLf Then
 :clown)  BasicInstinct  :clown)

dddap · Answer

Eh oui, faut que je m'achète des yeux. En tout cas, ça marche et je te remercie vraiment pour ton aide.
;-))

Recherche de retour chariot

5 réponses

Discussions similaires