recherche depuis textbox et modification ou saisie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

wrap food

XLDnaute Occasionnel
Bonjour,

Désolé mais j'ai encore besoin de vos lumiéres.

J'aimerais avec un userform ( saisie2 que j'ai deja crée) qui puise avec un textbox chercher un "devis", récupérer les différentes informations qui font dans mon tableau te les mettres dans les texbox qui corresponde.
et mettre dans la colone N° de facture depuis un textbox mes information.
Mais je dois pouvoir modifier les textbox sauf celui de recherche et celui de saisie des N° de factures

Je ne m'explique peut etre pas trés bien ,donc je vous mets mon ficher en piéce jointe

Par avance merci
 

Pièces jointes

Re : recherche depuis textbox et modification ou saisie

Bonjour,
A mettre dans saisie2 (code)
avant tout en haut du code
public drligne,numligne as long
et ensuite le code ci dessous.
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim t As Control
With Sheets("Feuil1")
drligne = Range("d65000").End(xlup).Row
For Each c In Range("d4:d" & drligne)
If c = TextBox1 Then
numligne = c.Row
TextBox2.Text = CStr(c.Offset(0, 1))
x = 2
For Each t In Me.Controls
If Mid(t.Name, 1, 7) <> "TextBox" Then GoTo fin
If t.Name = "TextBox1" Or t.Name = "TextBox2" Then GoTo fin
x = x + 1
t = c.Offset(0, x).Text
fin:
Next t
End If
Next c
End With

End Sub
A+ (pour commencer)
 
Dernière édition:
Re : recherche depuis textbox et modification ou saisie

Re,
voici ton fichier avec combobox,il y a possibilité de trier la combo mais je n'ai pas le temps pour l'instant, notre amis Boisgontier propose toute sorte de trie fait une recherche tu trouveras c'est très bien fais.
Cijoint.fr - Service gratuit de dépôt de fichiers
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Réponses
1
Affichages
1 K
M
  • Question Question
Réponses
4
Affichages
2 K
Réponses
6
Affichages
3 K
P
  • Question Question
Réponses
2
Affichages
2 K
F
Réponses
6
Affichages
7 K
frtoussaint
F
B
Réponses
9
Affichages
1 K
bansan
B
Retour