Bonjour à tous,

Je vais tâché d'être clair :

J'ai une cellule comprenant 3 chaines de caractères séparées par un saut de ligne.
dans ma cellule [A1], j'ai donc :
adresse1
adresse2
adresse3

Et je souhaiterai repérer les saut de ligne dans cette cellule pour couper coller sur les colonnes de droite : adresse1 en [B1] puis adresse2 en [C1] et adresse3 en [D1].

J'ai commencé ce code mais j'ai un peu de mal avec les chaines de caractères...

Comment continuer mon code ?
A+

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
Sub test_Rech_sautDeLigne()
 
'utilisation de la fonction InStr pour renvoyer la position de x2 sauts de ligne dans une même cellule
 
Dim SearchString, SearchChar, MyPos1, MyPos2
SearchString = Range("A1").Value ' cellule dans laquelle s'effectue la recherche de saut de ligne.
SearchChar = Chr(10)  ' Recherche la chaîne "P".
 
' recherche le 1er saut de ligne (en respectant les majuscules et les minuscules)
MyPos1 = InStr(SearchString, SearchChar)    ' Renvoie la position du 1er saut de ligne.
 
' recherche le 2ème saut de ligne, à partir du 1er (en respectant les majuscules et les minuscules)
MyPos2 = InStr(MyPos1, SearchString, SearchChar)
 
End Sub