"Problèmes multiples avec Range("A1").SpecialCells(xlCellTypeLastCell).Row"

Citation:

---

Envoyé par ouskel'n'or

Range(...).SpecialCells(xlCellTypeLastCell)
S'il existe ou non des lignes vides dans dans la feuille, donne la dernière ligne absolue de la feuille
Attention : Si des lignes sont supprimées dans la plage, enregistrer le fichier pour avoir le réel N° de la dernière ligne (idem pour les colonnes supprimées)

Code:

---

DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

Range(...).SpecialCells(xlCellTypeLastCell).address
Donne l'adresse absolue de la dernière cellule renseignée de la feuille

Code:

---

AdresseAbsolue = Range("A1").SpecialCells(xlCellTypeLastCell).address

---

---

Ces deux "astuces" ne sont guère claire pour moi :? Le périmètre d'action reste la plage et non la feuille ???

Si je reprends les exemples Range("A1").SpecialCells(xlCellTypeLastCell).Row = 1 et Range("A1").SpecialCells(xlCellTypeLastCell).Adress = $A$1 peu importe ce qu'il y a dans la feuille ???

Citation:

---

Envoyé par Currahee

Ces deux "astuces" ne sont guère claire pour moi :? Le périmètre d'action reste la plage et non la feuille ???

Si je reprends les exemples Range("A1").SpecialCells(xlCellTypeLastCell).Row = 1 et Range("A1").SpecialCells(xlCellTypeLastCell).Adress = $A$1 peu importe ce qu'il y a dans la feuille ???

---

J'ai pigé...

Faut rajouter pour être clair la feuille sur laquelle on agit, ce ne doit pas être implicite :
ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
Worksheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

Là ça marche :D

C'est clair que si tu cherches la dernière ligne renseignées "d'une feuille de calculs", tu dois au minimum appliquer le code à "la" feuille de calculs concernée ;)
Allez, c'est mieux en le disant pour les distraits :mouarf:

Citation:

---

Envoyé par ouskel'n'or

C'est clair que si tu cherches la dernière ligne renseignées "d'une feuille de calculs", tu dois au minimum appliquer le code à "la" feuille de calculs concernée ;)
Allez, c'est mieux en le disant pour les distraits :mouarf:

---

Sauf que j'ai dit que ça marchait après avoir testé sur un nouveau classeur excel en remplissant 2-3 cases au hasard.

Mais dans le prog ou je voulais vraiment trouver ma dernière ligne, ces codes ne fonctionnent pas...

Il me donnent le numéro de la dernière ligne visible à l'écran quand je descends à fond avec la barre de défilement vertical (sans toucher à la flèche "vers le bas" associée à cette barre).

J'ai imaginé qu'il y avait peut-être une valeur que je ne voyais pas sur ces lignes, du coup ma feuille ne contenant qu'un tableau, j'ai supprimmé toutes les lignes en dessous du tableau sans succès. Je ne récupère toujours pas le bon numéro de ligne... :oops:

As-tu bien tout lu ?

Citation:

---

Envoyé par L'exemple dit : "Attention :"

Si des lignes sont supprimées dans la plage, enregistrer le fichier pour avoir le réel N° de la dernière ligne (idem pour les colonnes supprimées)

---

... non, t'as pas tout lu ;)

Citation:

---

Envoyé par ouskel'n'or

As-tu bien tout lu ?
... non, t'as pas tout lu ;)

---

Si j'ai tout lu, et même après suppression des lignes + enregistrement, cela ne fonctionne pas... ;)

Par contre :

Si j'enleve tout le code non en rapport avec le sujet, et toutes les feuilles de mon classeur pour ne garder qu'une feuille avec mon tableau + le code pour calculer ma dernière ligne, et bien...

Ca ne marche toujours pas... :? Je dirai même plus, une fois sur deux excel plante et se ferme ("voulez-vous envoyer le rapport d'erreur.. etc...")

MAIS si maintenant je crée un NOUVEAU classeur, que je copie ma feuille à l'intérieur et que j'importe les deux modules avec les 5-6 pauvres lignes de code qu'ils contiennent, sans faire aucune modif ni au code, ni à la feuille copiée, j'obtiens un classeur strictement identique au précédent qui plantait, et là ça fonctionne, j'obtiens bien la dernière ligne recherchée... :?

CONCLUSION : Mon fichier initial semble corrompu quelque part... :? Mon classeur sert à la fois de prog et de bdd (ok c'est pas bien...), et il subit donc 4 à 5 enregistrements par jour depuis 3 mois... Ceci explique peut-être cela question::question::question:

J'allais oublier... Avant de me rendre compte que mon fichier avait un souci, il m'a bien fallu coder une autre fonction pour trouver ma dernière ligne... Dans le genre tordue la voici... :

Code:

---

1 2 3 4 5

Public Function Derniere_Ligne(ByRef p_feuille As Worksheet, ByVal p_ligne As Integer, ByVal p_colonne As Integer) As Long Dim l_adresse As String l_adresse = p_feuille.Cells(p_ligne, p_colonne).CurrentRegion.Address Derniere_Ligne = Right(l_adresse, InStr(1, StrReverse(l_adresse), "$") - 1) End Function

---

NB : p_feuille.Cells(p_ligne, p_colonne).CurrentRegion.End(xlDown).Row me donne la même ligne à la con que la méthode avec .SpecialCells(xlCellTypeLastCell).Row

Et si j'enchaine directement l'exécution dans mon programme de deux lignes de code type :
p_feuille.Cells(p_ligne, p_colonne).CurrentRegion.Address
p_feuille.Cells(p_ligne, p_colonne).CurrentRegion.End(xlDown).Row
J'obtiens avec la seconde ligne de code un numéro de ligne qui ne correspond pas au numéro de ligne associé à la cellule inférieure droite de ma région, cellule indiquée dans l'adresse récupérée avec la premiere ligne de code...
Mon fichier a bu un coup de trop je crois... :?

Comme je suis certain que si tu réunis ces deux conditions :
1 - Nommer la feuille sur laquelle tu veux mesurer le nombre de lignes (ce qui me paraît pour le moins une évidence !)
2 - Enregistrer le classeur contenant la feuille concernée, pas un autre, avant de mettre ta ligne de code

Code:

---

DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

que ce code donne bien la dernière ligne renseignée de ta feuille de calculs malgré des lignes ou des colonnes supprimées, et afin de ne pas brouiller le message que j'ai essayé de faire passer dans Contribuez, j'ai déplacé tes messages sur ce forum.
Ici, on peut continuer de discuter si tu le souhaites, tu auras tout le forum pour ne répondre.