GERER DEUX CLASSEURS AVEC UN SEUL USERFORM
#1
Débutant XLPages

Inscription: 28/02/2020
De MALI

Messages: 1

Système d'exploitation:
Pc
Version Excel utilisée:
2016
Posté le : 28-02 16h52

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 

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

 

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes