recherche de ligne

[potti]

Bonjour le forum,

J'ai un problème avec la recherche de la dernière ligne affichant une certaine valeur fixe.

Je m'explique :

J'ai une base de données et une de mes colonnes contient la catégorie de mon produit. Ma base de données est classé justement pâr ces catégories.

Je cherche en fait à insérer une ligne en dessous de la derniere ligne contenant la catégorie voulue (l'utilisateur renseigne cela ds un userform) quand je click sur un bouton ok de mon userform.

en bref, l'essentiel est de savoir comment je dois faire pour selectionner la derniere ligne selon la catégorie choisie.

Bon je sais que mon problème est compliqué, mais si vous avez une solution ou une idée je serais ravi de la lire 🙂

merci d'avance a tous les utilisateurs du forum

 

[Robert]

Bonjour Potti, bonjour le forum,

Pour atteindre la première cellule vide de la colonne A :
Range('A65536').End(xlUp).Offset(1, 0).Select

En fait on part de la dernière cellule de la colonne Range('A65536'), on remonte jusqu'à la première cellule éditée, End(xlUp), puis on redescent d'une ligne pour atteindre la première ligne vide, Offset(1, 0).

 

[PascalXLD]

Bonjour

Peut-être du style en reprenant ce que vient de dire Robert

dim Maligne as integer, x as integer

Maligne=range('A65536').end(xlup).row

for x = maligne to 1 step -1
if range('A' & Maligne)=macategorie then exit for
next x

'Et maintenant ta dernière ligne de ta catégorie c'est x

Bon courage

 

[potti]

Grand merci à vous Robert et Pascal76

Je pense maintenat pouvoir m'en sortir grâce à la méthode step -1 que je ne connaissait pas en VBA.

Merci encore pour cette aide précieuse.


🙂

 

[Robert]

Bonjour Potti, Pascal, bonjour le forum,

Désolé Potti j'avais mal lu ton post et du coup mal répondu... Heureusement Pascal assure un max. Merci pour lui qui veille au mauvais mots des rateurs.