Gerer deux classeurs avec un seul userform

Version imprimable

Bonsoir

désolé du derangement, je suis nouveau ici, j'ai besoin d'aide

j'ai deux classeurs que je dois remplir mais tout dans un meme dossiers, je ne veux pas remplir un classeurs avec un useform et l'autre avec un autre userform.
J'aimerais savoir s'il serait possible de remplir les deux classeurs qui comportent plusieurs feuilles a l'aide d'un seul userform pour que dans le userform quand je remplir les informations et que je clique sur le bouton de commande qui valide, les informations se dirigent dans les classeurs qui leurs sont destiné

J'ai un classeur Client et un classeurs produit .

Le classeur client possede plusieurs feuilles en fonction des noms des clients et le deuxieme classeur a des feuilles qui ont des noms de produit.
Les differentes feuilles s'ajoutent automatiquement quand le mois change (a l'ouverture du fichier)

j'arrive a enregistrer dans l'autre classeurs mais pas comme je veux, je veux pouvoir a l'aide d'un combobox avoir accès a toutes les feuilles des deux classeurs et ensuite enregistrer dans la feuille qu'on désire

Sinon afficher toutes les feuilles du mois actuel et envoyer les informations la ou elles doivent etre

Voici mon bouton valider
Code:

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Private Sub CommandButton1_Click() Dim numYear As Integer, numClient As Integer numClient = InputBox("Veuillez saisir le numéro Client") numYear = InputBox("Veuillez saisir l'année") With Workbooks("TAF 1").Sheets("CLIENT " & numClient & " - " & numYear) x = Now With Workbooks("TAF 1").Sheets("CLIENT3 - 2020") .Range("m1") = ComboBox1.Value .Range("A5") = TextBox2.Text MsgBox (TextBox2.Text) .Range("B5") = TextBox4.Text .Range("C5") = TextBox6.Text .Range("D5") = TextBox3.Text .Range("E5") = TextBox12.Text .Range("F5") = TextBox7.Text .Range("G5") = TextBox10.Text .Range("H5") = TextBox11.Text .Range("I5") = TextBox8.Text .Range("N5") = x .Range("J5") = TextBox13.Text End With ComboBox1.Text = "" TextBox2.Text = "" TextBox6.Text = "" TextBox3.Text = "" TextBox12.Text = "" TextBox7.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox13.Text = "" TextBox4.Text = "" MsgBox ("ENREGISTREMENT EFFECTUER") End With End Sub

01/03/2020, 11h53
Philippe Tulliez

Bonjour,
Il est évident que l'on peut utiliser un UserForm pour écrire dans une plage, d'une feuille et d'un classeur quelconque.
Il suffit de ne pas "Hard coder" tes procédures. Autrement dit, remplacer les constantes par des variables que tu passes en paramètres au UserForm comme par exemple celles en rouge dans ta ligne de code ci-dessous.

Citation:

Code:

With Workbooks("TAF 1").Sheets("CLIENT " & numClient & " - " & numYear)

Il y a déjà eu sur ce site des contributions, billets dans le blog de Pierre Fauconnier et discussions sur la manière de passer des arguments à un UserForm. Je n'ai malheureusement pas le temps de retrouver les liens
01/03/2020, 14h46
Dorel.D

Bonjour excusez moi mais je n'ai rien compris
vous avez recopié le meme code
01/03/2020, 15h03
Philippe Tulliez

Bonjour,
J'ai expliqué juste avant la publication de votre code, qu'il fallait remplacer les constantes (en rouge dans VOTRE code que j'ai effectivement reproduit) par des variables (Nom du classeur, de la feuille, de la plage) que l'on passe en arguments à l'objet UserForm
et j'ai ajouté en dessous de cette publication
"Il y a déjà eu sur ce site des contributions, billets dans le blog de Pierre Fauconnier et discussions sur la manière de passer des arguments à un UserForm."

Est-ce plus clair ?
01/03/2020, 15h38
Dorel.D

c'est claire, j'arrive tres bien a selectionner les pages dans les deux useform avec deux combobox ou apparaissent les feuilles des differents classeurs.
mon probleme est que je veux pouvoir envoyer les informations dans les feuilles sélectionnée.
mais c'est pas le cas, les informations vont sur la feuille de depart

Bonjour,

Citation:

j'arrive tres bien a selectionner les pages dans les deux useform avec deux combobox ou apparaissent les feuilles des differents classeurs

Je crois ne pas avoir bien compris ta question

Je pensais que tu voulais utiliser un même UserForm pour travailler avec différentes données comme l'exemple ci-dessous
Si ce n'est pas cela, il faudrait que tu expliques ce que tu cherches à faire exactement

Exemple très simple pour comprendre
Un UserForm nommé UserForm2 avec un contrôle LIstBox nommé lstDataBase
Dans un module quelconque, écrire le code des deux procédures ci-dessous

Procédure qui alimente le contrôle ListBox avec la plage de données passée à l'argument nommé oRng
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub RunUserForm(oRng As Range) ' Argument ' rng - plage à afficher dans le UserForm With UserForm2 With .lstDataBase .Clear .ColumnCount = 4 ' Affichage de 4 colonnes .List = oRng.Value End With .Show End With Unload UserForm2 End Sub
Code de la procédure qui invoque la procédure RunUserForm
Pour l'exemple, la plage est dans un tableau structuré qui est le seul dans la première feuille du classeur nommé DataBase_1.xlsb. Le classeur est ouvert
Code:

1 2 3 4 5 6 7 Sub Main() Dim wkb As Workbook Dim rng As Range Set wkb = Workbooks("DataBase_1.xlsb") Set rng = wkb.Worksheets(1).ListObjects(1).DataBodyRange RunUserForm rng End Sub
Il suffit de remplacer DataBase_1.xlsb par le nom d'un autre classeur (même condition Tableau structuré qui est seul dans la première feuille de ce classeur) pour voir afficher la liste contenue dans cette plage

Conclusion : Un seul UserForm peut afficher les données de n'importe quelle plage de données se trouvant dans n'importe quelle feuille de n'importe quel classeur

Pour en savoir plus, je conseille la lecture de cette contribution de Pierre Fauconnier titrée Modélisation des liaisons entre userform et table de données Excel (tableau structuré)

01/03/2020, 15h53
Dorel.D

je peux vous envoyer mes deux classeurs ?
01/03/2020, 15h56
Philippe Tulliez

Bonjour,
Placez une ou plusieurs images éventuellement pour illustrer vos propos mais une bonne explication ne nécessite aucunement d'avoir des classeurs à ouvrir

Voici le code de mon bouton valider

Code:

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
26
27
Private Sub CommandButton1_Click()
With Workbooks("MES CLIENT").Sheets("JEAN")
 
            .Range("A3") = ComboBox1.Value
            .Range("B3") = ComboBox2.Value
            .Range("C3") = TextBox2.Text
            .Range("D3") = TextBox3.Text
            .Range("E3") = TextBox1.Text
End With
With Workbooks("MES PRODUITS").Sheets("SAVON CHAT")
 
            .Range("A3") = ComboBox2.Value
            .Range("B3") = ComboBox1.Text
            .Range("C3") = TextBox2.Text
            .Range("D3") = TextBox3.Text
            .Range("E3") = TextBox1.Text
 
 
End With
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Text = ""
 
MsgBox ("ENREGISTREMENT EFFECTUER")
End Sub

et le code que j'ai mis pour afficher les feuilles dans les differents userform afin de les afficher quand je les selectionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
Dim WS As Worksheet
Dim WF As Worksheet
 
For Each WS In Worksheets
Me.ComboBox2.AddItem WS.Name
 
Next WS
For Each WF In Workbooks("MES CLIENT").Sheets
Me.ComboBox1.AddItem WF.Name
Next WF
End Sub
Private Sub ComboBox1_Click()
Workbooks("MES CLIENT").Sheets(CStr(Me.ComboBox1)).Activate
End Sub
Private Sub ComboBox2_Click()
Workbooks("MES PRODUITS").Sheets(CStr(Me.ComboBox2)).Activate
End Sub

je voudrais pouvoir enregistrer mes informations dans les différentes feuilles que je vais selectionnée dans les combobox

MErci de bien vouloir m'aider.

Désolé de vous fatiguer aussi

01/03/2020, 16h10
Philippe Tulliez

Bonjour,
Ce qui m'intéresse surtout c'est de comprendre ce que vous souhaitez faire avec une explication détaillée.
Par exemple, "j'ai deux classeurs et je voudrais lister les données se trouvant dans telle feuille à telle adresse dans le ListBox nommé lstToto et après sélection d'une ligne de la liste recopier cette ligne à la suite des données se trouvant à cette adresse, dans la feuille x du classeur y"

Il est fréquent qu'en exposant clairement ce que l'on cherche à faire, la lumière jaillisse.
01/03/2020, 16h20
Dorel.D

j'ai deux classeur PRODUIT et CLIENT
je dispose d'un seul userform dans le classeur Produit. ce userform comprends deux combobox d'ou combobox1 qui contient toutes les feuilles du classeur Produit et combobox2 qui contient les feuilles du classeur CLIENT

lorsque je remplir mes informations sur le userform et que je selectionne les feuilles (dans chaque classeurs) ou je veux que les informations se rangent, les informations restent dans la feuille de depart .
Par exemple si je selectionne feuil2 dans le classeur CLIENT et feuille 4 dans le classeur PRODUIT et je click sur le bouton validé, les informations vont dans les feuilles 1 des deux classeurs, au lieu d'etre dans la feuille 2 du classeur CLIENT et dans la feuille 4 du classeur PRODUIT.

J'aimerais remedier a ce probleme la.
je veux pouvoir envoyer les information du userform dans les pages que je vais selectionner a partir de mes combobox

j'espere que vous comprenez mieux

Bonjour,
Effectivement c'est plus clair
Premièrement, même si cela n'a rien à voir avec le problème, il n'y a aucune raison d'utiliser les méthodes Activate car en précisant la parentalité totale d'un objet Range (Classeur.Feuille.Cellule), on peut lire et écrire.
Il y a donc lieu de récupérer le nom des feuilles "source" et "cible" sélectionnées respectivement dans les deux Combobox et pour cela on place la valeur sélectionnée

En tête de module, prévoir deux variables de portabilité Module
Exemple
Code:

1 2 Dim shtSourceName As String Dim shtTargetName As String
Code qui récupère le nom de la feuille
Code:

1 2 3 Private Sub ComboBox1_Change() shtSourceName = Me.ComboBox1.Value End Sub
et ensuite pour écrire
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton1_Click() 'With Workbooks("MES CLIENT").Sheets("JEAN") With Workbooks("MES CLIENT").Sheets(shtSourceName) .Range("A3") = ComboBox1.Value .Range("B3") = ComboBox2.Value .Range("C3") = TextBox2.Text .Range("D3") = TextBox3.Text .Range("E3") = TextBox1.Text End With
Mais tu pourrais également te passer des variables en écrivant directement With Workbooks("MES CLIENT").Sheets(Me.ComboBox1.Value)

mon probleme est resolu merci voici ce que j'ai utilisé

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim wk1 As Workbook, wk2 As Workbook
 
Private Sub UserForm_Initialize()
Set wk1 = ThisWorkbook  '<--- MES PRODUITS
Set wk2 = Workbooks("MES CLIENT.xlsm")
Dim WS As Worksheet
Dim WF As Worksheet
 
For Each WS In wk1.Worksheets
Me.ComboBox2.AddItem WS.Name
Next WS
 
For Each WF In wk2.Sheets
Me.ComboBox1.AddItem WF.Name
Next WF
End Sub
 
Private Sub CommandButton1_Click()
With wk2.Sheets(Me.ComboBox1.Value)
    rw2 = .Cells(Rows.Count, "A").End(xlUp).Row + 1
 
            .Range("A" & rw2) = ComboBox1.Value
            .Range("B" & rw2) = ComboBox2.Value
            .Range("C" & rw2) = TextBox2.Text
            .Range("D" & rw2) = TextBox3.Text
            .Range("E" & rw2) = TextBox1.Text
End With
With wk1.Sheets(Me.ComboBox2.Value)
    rw1 = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range("A" & rw1) = ComboBox2.Value
            .Range("B" & rw1) = ComboBox1.Text
            .Range("C" & rw1) = TextBox2.Text
            .Range("D" & rw1) = TextBox3.Text
            .Range("E" & rw1) = TextBox1.Text
 
 
End With
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Text = ""
 
MsgBox ("ENREGISTREMENT EFFECTUER")
End Sub

ça peut servir