Combobox vers textbox

[apdf1]

Bonjour

Voila j'ai un USF avec 11TextBox et un ComBobox j'aimerais faire une recherche des adhérents via la ComBobox.

Un très grand merci à tout ceux qui pourront m'aider...

Ci joint le fichier exemple

Cordialement
Max

 

[Hulk]

Re : Combobox vers textbox

Salut apdf, Forum,

Essaie ça..

Private Sub Combobox1_Click()

Dim lign As Long

    If ComboBox1.Value <> "" Then
        
        lign = ComboBox1.ListIndex + 2
        txtNomPrenom.Value = Range("B" & lign).Value
        txtAdresse.Value = Range("D" & lign).Value
        txtCp.Value = Range("E" & lign).Value
        txtCommune.Value = Range("F" & lign).Value
        txtDepartement.Value = Range("G" & lign).Value
        txtTel.Value = Range("J" & lign).Value
        txtCalendar.Value = Range("C" & lign).Value
        txtNaissance.Value = Range("H" & lign).Value
        txtMail.Value = Range("I" & lign).Value
            
    End If
    
End Sub

Mais dans ton cas(le nom et prénom sont dans une même cellule et dans l'UserForm tu as un "txtNom" et un "txtPrenom"), soit il faut que tu choutes le "txtPrenom" (c'est ce que j'ai fais) et le "txtNom" tu le nommes "txtNomPrenom", soit tu fais une colonne "Prénom" dans ton tableau.

Cela dit, faisable de garder une colonne et séparer le nom pour un TextBox et le prénom pour un autre TextBox, mais un poil plus lourd à faire.

Bref le mieux est même de supprimer txtNom et txtPrenom puisque tu les as dans la ComboBox après tout...

A toi de voir.

Bonne continuation !

 

[apdf1]

Re : Combobox vers textbox

Bonsoir Hulk,

Je te remercie je vais voir cette histoire de nom et prénom parce que apriori j'ai le même problème avec Email ?

Bonne soirée et merci encore

@+
Max

 

[Hulk]

Re : Combobox vers textbox

Re,

Exact... Oublier de le préciser.

 

[grisan29]

Re : Combobox vers textbox

bonsoir Hulk et apdf1

voici la mouture corrigé avec ce qu'a proposé hulk de toute sa force😎

cordialement

Pascal

 

[apdf1]

Re : Combobox vers textbox

Bonsoir grisan, Hulk

Je vous remercie beaucoup je vais opté pour la sachesse en corrigeant avec a proposition qu'a proposé hulk et maintenant que j'ai résolu le problème grasse a vous deux je vais m'attaqué au problème pour pouvoir modifier les lignes. Si vous avez une solution je suis preneur.

Un très grand merci à tout deux

Bonne soirée
Max

 

[Yaloo]

Re : Combobox vers textbox

Bonsoir apdf1, le forum,

Sinon une version avec rowsource et découpe de l'adresse mail

Dans le fichier ci-dessous

A+

 

[apdf1]

Re : Combobox vers textbox

Bonsoir Yaloo

Je te remercie beaucoup maintenant si tu as une idée pour pouvoir modier les je suis preneur..!

Un grand merci à tous de votre aide

Bonne soirée

Max

 

[Yaloo]

Re : Combobox vers textbox

Je te remercie beaucoup maintenant si tu as une idée pour pouvoir modier les je suis preneur..!

modier les quoi ?????

A+

 

[apdf1]

Re : Combobox vers textbox

Re,

Modifier les lignes de ma feuille puisque je peut maintenant a l'aide de la combobox alimenter les textbox et pouvoir modifier les lignes

@+

 

[Yaloo]

Re : Combobox vers textbox

Re

Tu peux regarder là, avec Julien nous avons avancé au besoin de Julien

A+

 

[grisan29]

Re : Combobox vers textbox

bonjour hulK,yaloo,apdf1 et le forum
dans mon fichier client si je veux modifié un client j'utilise ce code a dapter a ta situation
cette ligne se trouve ailleurs dans le code original car moi j'utilise un multipage

ligne = Sheets("client").Range("B65536").End(xlUp).Row

Private Sub modifcli_Click()
Sheets("client").Range("d" & ligne) = MCNOM
Sheets("client").Range("e" & ligne) = MCPRENOM
Sheets("client").Range("f" & ligne) = MCADRESSE
Sheets("client").Range("g" & ligne) = MCC_POSTAL
Sheets("client").Range("h" & ligne) = MCVILLE
Sheets("client").Range("i" & ligne) = MCTELEPHONNE
Sheets("client").Range("B" & ligne & ":i" & ligne).Interior.Color = xlNone
Unload Me
End Sub

cordialement

Pascal

 

[apdf1]

Re : Combobox vers textbox

Bonjour Grisan

Je te remercie je vais voir sa

Bonne journée

@+

Max