Discussion :

[AlexeyKz]

Bonne journée! Dites-moi comment diviser le texte en colonnes selon les critères requis! Que chaque texte nécessaire était dans la colonne !! Macro ou formule? Le fichier indique exactement comment!

[MarcelG]

Bonjour,

Dites-moi comment diviser le texte en colonnes selon les critères requis

Pas d'accord.
Un minimum de recherche te donnera la méthode VBA pour scinder une chaîne de caractères selon un caractère défini.
Le résultat de cette méthode sera un tableau à une dimension.

[AlexeyKz]

Bonjour,



Pas d'accord.
Un minimum de recherche te donnera la méthode VBA pour scinder une chaîne de caractères selon un caractère défini.
Le résultat de cette méthode sera un tableau à une dimension.

puis-je voir à quoi ça va ressembler?

[MarcelG]

2 axes de recherche

sans VBA
"Scinder texte colonnes"

avec VBA
"Manipuler chaîne de caractères"

Trouvé en 1 minute.

[patricktoulon]

re
j'en ajoute une couche car j'ai regarder ton fichier en exemple
deja tu ne respecte pas ta demande dans toute les lignes comment veux tu que excel vba devine tes intentions (voir capture)

[AlexeyKz]

Désolé, vous pouvez être plus précis où vous avez montré un exemple de votre lien, alors j'utilise un traducteur difficile du russe vers le français, je m'excuse d'avance

[BENNASR]

la demande n'est pas claire surtout l'exemple est en langue russe
une piste peut servir comme début de réponse

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
Sub test()
 
    Dim Tableau
    Dim i As Integer
    Dim j As Integer
    Dim L As Long
    With Sheets("Feuil1")
    L = .Range("A" & Rows.Count).End(xlUp).Row
    Z = 2
    For j = 2 To L
    Tableau = Split(.Cells(j, 1), ",")
    For i = 0 To UBound(Tableau)
        .Cells(j, i + 2) = Tableau(i)
    Next i
    Next j
    End With
 
End Sub

[AlexeyKz]

En principe, comme il se doit, mais vous pouvez faire pour Shymkent Alatau district, district Almaty Al-Farabi, district Astana Almaty, était dans la colonne ville / village !!! MKR / UL se trouvaient dans la même colonne que MKR, rue Zhuldyz Azerbayzhan dans une colonne

[BENNASR]

A tester :

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
Sub test() 
    Dim Tableau
    Dim i As Integer
    Dim j As Integer
    Dim L As Long
     Application.ScreenUpdating = False
    With Sheets("Feuil1")
    L = .Range("A" & Rows.Count).End(xlUp).Row
 
    For j = 2 To L
    Tableau = Split(.Cells(j, 1), ",")
    On Error Resume Next
    For i = 0 To UBound(Tableau)
    Set Dc = Sheets("feuil1").Rows(1).Find(Tableau(i))
    c = Dc.Column
        .Cells(j, c) = Tableau(i)
    Next i
    Next j
    End With
     Application.ScreenUpdating = True
End Sub