Code Userform
bonjour,
je vous écris car besoin de votre aide...
j'ai créé un userform et je ne sais pas comment faire le code...
je vous explique.
dans le formulaire, il faut que quand je mets le numéro de client dans le TextBox1
les informations sur la société s'affiche automatiquement dans les Label10,Label11, Label12 et Label13
ces informations vont être recherchées sur une feuille excel qui fait partie du fichier....
j'ai essayé tellement de variantes avec
Private Sub
If....
que je ne sais plus quoi faire...
pouvez-vous m'aider svp....
voilà ou j'en suis....
merci d'avance
If TextBox1.Value = True Then
With Worksheets("Clients")
For a = 2 To Bas
If UserForm2.TextBox1.Text = Worksheets("Clients").Range("A" & a) Then
UserForm2.Label10.Caption = Worksheets("Clients").Range("C" & a)
UserForm2.Label11.Caption = Worksheets("Clients").Range("E" & a)
UserForm2.Label12.Caption = Worksheets("Clients").Range("F" & a)
UserForm2.Label13.Caption = Worksheets("Clients").Range("G" & a)
End If
Next
End With
End If
Hello,
C'est difficile de t'aider sans fichier car on ne sait pas comment est faite ta feuille avec les informations sur la société.
Mais pour t'aider je peux te dire comment je vois la chose.
1° Evenement afterupdate TEXTBOX1
2° recupérer cette valeur et chercher dans la colonne (Numero client) de ta feuille qui va bien.
avec ce code par exemple :
Ligne_Num_Client = 2
Col_Num_Client = 1
set Ta_Feuille = Sheets(1)
while Ta_Feuille .cells(Ligne_Num_Client ,Col_Num_Client ) <> TEXTBOX1
Ligne_Num_Client = Ligne_Num_Client +1
wend(Il faudra gerer les erreurs si on ne trouve pas TB1)
3° Si on trouve, on affecte la valeur des labels en fonction de la colonne souhaitée
Col_Pour_Label_10 = 5
Col_Pour_Label_11 = 50
Col_Pour_Label_12 = 25
Col_Pour_Label_13 = 9
TONUSERFORM.Controls("label10").caption = Ta_Feuille.cells(Ligne_Num_Client , Col_Pour_Label_10 )
TONUSERFORM.Controls("label11").caption = Ta_Feuille.cells(Ligne_Num_Client , Col_Pour_Label_11 )
TONUSERFORM.Controls("label12").caption = Ta_Feuille.cells(Ligne_Num_Client , Col_Pour_Label_12 )
TONUSERFORM.Controls("label13").caption = Ta_Feuille.cells(Ligne_Num_Client , Col_Pour_Label_13 )A tester.
R@g
bonjour,
Fournir un fichier avec une ou 2 lignes de données plus ou moins bidonnées, mais pertinentes (pas de toto, titi ,tata, caca, popo...)
A+
bonjour,
je vous remercie pour vos réponses...
voici comment se présente le fichier.
Bonjour à tous,
Galopin01
Tu as oublié ...Stadt ... çà ne n'est pas très important ...
Mais tu as surtout soigneusement évité de joindre la seule chose utile ... pour répondre à ta question :
Ton Formulaire ...!!!!
oh la la.... désolé...pas encore réveillé ce matin
voici le fichier avec mon formulaire
Re,
Bel Effort ... !!!
Cela dit ... deux petites remarques très générales :
1. Tu as oublié au moins trois Feuilles ( même vides ...) ... ' selon ce qu'on veut ...'
2. Tu ne peux pas avoir ' End Sub ' ... en plein milieu d'une procédure ...
Bonjour,
bizarre la recherche par numéro de client
faut connaitre les numéros par cœur ;
une combobox pour la selection du nom de client ne serait-elle pas mieux ?
en attendant il manque la moitié des titres dans tous les onglets on ne sait pas ou il faut aller chercher
les infos pour le userform.
d'ailleurs pourquoi autant d'onglet différents ? çà ne peut pas être dans le même ?
bonjour,
non avec le numéro de client....c'est parfait....
on travaille toujours de cette manière...
pour l'userform, il faut aller chercher les infos pour les clients.... adresses , lieu,....
après en complétant sur l'userform le reste des infos, elle se mettront sur la feuille excel....
moi je suis bloquée au niveau du code pour aller rechercher les infos d'après le numéro de client...dans l'userform....