Exporter valeur textbox par selection dans combobox

loisphil81

XLDnaute Junior
Bonjour forum,

Je reviens vers vous pour compléter mon fichier.
J'ai créé un userform dans lequel je répertorie la fiche des clients (n° de client, nom, adresse etc..) dans un fichier fermé nommé "Fichier Clients" jusque-là tout va bien.

Mon souci c'est que je voudrai par ce même userform utiliser la combobox C1 que j'ai lié avec les N°de client de la feuille "CLIENTS" du classeur fermé "fichier Clients".

En plus simple quand je sélectionne le numéro dans la combobox je voudrai que les données s’affichent dans le userform.
Puis les valider avec le bouton OK pour les coller dans ma feuil "DEVIS" aux cellule correspondante.

J’ai bien essayer de placer un bout de code mais c'est pas du tout ça
mais la ça chauffe trop !!!

La ça deviens trop compliqué pour moi c'est pourquoi je viens chercher de l'aide.

Merci pour votre aide
 

Pièces jointes

  • Fichier_Clients.xlsx
    13.2 KB · Affichages: 8
  • TRAME TESTT.xlsm
    52.1 KB · Affichages: 9

ChTi160

XLDnaute Barbatruc
Bonjour loisphil81
Bonjour le Fil ,le Forum
un exemple de ce que pourrait être le Code à l'ouverture du Userform Clients
VB:
Private Sub UserForm_Initialize()
Dim WkB As Workbook
Dim Tbl As Variant
Set WkB = Workbooks.Open(ThisWorkbook.Path & "\Fichier_Clients.xlsx")'On ouvre le Fichier qui se trouve dans le même dossier que le Classeur "[I]TRAME TESTT[/I]"
With WkB 'avec ce Dossier
Tbl = .Worksheets("CLIENTS").Range("A1").CurrentRegion.Value 'On récupére les données de la feuille "CLIENTS" du Fichier Source
.Close True 'True Referme le fichier Source
End With
With Me.C1'Avec le Combobox
For i = 2 To UBound(Tbl, 1)'Pour chaque ligne du tableau à partir de la deuxieme Ligne
  .AddItem Tbl(i, 1)'On récupére le contenu de la premiere colonne
Next i
End With
End Sub
Bonne journée
jean marie
 

loisphil81

XLDnaute Junior
Bonjour jean Marie,
Bonjour le Forum
Merci pour ta réponse
J'ai veillé tard hier et voici ce qu'on a pu faire pour moi.
il me reste quand même un petit problème.
quand je valide pour ajouter un nvx client tout se passe bien sauf que mes données ne se collent jamais sur la première ligne sous les titres
D 'autant plus je décide de formater les cellules (couleur, format téléphone etc..) ça copy n'importe ou
je joint les fichiers
le code est dans le module7 et l'autre dans le user
les fichiers dans le même repoire
 

Pièces jointes

  • Fichier_Clients.xlsx
    12.9 KB · Affichages: 8
  • TRAME TESTT.xlsm
    57.1 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof