VBA Problème avec .SpecialCells(xlCellTypeLastCell)

Bonjour à tous,

Voici mon problème :

1 - Dans mon processus je suis amené à réinitialiser une feuille de travail (wsFeuilleSortie) sans effacer la ligne n°1 afin de conserver les titres de colonnes.
Pour cela je récupère le n° (X) de la dernière ligne de la plage de données figurant dans cette feuille et je supprime les lignes correspondantes de la ligne 2 incluse à la ligne X incluse.
Voir le code ci-dessous :

Code:

---

1 2 3 4 5 6

.... wsFeuilleSortie.Activate lDerniereLigneWbS = wsFeuilleSortie.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1 MsgBox lDerniereLigneWbS ' --> = wsFeuilleSortie.Rows("2:" & lDerniereLigneWbS).EntireRow.Delete ....

---

2 - Ensuite dans mon processus, je compile des données venant d'autres feuilles en plaçant les lignes de données les unes à la suite des autres.
Voir le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9

For Each vfichier In stLstfichiers Set wbEntree = Workbooks.Open(vfichier, ReadOnly:=True) ' Pour chacune des feuilles du fichier d'entrée For Each wsFeuilleEntree In wbEntree.Worksheets ' On récupère l'adresse de la dernière ligne du fichier de compilation _ que l'on incrémente pour se positionner sur la ligne suivante (libre) lDerniereLigneWbS = wsFeuilleSortie.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1 .... ET c'est là que cela "coince" !!!

---

Cela "coince" :cry:car lors de la première passe dans la 1ère boucle FOR et la suivante, le n° de dernière ligne (lDerniereLigneWbS) récupéré est le même que celui récupéré à l'étape 1 soit 'X' alors qu'après la suppression des lignes de données il aurait du être égal à '2' puisqu'il n'existe plus de données dans la feuille.

J'ai bien essayé de modifier ma méthode de suppression de lignes en utilisant d'autres méthodes de sélection de lignes mais rien y fait, lors de l'appel à '.SpecialCells(xlCellTypeLastCell)' au premier passage dans l'étape 2 je récupère toujours le n° de la dernière ligne de données présentes avant l'effacement. Pour les passages suivants, pas de problèmes, tout est OK, ma recopie de lignes de données s'effectue bien à la suite des précédentes.

Si avec ces quelques explications, qq'un peut SVP m'aider à corriger ce problème, il sera le bienvenu.
D'avance MERCI de vos réponses.

Cordialement
oracle7 ;););)

Bonsoir,
essayes comme ça étant donné que toutes les entrées sont supprimmées à partir de la ligne 2

Code:

---

1 2 3 4 5 6 7 8

lDerniereLigneWbS = 2 For Each vfichier In stLstfichiers Set wbEntree = Workbooks.Open(vfichier, ReadOnly:=True) ' Pour chacune des feuilles du fichier d'entrée For Each wsFeuilleEntree In wbEntree.Worksheets ' On récupère l'adresse de la dernière ligne du fichier de compilation _   que l'on incrémente pour se positionner sur la ligne suivante (libre) lDerniereLigneWbS = lDerniereLigneWbS + 1

---

....

Bonsoir casefayere

1 - Merci de ta réponse qui marche aussi.

2 - En fait j'ai trouvé entre temps par hasard la solution dans le guide de JM RABILLOUD "VB-VBA Programmer efficacement Microsoft Excel" disponible sur le présent site.

Je l'indique ici pour qu'elle profite à d'autres qui rencontreront ce problème.

En fait, selon JM RABILLOU, je l"ecite : "Excel ne remet pas à jour automatiquement l'adresse de la dernière cellule lors d'un effacement. Pour forcer la mise à jour, il faut faire appel explicitement à la propriété UsedRange."

Donc dans mon cas le code correct est :

Code:

---

lDerniereLigneWbS = wsFeuilleSortie.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

---

Ainsi je récupère le bon numéro de ligne après effacement.

Au final je considère mon post comme résolu.

Merci encore de ton aimable aide.
Cordialement
oracle7 ;););)

re bonsoir,
fais ce test sur fichier vierge

Code:

---

1 2 3 4 5

Sub test() Dim l l = Sheets("feuil1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 MsgBox l End Sub

---

sur ta feuille 1 tu te contentes de mettre ce que tu veux, ex. A en a1, b en b1, C en c1, D en d1
lance la procédure", le résultat sera bien sur 2. Maintenant, donnes un format de cellules à "A1:d8" sans entrer de données (ex. date) et regardes le résultat de cette macro, pourtant tu n'as pas d'autres données. C'était juste pour dire que je me méfie de Usedrange

Bonne nuit