Bonjour,
J'ai développé une macro dont le but est de créer une liste complète à partir d'autres listes.
Toutes sont dans le même onglet
J'ai actuellement 8 listes de domaines contenant différents sous-domaines. Chaque liste est en colonne et la première ligne contient un mot pour définir chacun des 8 domaines.
Il y a ensuite une colonne vide, pour faire séparateur, puis une colonne qui fait l'objet de la macro.
Il s'agit de prendre les sous-domaines de chaque colonne et de les ajouter en-dessous pour créer une liste complète. Dans la liste complète les 2 premières cellules ne doivent pas être modifiées.
Ma macro fonctionnait bien jusqu'ici mais à présent elle ne fait plus la concaténation de toutes les colonnes, elle s'arrête après après avoir collé les sous-domaines de la 5ème colonne.
Voici ma macro :
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
Private Sub Worksheet_Activate()
    'On efface la liste existante en col "J" sauf les 2 premières lignes
    Lig = Range("J1").End(xlDown).Row
    If Lig < 3 Then Lig = 3
    Range("J3:J" & Lig).Delete
    'On recopie les colonnes de "A" à la première colonne vide en col "J"
    Lig = 3
        'Application.EnableEvents = False
        For Col = 1 To Range("A1").End(xlToRight).Column
        LigFin = Cells(2, Col).End(xlDown).Row
        Set W = Range(Cells(2, Col), Cells(LigFin, Col))
        Range("J" & Lig & ":J" & Lig + LigFin - 2) = W.Value
        Lig = Lig + LigFin - 1
        'Application.EnableEvents = True
    Next Col

End Sub
La macro bloque sur la ligne 12.
Merci pour vos idées.
Cordialement