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 :
La macro bloque sur la ligne 12.
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
Merci pour vos idées.
Cordialement
Partager