Discussion :

[aslefebvre]

Bonjour à tous!

J'ai réèllement besoin d'aide... en VBA
Je galère à trasférer des données d'un premier userform de combo listbox et textbox vers un tableau dan un second userform en format tableau et avec une selection...mes tentatives ont quasi toutes échouées sauf quand je transfert d'abord les données vers une feuille excel puis que je les faire réapparaitre dans l'userform 2.

je vous met en pièce jointe le projet vierge.

Merci d'avance à tous !test2.xls

[Daniel.C]

Bonjour,

Je galère à trasférer des données d'un premier userform de combo listbox et textbox vers un tableau dan un second userform en format tableau et avec une selection...

Qu'est-ce que tu entends par "un userform au format tableau" ? Un userform avec une listbox ? Et comment se fait la sélection ? Poster une pièce jointe sans données ne sert pas à grand-chose.

[aslefebvre]

Bonjour Daniel et au forum,

Désolé excuse ma bêtise:

-le tableau apparait bien dans un userform
-La séléction par la date uniquement

Je vous transmets l'intégralité du projet.

Sur ce fichier l'idée étant de saisir des infos sur l'userform clients et que automatiquement ces données retrouvent leurs place dans l'userform Planning_Clients .

J'espère vraiment que c'est plus clair car je suis complétement bloquée depuis des jours ...

Merci par avance !

Fichier:projet vba.xls

[Daniel.C]

Sur ce fichier l'idée étant de saisir des infos sur l'userform clients et que automatiquement ces données retrouvent leurs place dans l'userform Planning_Clients

Sur le userform "Clients", il y a a 5 textbox et 3 comboboxes. Sur le userform "Planning_clients" Il n'y a qu'un listbox mono-colonne et un combobox. Où met-on les infos saisies ? Donne un exemple détaillé de ce que tu saisis et où tu le mets.

[aslefebvre]

Merci daniel de ton attention,

en effet je souhaiterai que mon usf Plannig_clients comporte un tableau et contiennent donc 6 colonnes reprenant les 6 infos (5 +3 pour la date) saisies dans l'usf Clients.
J'espère vraiment que j'ai été un peu plus claire?

Merci.

[Daniel.C]

Voici le code pour remplir le userform. Maintenant, il faut un bouton pour afficher le userform Planning_Clients.
Dans les propriétés de listbox1, mets la propriété ColumnCount à "6" et règle la largeur des colonnes selon celles de tes données (propriété ColumnWidth). exemple : 20 pt;20 pt;30 pt;20 pt;55 pt;20 pt (pas la peine de mettre les "pt").

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub clients_valider_Click()
'rentrer des données obligatoires'
If TextBox1 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Then
    MsgBox "Vous devez remplir toutes les données obligatoires"
    End If
    With Planning_Clients.ListBox1
        .AddItem Me.TextBox1.Text
        .List(.ListCount - 1, 1) = Me.TextBox2.Text
        .List(.ListCount - 1, 2) = Me.TextBox3.Text
        .List(.ListCount - 1, 3) = Me.TextBox4.Text
        .List(.ListCount - 1, 4) = Me.TextBox5.Text
        .List(.ListCount - 1, 5) = Me.ComboBox1.Value & "/" & Me.ComboBox2.Value & "/" & Me.ComboBox3.Value
    End With
End Sub