Discussion :

[gregtw29]

Bonjour,

J'ai un fichier excel contenant les données suivantes sur les casinos en France:


J'ai donc trois colonnes: Commune, casino, societe

Je voudrais avoir un fichier excel sous cette forme: Commune, casino, adresse, code_postal, ville, complement_adresse, societe

Comme vous pouvez le voir le soucis est que certains casinos ont 4 lignes au lieu de trois pour la colonne Casino.

Je voulais donc savoir si c'était possible de faire une macro pour automatiser ce traitement, et si vous n'auriez pas un tuto ou des noms de commandes à me donner pour que je recherche des détails car pour le moment je ne trouve rien.

[ZebreLoup]

On peut le faire assez facilement, mais il faudrait une règle de traitement spécifique vu que le nombre de lignes peut varier. Peut-être que par exemple, on est sûr que la dernière ligne est toujours Code Postal + Ville et la première Nom du casino. Sinon, ce sera comme de jouer à la roulette (désolé, mais je n'ai pas pu me retenir)

[L'Albatros]

Pour commencer, on peut isoler facilement le code postal.
Ici, ce champ a 3 propriétés:

• il est composé uniquement de chiffres
• il est composé de 5 caractères
• il se situe en "fin de cellule"

on peut donc faire un double filtre:

• on prélève tous les chiffres présents dans une cellule
• on filtre pour ne garder que les 5 derniers chiffres

cf code ci-dessous, assez sale, mais facilement intégrable

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
23
24
25
26
27
28
29
30
31
32
Sub trouve_isole_code_postal()
 
Dim c As Range
Dim i As Integer, x As String, n As String
b = 1
 
Sheets("Feuil1").Select 'Sélection de la feuille contenant les données sources
Range("A1:A100").Select 'Sélection de la colonne des adresses
 
'Prélève les chiffres et les copie sur la même colonne mais en feuille 2
For Each c In Selection
    For i = 1 To Len(c)
        x = Mid(c, i, 1)
        If IsNumeric(x) Then n = n & x
    Next i
    If n <> "" Then
        Sheets("Feuil2").Range("A" & b).Value = n
        n = ""
        b = b + 1
    End If
 
Next c
 
'Pointe sur la feuille 2 et prélève les 5 derniers chiffres de la colonne nouvellement créée (un code postal a toujours 5 chiffres
Sheets("Feuil2").Select
 
'Ecrit le code postale dans la colonne juste à côté
For i = 1 To 100
    Cells(i, 2) = Right(Cells(i, 1), 3)
Next i
 
End Sub

[pc75]

Bonjour,

Je me suis "amusé" à bricoler un petit truc.

Il y a certainement des adaptations à faire.

[gregtw29]

Merci de votre aide.

@L'Albatros: Je vais tester ton script.

@pc75: As tu mis ta macro das ton fichier xls?
Je ne la vois pas.

[pc75]

Merci de votre aide.

@L'Albatros: Je vais tester ton script.

@pc75: As tu mis ta macro das ton fichier xls?
Je ne la vois pas.

Elles sont dans l'éditeur Visual Basic ; ce sont des fonctions personnalisées.

[ZebreLoup]

Voici ce que j'ai fait de mon coté

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
 
Public Sub TransformeListeCasino()
 
    Dim ws1 As Worksheet, ws2 As Worksheet
 
    Dim commune As String
    Dim casino As String
    Dim adresse As String
    Dim codePostal As Long
    Dim ville As String
    Dim complementAdresse As String
    Dim societe As String
 
    Dim i1, i2 As Integer
    Dim maxRow As Integer
    Dim row2 As Integer
 
    Set ws1 = Worksheets("FeuilleOriginale")
    Set ws2 = Worksheets("FeuilleDestination")
 
    maxRow = ws1.Range("B65000").End(xlUp).Row
 
    i1 = 2
    row2 = 2
    commune = ws1.Cells(i1, 1).Value
 
    Do While commune <> ""
        'On cherche la ligne de la commune suivante
        i2 = i1 + 1
        Do While ws1.Cells(i2, 1).Value = "" And i2 <= maxRow
            i2 = i2 + 1
        Loop
 
        societe = ws1.Cells(i1, 3).Value
        casino = ws1.Cells(i1, 2).Value
        adresse = ws1.Cells(i2 - 2, 2).Value
        codePostal = Left(ws1.Cells(i2 - 1, 2).Value, 5)
        ville = Right(ws1.Cells(i2 - 1, 2).Value, Len(ws1.Cells(i2 - 1, 2).Value) - 6)
        complementAdresse = IIf(i2 - i1 >= 4, ws1.Cells(i2 - 3, 2).Value, "")
 
        ws2.Cells(row2, 1).Value = commune
        ws2.Cells(row2, 2).Value = casino
        ws2.Cells(row2, 3).Value = adresse
        ws2.Cells(row2, 4).Value = codePostal
        ws2.Cells(row2, 5).Value = ville
        ws2.Cells(row2, 6).Value = complementAdresse
        ws2.Cells(row2, 7).Value = societe
        row2 = row2 + 1
 
        i1 = i2
        commune = ws1.Cells(i1, 1).Value
    Loop
 
End Sub

@l'Albatros : Je n'ai pas bien compris ce que tu essayais de faire dans ton code, mais juste une remarque : On essaie régulièrement de sensibiliser les débutants pour qu'ils évitent au maximum les Select ou Activate dans leur code (vraiment une grosse source d'erreurs et de ralentissements potentiels), alors il serait surement mieux d'essayer de leur proposer du code sans ça.

Je précise que mon code part du principe que les données de la colonne B sont sur plusieurs lignes et que les cellules des colonnes A et C sont fusionnées, ce qui me semblait être le cas dans la capture d'écran, d'où la différence avec les autres codes.