La méthode 'Range' de l'objet '_Worksheet' a échoué

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:

---

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

Bonjour,

Il serait intéressant que tu affiches la fenêtre "variables locales" afin de vérifier la valeur de LigFin lors de l’arrêt de la procédure.

Cordialement.

Bonjour,
Merci pour idée qui me donne un résultat intéressant.
En faisant la macro pas à pas avec l’affiche des variables locales, tout se passe de manière cohérente jusqu'à la colonne 6 (c'est bien la que se situe mon pb)
La variable Lig indique la première cellule vide de la colonne J (où j'ajoute mes listes au fur et à mesure)
C'est effectivement la variable LigFin qui pose problème.
Tout se passe bien (compte le nombre de cellules non-vide de la colonne), jusqu'à la colonne 6 qui contient 5 cellules non vides et le compteur en compte 1048576.
Je ne vois pas trop quel est le problème
Merci

Bonjour,

En colonne 6, si LigFin vaut 1048576, c’est qu’il n’y a pas de cellule renseignée sous la cellule F2 puisque cette détermination est faite avec l'instruction

Code:

---

LigFin = Cells(2, Col).End(xlDown).Row

---

Cordialement.

Bonjour,
Merci pour cette info qui m'était passée inaperçue.
Effectivement, dans la colonne 6, seules les 2 premières cellules étaient remplies.
J'ai ajouté qqchose et c'est bon.
Bref, ....
Merrci beaucoup.
Cordialement

Salut,

Citation:

---

J'ai ajouté qqchose et c'est bon

---

Je ne crois pas que cela soit la bonne solution.
Mieux vaut partir du bas de la feuille, ce qui n'empêcherait pas de déclarer une condition pour la suite du code

Code:

---

1 2 3 4

With Worksheets("lawks") derlign = . Cells(.Rows.Count, 12).End(xlUp).Row If derign < ... End With

---

Pour ma part, j'aurais alimenté un tableau dont la transposition serait reversée à partir de la 1ère cellule de destination.
Mais c'est un autre sujet.