RechercheV VBA à partir d'un usf vers Txtbox

ça fonctionne très bien merci. Donc avec ma combobox1, ça va rechercher dans ma feuil1 et me donne ce qui se trouve dans la colonne B, dans un textbox de mon usf.. Aussi j'aimerais que ce que je vais entrer manuellement dans ma Textbox1 aille se placer dans la colonne 7 de la même ligne de ma feuil1..j'ai essayé quelques codes mais ils ne fonctionnent pas.. merci à l'avance

Re,

Lorsque tu construis un userform, il est vivement préférable de nommer les contrôles plutôt que de laisser listbox1,combobox1, commandbutton1.... Cela facilite grandement la maintenance et l'évolution du temps de codage total (soit environ 80% du temps passé à automatiser)

donc j'ai rebaptisé les contrôles jusqu'à la 2° ligne des mémos: à toi de finir; attention la propriété "rowsource" des combo doit être Feuil3!G30:G300 et non G30:G300
d'autre part la propriété Tabindex est à 3 pour memo1 et à 4 pour mémo2, là aussi termine
Tabindex te permet de passer d'un mémo à l'autre avec la touche "tab" plut^t qu'avec la souris (on commence ici par le numéro de facture)

Concernant le numéro et la date de facture, je vérifie que le numéro est bien à 5 chiffres et que la date est au format jj/mm/aaaa ( un peu comme sur les sites web )

ci joint le classeur
https://www.cjoint.com/?3DklVhQDtlk

Ok, il faut que je me remette en t^te le truc; je regarde demain... :o)

Au passage, je te signale que j'avais modifié le code des boutons; regarde sur mon classeur

lig = .Columns("G").Find("*", , , , , xlPrevious).Row + 1
que veulent dire les espaces?
ce sont des paramètres dont je n'ai pas besoin mais je dois garder l'ordre d'écriture de ces parametres
on pourrait écrire
Lig=.columns("G").Find(What:="*", SearchDirection:=xlprevious).Row
"xlprevious" veut dire "précédant" par opposition à xlnext: "suivant"

* est un terme générique qui veut dire: il y a quelque chose dans la cellule

donc on trouve la ligne de la dernière cellule utilisée et on ajoute 1 qui est la première cellule vide

Il y a d'autres formules pour trouver première cellule vide
pas exemple si on est sûr qu'il n'y a pas de cellule vide intercalées
lig=Range("A3").end(xldown).row+1

Bonjour Michel

merci beaucoup pour tes éclaircissements.. je comprends maintenant, alors c'est pour ça que ce que je veux faire ne fonctionne pas.. Le code dit d'aller chercher la première ligne vide à la suite de la dernière rempli et d'y mettre mes infos.
Tandis que moi je voudrais que ça recherche la valeur de ma Combobox et qu'un fois trouvée elle aille mettre les données de mes txbox prix, facture et date de facture via à vis la ligne correpsondante au numéro de mémo

Mélanie

bonjour Mélanie

Version 2 remaniée pour saisie prix dans usf et format numéro et date facture
fait sur le classeur que je t'avais envoyé
rappel:
"Au passage, je te signale que j'avais modifié le code des boutons"
et
"la propriété "rowsource" des combo doit être Feuil3!G30:G300 et non G30:G300 ":
en cours d'essai et maintenance on est + souvent sur la feuil1 que 3 donc G30:G300 sans précisions t'envoies les valeurs G30:G300 de la feuil1==> moment de soilitude

https://www.cjoint.com/?3DmoYq71YHj

ok, je n'avais pas saisi le truc que je trouvais d'ailleurs bizarre..

donc le num de facture et la date sur la m^ ligne que le mémo, c'est bien cà?

excact

Bonjour,
le numéro et date de facture se placent maintenant sur la ligne du numéro de mémo

Private Sub Btn_ok_Click()
Dim Lig_fact As Integer
Dim Tbox_prix As Variant, cptr As Byte
     With Sheets("feuil1")
          For cptr = 0 To 8
               Tbox_prix = Array(Me.Tbox_prix1, Me.Tbox_prix2, Me.Tbox_prix3, Me.Tbox_prix4, Me.Tbox_prix5, _
                                                                 Me.Tbox_prix6, Me.Tbox_prix7, Me.Tbox_prix8, Me.Tbox_prix9)
               If Tbox_prix(cptr) > 0 And T_lig(cptr + 1) > 0 Then .Cells(T_lig(cptr + 1), "I") = Tbox_prix(cptr)
               .Cells(T_lig(cptr + 1), "G") = Me.Tbox_num_fact
               .Cells(T_lig(cptr + 1), "H") = Me.Tbox_date_fact
          Next
     End With
     
     'sortie
     Unload Facture
     Sheets("feuil3").Activate
End Sub

En espèrant que...

Bonjour


un peu de précipitation de ma part, excuses moi (je n'avais testé que les 2 premiers combo, les autres n'étant pas rebaptisés )

If Tbox_prix(cptr) > 0 And T_lig(cptr + 1) > 0 Then   
                    .Cells(T_lig(cptr + 1), "I") = Tbox_prix(cptr)   
                    .Cells(T_lig(cptr + 1), "G") = Me.Tbox_num_fact   
                    .Cells(T_lig(cptr + 1), "H") = Me.Tbox_date_fact   
               End If