Problème dernière ligne tableau dans formulaire VBA

Question

Débutant en VBA, je rencontre quelques difficultés concernant certains tests que je voudrais faire. Je m'explique: j'ai un tableau excel ("recettes") contenant un certain nombre de colonnes et quelques lignes d'exemple dont la première ligne est l'intitulé des colonnes. Le tableau en question est un récapitulatif de recettes (nom de la recette, liste des ingrédients séparés par un ";" etc..) J'ai donc deux soucis: 1) J'ai créé un formulaire vba qui me permet grâce à un bouton précédent et suivant de naviguer entre les différentes lignes (recettes) de mon fichier excel. Par contre je n'arrive pas à tester correctement le dernier enregistrement. En effet, à la première utilisation de mon formulaire, mon test fonctionne car arrivé à la dernière ligne de mon tableau en cliquant sur mon bouton suivant, il affiche le message "dernier enregistrement". Jusque là parfait. Sauf que quand je reclique sur suivant après ce message, il descend à nouveau d'une ligne et m''affiche" donc un enregistrement vide. Il ne teste donc qu'une fois cette condition alors que je voudrais qu'il le fasse tout le temps. Veuillez trouver ci joint le code que j'ai créé (inspiré de plusieurs forums): 2) Comme je l'indiquais tout à l'heure ma deuxième colonne du tableau excel contient une liste d'ingrédients, ingrédients chacun séparé par des ";" Ce que je voudrais faire mais que je n'arrive pas à trouver en programmation vba, serait de créer dans mon formulaire une combobox avec un item par ligne avec par ex item1 = ingrédient1 item2 ingrédient2 etc. Merci de votre compréhension. En espérant avoir été assez clair dans mes explications. Dans l'attente d'une réponse, je vous souhaite une bonne journée...

galopin01 · Answer

Dans ce forum l'usage est de joindre un fichier anonymisé et éventuellement simplifié (Une base de donnée de 10 000 lignes n'est pas utile. 2 ou 3 suffisent...) afin qu'on ne perde pas de temps à bricoler des trucs qui de toute façon ne correspondront jamais à ton fichier... A+...

AMIR · Answer

Avant continuer votre projet regarder cette presentation ...

galopin01 · Answer

Déjà je vais te donner 1 ou 2 conseils "généraux" - évite d'utiliser des noms de variables en une seule lettre à l'exception de i, j, k que tu peux utiliser en minuscule comme compteur de boucles dans une expression For i= 1 To... Next (éviter aussi le i majuscule que l'on confond trop facilement avec le chiffre 1) et le O majuscule trop ressemblant avec le zéro. - évite d'utiliser des noms trop long pour des variables courantes : iR conviennent très bien pour la ligne en cours et iLR pour LastRow... ça évitera à ton code d'avoir un aspect peu appétissant qui ne donne pas envie de lire ton code Dans 90 % des cas ces variables devraient te suffire (avec iC pour les colonnes) Les cas restant sont ceux ou tu compares 2 feuilles dans ce cas tu vas avoir iRA et iRB, iLRA et iLRB, ICA et iCB pour les feuilles A et B... Il s'ensuit de ce qui précède que tu as déjà une variable de trop (CurrentRow, LastRow et L ... Nous n'utiliserons que iR et iLR : Dimensionnés au début du module : Dim iR&amp;, iLR&amp; ' (&amp; = As Long) iLR doit être initialisé dans le Userform_Initialize et il n'y a pas à y retoucher ensuite jusqu'à la fermeture du USF : UserForm_Initialize iLR = Range("A" &amp; Rows.Count).End(xlUp).Row Après tu peux positionner iR ou tu veux...et te balader dans ta BD tant que tu veux. Si l'utilisateur confirme qu'il veut ajouter une ligne alors iR = iLR +1 et la dernière opération est alors ILR = iLR +1 (ce qui évite d'avoir à réinitialiser le Formulaire) Nota : Il faut éviter les commentaires évidents dans le code, ça nuit à la lisibilité... Il y a quelque chose que tu ne comprends pas dans mon code ? Ton fichier Modifié en pièce jointe A+...