recherche de ligne

P

potti

Guest
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Modérateur
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