Transfert de données

**aslefebvre** · 09/02/2015, 16h57

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** · 09/02/2015, 19h01

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** · 10/02/2015, 14h45

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** · 10/02/2015, 15h31

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** · 10/02/2015, 16h00

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** · 10/02/2015, 16h34

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

**aslefebvre** · 11/02/2015, 10h10

Bonjour !

J'ai testé ton code mon cher daniel malheureusement j'ai deux-trois souci:
-tout d'abord concernant l'affichage du planning je l'affiche grâce au bouton visualisation du planning de l'usf Menu:mais mahleureusemnt je n'ai qu'une colonne visible.
-Concernant les données en elle-même elle ne sont pas enregistré dans la listbox1 et donc à chaque fermeture de fichier le dossier se vide (Save?)
-Maintenant s'agissant du tableau dans la listbox 1 aurais-tu une idée de comment je pourrais intégrer une sélection en fonction de la date?

projet vba.xls

Je te remercie enore une fois de ton aide et je mets mon fichier entre vos mains et celle de l'ensemble du forum ...
Help me please!

Juste une toute petite autre question:ne serait-il pas plus facile pour moi (à mon tout petit niveau) de passer par un tableau sur une feuille excel,je m'explique :
1/Compléter l'usf avec les données qui seront transférées vers un tableau excel
2/Visualiser ces donnée du tableau dans l'usf avec la listox à 6 colonnes?

Merci.

**Daniel.C** · 11/02/2015, 11h47

C'est comme tu veux. De toutes façons, il faudra un bouton sur l'userform Clients pour afficher le userform. Je vais te faire parvenir un exemple de copie directe de userform à userform. Appuie sur le bouton "Planning" pour afficher le userform Planning_Clients.

J'ai éliminé du classeur ce qui ne concernait pas les deux userforms. Quand ce sera au point, je reporterais les modifs dans le classeur initial. Fais autant de saisies que tu veux dans le userform Clients. Quand c'est fini, clique sur le bouton "Planning". Maintenant, reste à savoir ce que tu fais des données du userform Planning_Clients ?

PJ : aslefebvre projet vba-1.xls

**aslefebvre** · 11/02/2015, 12h32

re Bonjour daniel,

Je viens de tester ça m'a l'air de fonctionner !

Le but du planning client est de pouvoir consulter le planning des résarvations clients (de leur arrivée sur le site) à une date donnée!
Donc de garder en mémoire toute les réservations même passées et de pouvoir les sélectionner en fonction de la date...d'où la combobox1 de l'usf Planning_clients penses-tu que cela est faisable ?

Et dans tous les cas encore une fois merci infiniment de ton implication! je suis en licence logistique autant dire que vba est un domaine un peu trop flou pour moi!

Cdt.

**Daniel.C** · 11/02/2015, 12h44

Tu peux les garder en mémoire dans l'userform tant que tu ne le fermes pas ou que tu ne fermes pas le classeur Excel. Pour les conserver durablement, il est nécessaire de les copier sur une feuille. Dis-moi ce que tu choisis.

**aslefebvre** · 11/02/2015, 12h47

Il est super nécessaire pour moi que la personne qui travaillera sur cette application puisse consulter à son gré les réservations qu'elle aura enregisté donc oui je pense qu'il sera nécessaire d'en passer par là...
J'aurais dû être plus clair...dsl

cdt.

**Daniel.C** · 11/02/2015, 15h40

Regarde le classeur : aslefebvre projet vba-1.xls

**aslefebvre** · 11/02/2015, 16h25

Re!

Ca a l'air de marcher!

Juste un petit souci au niveau de la listbox du Planning_client?
Capture en pièce jointe!

Après je n'embête plus!

Code daniel.doc

Cordialement.

**Daniel.C** · 11/02/2015, 17h06

Dans le userform Planning_Clients, remplace la macro "Userform_Activate" par celle -ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub UserForm_Activate()
    Dim C As Range, Plage As Range, LargeurListb As Integer, LargeurCols As String
    With Sheets("Saisie")
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        Plage.Resize(, 5).EntireColumn.AutoFit
        LargeurListb = Plage.Resize(, 5).Width
        Me.ListBox1.Width = LargeurListb + 20
    End With
    With Me.ListBox1
        .Clear
        For Each C In Plage.Resize(1, 5)
            LargeurCols = LargeurCols & ";" & C.Width
        Next C
        LargeurCols = Right(LargeurCols, Len(LargeurCols) - 1)
        .ColumnWidths = LargeurCols
        For Each C In Plage
            .AddItem C.Value
            .List(.ListCount - 1, 1) = C.Offset(, 1)
            .List(.ListCount - 1, 2) = C.Offset(, 2)
            .List(.ListCount - 1, 3) = C.Offset(, 3)
            .List(.ListCount - 1, 4) = C.Offset(, 4)
            Me.ComboBox1.AddItem Format(DateValue(C.Offset(, 4)), "dd/mm/yyyy")
        Next C
    End With
End Sub

**aslefebvre** · 16/02/2015, 10h53

J'ai de nouveau un code erreur de compilation au niveau de l'usf planning_client en essayant le nouveau code que tu m'as transmis ...
(dsl du retard de réponse en fin de semaine je suis en cours et non en entreprise).

Merci !