Gestion doublons Textbox

Ed's

XLDnaute Nouveau
Bonjour tout le monde,

je me tourne vers vous, du à un souci qui est hors mes conaissances.
j'ai un fichier de consultation avec des textbox et mon souci c'est que quand je trouve des doublons j'aimerais pouvoir choisir la valeur suivante avec un bouton de commande.

quand je saisi une valeur sur le textbox1(ListArt), j'ai la recherche qui se fait sur l'onglet Nomenclature_MGB pour me trouver la valeur de l'article halb, mais si j'ai des doublons de l'article choisi sur la colonne B, j'ai seulement la valeur de la premiere ligne qui s'affiche sur la textbox34 et mon idée serait d'avoir un bouton de commande pour pouvoir choisir la valeur de la ligne suivante.
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

En pièce jointe et pour exemple un test à finaliser avec un combobox 2 colonnes.
J'ai nommé 'Articles' les cellules B6:C876 de la feuille "Prise de Temps"
La combobox a pour propriété ListFillRange ce nom

P.S. il serait peut-être bien de créer un classeur plus léger pour exemple.

bon après-midi
 

Pièces jointes

  • eds-tests.xlsm
    1.9 MB · Affichages: 8

Ed's

XLDnaute Nouveau
Bonjour Roblochon,

Merci pour la remarque, comme c'est ma premiere demande sur le forum je pensais bien faire.

je pense que ma demande n'était pas très clair, j'ai refait un fichier plus simple et reformulé ma demande en espérant que ma demande soit plus explicite.

me souci c'est quand le choix de l'article rencontre un doublons, j'aurais avoir le choix de la valeur à afficher sur la textbox Composant…

encore merci pour la réponse
@+
 

Pièces jointes

  • Test1.xlsm
    38.4 KB · Affichages: 4

Hasco

XLDnaute Barbatruc
Repose en paix
Re bonsoir,

Pas de soucis, peu nombreux sont les demandeurs qui font autant par eux-même avant venir.

Croyez moi pour ce genre de problème un combobox comme dans ce nouvel exemple est plus simple à mettre en oeuvre. Si ça ne va pas il faudra gérer une collection ou un tableau avec un pointeur et des méthodes 'suivant' 'précédent' 'premier','dernier' etc etc... ce que fait naturellement un combobox.

Le combobox a deux colonnes dont la première est cachée et contient éventuellement les numéros de lignes des items trouvés. Sa valeur sera le numéro de ligne.

Essayez l'exemple joint et dites-nous.

Bien cordialement
 

Pièces jointes

  • eds-Test1.xlsm
    38.5 KB · Affichages: 6

job75

XLDnaute Barbatruc
Bonjour Ed's, Roblochon,
Croyez moi pour ce genre de problème un combobox comme dans ce nouvel exemple est plus simple à mettre en oeuvre.
Un bouton "Suivant" est de loin la solution la plus simple, voyez le fichier joint et cette macro :
VB:
Dim v$, c As Range 'mémorise les variables

Private Sub CommandButton1_Click() 'bouton Suivant
If ListArt = "" Then TextBox1 = "": Exit Sub
If ListArt <> v Or c Is Nothing Then v = ListArt: Set c = [B1]
Set c = Columns("B").Find(ListArt, c, xlValues, xlWhole)
If c Is Nothing Then MsgBox "'" & ListArt & "' n'existe pas en colonne B...": TextBox1 = "": Exit Sub
TextBox1 = c(1, 7)
End Sub
A+
 

Pièces jointes

  • Test(1).xlsm
    42.3 KB · Affichages: 10

Hasco

XLDnaute Barbatruc
Repose en paix
bonjour @job75

Effectivement s'il n'y a que deux références même avec un bouton précédent c'est jouable. La où ça se complique c'est avec de multiples références. Non? Aller au premier, dernier, suivant, précédent je préfère le combobox.

Cordialement
 

Ed's

XLDnaute Nouveau
bonjour @job75

Effectivement s'il n'y a que deux références même avec un bouton précédent c'est jouable. La où ça se complique c'est avec de multiples références. Non? Aller au premier, dernier, suivant, précédent je préfère le combobox.

Cordialement


Bonjour Roblochon, job75,

Merci à vous du temps investi pour ce code.
Les deux me donne l'impression de faire le travail souhaité, je vais les intégrer à mon code afin et vous donnerai des nouvelles.

En tout cas déjà un très Grand Merci et désolé pour la réponse tardive.

Cordialement
 

Ed's

XLDnaute Nouveau
Re bonjour,

ayant tester les 2 codes(qui fonctionne tous les 2), j'ai une préférence pour le code de Roblochon, c'est juste une question de mise en place du code du à la suite du travail que le fichier va faire.

je tenais à vous remercier les 2 pour le service rendu.

cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll