Discussion :

[wilfryjules]

Apparemment la méthode MonRange.end(xldown) ne marche pas s'il y a des cellules vides entre les cellules remplies... dans ce cas elle va renvoyer la première cellule remplie avant la première cellule vide////

Ici en admettant que mon_range est cette colonne, mon_range.end(xldown) va renvoyer 2.... or j'attends 3.... Si quelqu'un a une explication simple pour obtenir la valeur 3.. Merci :

4
5
4
4
2

1
3

[Pierre Fauconnier]

Salut.

Le principe est de partir de tout en bas de la feuille et de remonter pour "buter" sur la dernière cellule remplie d'une colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1048576").end(xlup)

Pour être compatible toutes versions, tu peux utiliser le code suivant, avec sh pointant vers une feuille de travail valide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a" & sh.Rows.Count).End(xlUp)

Souvent, pour ce genre de recherche, il est préférable d'utiliser un tableau structuré. La dernière cellule se trouve alors encore plus facilement, et l'ajout d'une nouvelle ligne au tableau aussi.

Attention avec certains raccourcis que je voie parfois sur les forums!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a" & Rows.Count).End(xlUp)

Est un code qui ne fonctionnera que si la feuille active est une feuille de travail. Le code plantera si la feuille active est une feuille de graphe, par exemple. Idem en préfixant Rows avec ActiveSheet, qui doit aussi pointer vers une feuille de travail.

[wilfryjules]

Merci pour cette réponse, effectivement ça marche bien.

Maintenant, dans la même logique, je souhaiterais trouver le numéro de ligne correspondant à la valeur trouvée. Mais s'il y a d'autres valeurs identiques à celle-ci, range.find me renvoit la première trouvée (en partant du haut) or je souhaite la dernière.

ex:
-- A
1 1648
2 1345
3 1922
4 3000
5 2100
6 2033
7 3000

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastValue = Range("a" & Rows.Count).End(xlUp)

me renvoie 3000

Mais si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RlineFin = Range("a").Find(lastValue)

me renvoie 4 et non pas 7 comme je souhaite.

La solution doit être identique (xlUp ou Previous) mais je n'y arrive pas.

[Qwazerty]

Salut

Peux-tu expliquer un peu plus globalement ce que tu souhaites faire?

Si tu veux le numéro de la dernière ligne il te faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim lgLastRow as long
 
lgLastRow = Feuil1.Range("a" & Feuil1.Rows.Count).End(xlUp).row

Je rejoins Pierre (que je salue ) sur l'utilisation des tableaux structurés qui à mon sens facilite grandement l'écriture du code.

++
Qwaz

[wilfryjules]

Un grand

Mais j'ai marqué résolu un peu vite.

Voici ma situation:
j'ai une table dans cette feuille, que je redimensionne en fonction de la dernière valeur trouvée dans la première colonne (avec votre méthode).

Donc quand j'ajoute une donnée à la fin de la première colonne, pas de soucis, elle est détectée, et je peux agrandir ma table.

Par contre, lorsque je supprime à nouveau cette donnée, votre méthode me renvoie toujours la dernière cellule du tableau, même si elle est vide à présent.
Donc je pense que cette méthode considère comme remplie toute cellule occupée par un objet (ici la table), même si cette cellule est textuellement vide.

Je veux donc une méthode qui me renvoie la dernière cellule avec une valeur écrite dedans et non la dernière cellule occupée par un objet.


Mon code se trouve dans le worksheet change de la feuille en question.

[wilfryjules]

Je m'en suis donc sorti comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Set Rc = MaTable.Range ' attention, ici la 1ere ligne est celle des titres
   Set Rtd = MaTable.ListColumns(1).Range
   ncols = MaTable.listColumns.count
 
   derline = Range("A" & Rows.Count).End(xlUp).Row
 
   While IsEmpty(Rtd.Cells(derline))
      derline = derline - 1
   Wend
 
   ' On redimensionne le tableau à partir de la dernière ligne des abscisses remplie
    Set Rc = Rc.Resize(derline, ncols)
    MaTable.Resize Rc

Mais je trouve pas ça très Tsaresque....

[Pierre Fauconnier]

C'est parce que tu utilises justement un tableau structuré.

Au lieu de vider la cellule, supprime la ligne du tableau, et tu n'auras pas ce problème.

[Pierre Fauconnier]

Puisque tu travailles avec un tableau structuré, utilise ce tableau en VBA plutôt que la feuille entière.

Le code suivant renvoie la dernière cellule de la première colonne du tableau appelé Tableau1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("tableau1").ListObject.ListColumns(1).databodyrange(range("tableau1").Rows.Count)

Si tu connais le nom de la colonne dont tu cherches la dernière valeur, tu peux utiliser ceci pour pointer vers la dernière cellule d'une colonne particulière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("tableau1[prénom]")(range("tableau1[prénom]").Count)

Puisque les codes ci-dessus renvoient une cellule, tu peux utiliser derrière les propriétés et méthodes liées à un objet Range. Tu peux aussi attribuer l'objet à un objet cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim rng As Range
Set rng = range("tableau1[prénom]")(range("tableau1[prénom]").Count)

Si tu souhaites supprimer la dernière ligne du tableau, tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("tableau1").ListObject.ListRows(range("tableau1").Rows.Count).Delete

Tu peux aussi bien sûr utiliser un objet ListObject qui facilite la manipulation et la lecture du code. Voici un code qui utilise un objet ListObject ET un objet Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test1()
  Dim ls As ListObject
  Dim rng As Range
 
  Set ls = Range("tableau1").ListObject ' Affectation du tableau structuré à une variable
  Set rng = ls.ListColumns(1).DataBodyRange(ls.ListRows.Count) ' Affectation de la dernière cellule de la première colonne du tableau à un objet
  Debug.Print rng.Address ' Utilisation de l'objet Range récupéré
  Debug.Print rng.Value ' Utilisation de l'objet Range récupéré
  ls.ListRows(ls.ListRows.Count).Delete ' Suppression de la dernière ligne du tableau
End Sub

[ceciledary]

Rajoute simplement .offset(1,0) cela décale ta sélection d'une ligne vers le bas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mon_range.end(xldown).offset(1,0)