Discussion :

[dado91400]

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

[pgz]

Bonjour.

Ensuite? la fonction Mid. Et pense à typer tes variables...

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
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 As String, SearchChar As String, MyPos1 As Integer, MyPos2 As Integer
Dim s1 As String, s2 As String, s3 As String
SearchString = Range("A1").Value ' cellule dans laquelle s'effectue la recherche de saut de ligne.
SearchChar = vbLf  ' Recherche la chaîne "P".
 
' recherche le 1er saut de ligne (en respectant les majuscules et les minuscules)
MyPos1 = InStr(1,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)
 
s1 = Mid$(SearchString, 1, MyPos1 - 1)
s2 = Mid$(SearchString, MyPos1 + 1, MyPos2 - 1)
s3 = Mid$(SearchString, MyPos2 + 1)
End Sub

A mettre au point.

PGZ

[Jean-Philippe André]

Bonjour,
grand fan de la fonction Split, je propose cette approche

Code :

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

1
2
3
4
5
Dim a As Variant
a = Split(Range("A1").value,chr(10))
Range("A1").value = a(0)
Range("B1").value = a(1)
Range("C1").value = a(2)

[mnarchi]

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
Dim cel As Range
Set cel = Range("A1")
 
n = Len(cel)
c = 2
x = 1
y = 1
For i = 1 To n
    If Mid(cel, i, 1) = Chr(10) Then
        x = y
        y = i + 1
        Cells(1, c) = Mid(cel, x, y - x - 1)
        c = c + 1
    End If
Next
Cells(1, c) = Mid(cel, y, i - y)
Set cel = Nothing

[CodeFacile]

Code :

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

MyPos1 = InStr(SearchString, SearchChar)

La suite du code coule de source

comme

Code :

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

1
2
3
4
5
6
7
8
s1 = Mid$(SearchString, 1, MyPos1 - 1)
s2 = Mid$(SearchString, MyPos1 + 1, MyPos2 - 1)
s3 = Mid$(SearchString, MyPos2 + 1)
 
 
Range ( "B1") = s1
Range ( "C1") = s2
et .

[dado91400]

Merci à tous!

Je suis partie sur le code de CODEFACIL :


cependant j'obtiens une erreure lors de l'exé : erreur d'éxecution 9 : l'indice nappartient pas à la sélection.

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()
 
'Dim a As Variant
'Dim i As Integer
 
For i = 0 To 10
 
a = Split(Range("J1").Offset(i, 0).Value, Chr(10))
Range("K1").Offset(i, 0).Value = a(0)
Range("L1").Offset(i, 0).Value = a(1)
Range("M1").Offset(i, 0).Value = a(2)
 
Next i
 
End Sub