[VBA-E] UsedRange pour la recherche de la dernière cellule

Malgré une lecture attentive des tutoriaux... je n'arrive pas à trouver l'adresse de la dernière cellule en utilisant
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
car ça me renvoit tjs comme adresse la dernière cellule qui a été écrite puis effacée.
Apparement ça ne fait pas la mise à jour malgré le usedrange,

Merci

J´ai eu le même problème (la cellule est vide en contenu, mais "contient" toujours un format.
Ma solution est "force brute": une boucle sur la colonne qui teste le paramêtre IsEmpty pour chaue cellule (si tu ne connais pas la dernière colonne du tableau, tu peux insérer cette boule dans une autre qui balaye les colonnes de A à ...)

Code:

---

1 2 3 4 5

For z = 1 To 1000 If IsEmpty(Range("a" & z)) = False Then compteur = z End If Next z

---

en fin de boucle, z est ton indice de dernière ligne
inconvénient: cela marche chez moi parce que toutes les cellules de mon tableau sont de toutes facons remplies (par défaut, un "0" ou un "~"), mais si la dernière cellule de ton tableau est vide...

Bonjour

Si tu veux la derniére cellule

Code:

---

1 2	wks.UsedRange.Rows.Count

---

avec wks ta feuille

Starec

Citation:

---

Envoyé par kptn_kvrn

ça me renvoit tjs comme adresse la dernière cellule qui a été écrite puis effacée.

---

Sauver le fichier avant de chercher la dernière cellule...

Non désolé mais ça ne marche pas même en sauvant le fichier d'abord...
Reste la méthode de comptage des colonnes... pas terrible mais bon :?

Citation:

---

Non désolé mais ça ne marche pas même en sauvant le fichier d'abord...

---

Tu ne dois enregistrer le fichier qu'après suppression des lignes. Fonctionne aussi bien en version 97 que 2003.
Ceci dit UsedRange t'indique le nombre de ligne de la plage de données.
Si tu as une ligne vide dans tes données, il indique la dernière ligne de la plage contenant la cellule active. Très risqué comme méthode.
Sinon, tu as d'autre syntaxes. Je les reprends toutes (enfin, pas toutes mais les plus simples)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Dernière ligne renseignée de la plage contenant la cellule active DerniereLigne = ActiveCell.CurrentRegion.End(xlDown).Row   'Dernière ligne avant ligne vide -> Innexacte si ligne vide dans la plage DerniereLigne = ActiveSheet.UsedRange.End(xlDown).Row   'La colonne A doit être la plus longue pour donner la dernière ligne renseignée de la feuille DerniereLigne = Range("A65535").End(xlUp).Row   'S'arrête à la première ligne vide DerniereLigne = Range("A1").End(xlDown).Row   'Indique toute la plage renseignée ou modifiée, en cas de suppression de ligne, DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

'contraint d'enregistrer le fichier après suppression

Code:

---

1 2 3 4

rows(10).delete shift:=xlUp ActiveWorkbook.save DoEvents 'laisser au fichier le temps de s'enregistrer DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

A+