Pb Combox / Textbox (s)

Fariri · 21 Mars 2019

Bonjour,
Débutante en VBA sur excel 2013,
J'ai conçu un programme d'une combobox qui doit afficher le contenu de 2 combobox et 5 Textbox.

Le programme devrait se comporter comme décrit ci-dessous (mais ce n'est pas le cas)
Après avoir enregistré un client (c'est pour un fichier client)
1 combobox doit remplir les champs de mes Textbox et de 2 Combobox

Le soucis est que l'action se fait de façon aléatoire, tantôt elle rempli mes champs, tantôt elle ne fait rien.

Pourriez vous m'aidez à résoudre le mystère de ma Combobox capricieuse.

J'ai joint une photo de mes ligne de code que j'ai inséré.

Merci

youky(BJ) · 21 Mars 2019

Bonjour Fariri,
Avec une image c'est pas facile de bosser.
De plus il faut reécrire tout le code sans pouvoir copier
Bon voici un code (c'est comme j'ai compris)
Bruno

VB:

Private Sub CboRecherche_Change()
lig=application.match(CboRecherche,Thisworkbook.Sheets("Agents").[B:B],0)
if isnumeric(lig) then
CboCivilite=cells(lig,1)
TxtNom=cells(lig,2)
'et le reste, pas envie de tout recopier ton image
'code écrit à partir du Bloc Note donc non testé


end if
End Sub

Fariri · 22 Mars 2019

youky(BJ) à dit:
Bonjour,
Tous d'abord merci, d'avoir répondu à ma question.
J'ai testé ce que vous m'avez proposé, mais hélas cela ne fonctionne pas.
J'ai sans doute mal expliqué ma demande.
Ci dessous je réexplique avec plus de détail

La CboCivilité est une combobox et quand je fais apparaitre un nom via la liste déroulante, elle doit m'afficher dans 2 combobox + 5 textebox
les informations de la ligne concerné et de la colonne concerné le tous situé dans la feuille concernée

En gros je souhaite que quand j'affiche un nom dans CboRecherche, il faut que les informations contenu dans :
la ligne concernée de la colonne 1 de mon tableau situé en feuille1 s'affiche dans la CboCivilité
la ligne concernée de la colonne 2 de mon tableau situé en feuille1 s'affiche dans la TxtNom
la ligne concernée de la colonne 3 de mon tableau situé en feuille 1 s'affiche dans la TxtPrenom
ect....

de plus il faut qu'elle m'affiche les noms même s'il y en a deux (car il se peut que dans ma liste il y a dans une ligne un Dupont George et un Dupont Pauline)

voici mon code :
Private Sub CboRecherche_Change()

With ThisWorkbook.Sheets("Agents")
For Each Variable In .Range("B1:B" & .[A65000].End(xlUp).Row)
If CStr(Variable) = (Me.CboRecherche.Value) Then

Me.CboCivilite.Value = Cells(Variable.Row, 1)
Me.TxtNom.Value = Cells(Variable.Row, 2)
Me.TxtPrenom.Value = Cells(Variable.Row, 3)
Me.TxtNNI.Value = Cells(Variable.Row, 4)
Me.CboStatut.Value = Cells(Variable.Row, 5)
Me.TxtTelPortable.Value = Cells(Variable.Row, 6)
Me.TxtTelBureau.Value = Cells(Variable.Row, 7)

End If
Next
End With

End Sub

Merci

youky(BJ) · 22 Mars 2019

Bonjour,
Donc voici un fichier exemple qui répond à la demande.
Dommage de devoir le faire moi même . . . .
Bruno

Fariri · 22 Mars 2019

youky(BJ) à dit:
Bonjour,
Donc voici un fichier exemple qui répond à la demande.
Dommage de devoir le faire moi même . . . .
Bruno

Bonjour Youky (BJ)

Merci beaucoup, super, vous avez refait ma journée.
Je vais me hâter de mettre en application vos conseils.

Je vous souhaite une excellente journée

Pb Combox / Textbox (s)

Fariri

XLDnaute Junior

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Fariri

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Fariri

XLDnaute Junior

Discussions similaires