Discussion :

[dado91400]

salut,

j'ai la colonne A1 comprenant : adresse1_adresse2_adresse3, où le contenu est de chaque cellule de ma colone A1 est x3 adresses séparées par un saut de ligne.

Je souhaite m'inspirer du programme ci-dessous pour non pas détecter un espace mais un saut de ligne.

y a t il une fonction saut de ligne?
comment puis-je faire?

Ou avez vous une idée plus simple?

merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'------- procedure pour scinder la requete -------------
    'La chaine sera scindée si sa longueur est supérieure à 80 caractères 
 
	Cible = Requete
        Requete = ""
 
        For i = 1 To Len(Cible)
            'Recherche le premier espace après le 80ème caractère        
            X = InStr(80, Cible, " ")
 
            If X = 0 Then
                Chaine = Cible
                Requete = Requete & """" & Chaine & """"
                Exit For
            End If
 
            Chaine = Mid(Cible, 1, X)
            Requete = Requete & """" & Chaine & """ & _" & vbCrLf
            Cible = Mid(Cible, Len(Chaine) + 1)
        Next
 
    Debug.Print Requete

[Krovax]

Je ne suis pas sur d'avoir compris ta demande mais pour chercher un retour a la ligne dans une cellule (et ainsi avoir deux ligne) on utilise Chr(10) fait une recherche en utilisant si j'ai bien compris la macro
Requete = Chr(10)