Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
Repose en paix
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
 
P

potti

Guest
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

XLDnaute Barbatruc
Repose en paix
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.
 

Discussions similaires

Réponses
28
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…