Est-il possible d'utiliser un seul userform pour deux classeurs différents ?

Version imprimable

27/02/2020, 17h04
Dorel.D

Est-il possible d'utiliser un seul userform pour deux classeurs différents ?

Bonsoir
je suis nouveau et je travail sur un projet dans lequel je dois enregistrer dans un fichier des information A qui comporte plusieurs feuilles et dans un autre classeur des informations B qui comporte aussi des plusieurs feuilles.
Les deux classeurs ont des feuilles qui s'ajoutent automatiquement que le mois change (quand on ouvre les fichiers)

Ma question est de savoir s'il serait possible d'utiliser un seul userform pour les deux classeurs.

SI oui quel est la formule

Merci de bien vouloir m'aider
27/02/2020, 18h20
révèr

Bonjour Dorel.D

Dans le cas où ton second classeur est ouvert lorsque tu vas piocher tes données, la marche à suivre est de...
1) Ouvrir le second classeur
2) Récupérer les informations dans ce classeur, comme tu le fais dans le classeur de travail. Sauf qu'au lieu de simplement écrire Sheets(1).Range("A1") il faudra écrire Workbooks("Second Classeur").Sheets(1).Range("A1").

Dans le cas où l'un des 2 classeurs doit être fermé...
https://silkyroad.developpez.com/VBA/ClasseursFermes/

Bonjour désolé de la réponse
j'ai essayé le code mes deux classeurs étant ouvert. j'ai enregistré mais je ne sais pas où l'enregistrement est passé.
Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
    MsgBox " Veuillez rentrer le nom du client svp"
    Else
    If MsgBox("Confirmer-vous l'insertion", vbYesNo, "demande") = vbYes Then
 
    For I = 3 To ligne
x = Now
    Workbooks("TAF 1").Sheets(1).Range("A15") = ComboBox1.Text
 
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("A5") = TextBox2.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("B5") = TextBox4.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("C5") = TextBox6.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("D5") = TextBox3.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("E5") = TextBox12.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("F5") = TextBox7.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("G5") = TextBox10.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("H5") = TextBox11.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("I5") = TextBox8.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("J5") = TextBox9.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("J5") = TextBox13.Text

28/02/2020, 13h41
révèr
Les balises de code sont les bienvenues pour la compréhension de ce dernier :)

Où est la déclaration de I ? Où est la déclaration de Ligne ? Où est la déclaration de X ?

Utiliser la méthode "With" permet de gagner en lisibilité

Tu as par ailleurs oublié les guillemets dans toutes tes lignes avec "Sheets", chose que la méthode With t'aurai évitée vu que tu ne l'aurai écrite qu'une seule fois :)
Code:

1 2 3 4 5 With Workbooks("TAF 1").Sheets("CLIENT 24 - 2020") .Range("A1") = ... .Range("A2") = ... End With

Je suis entrain de vous perdre votre temps. de grace ne m'abandonnez pas
Voici ce que j'ai fais et toujours rien dans les cases de la feuille selectionné

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
Private Sub CommandButton1_Click()
With Workbooks("TAF 1").Sheets("CLIENT1 - 2020")
 
            .Range("A15") = ComboBox1.Text
 
            .Range("A5") = 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("J5") = TextBox9.Text
            .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 Sub

28/02/2020, 13h58
révèr

Les balises de code s'il te plaît !

Pour tester si tes TextBox contiennent quelque chose, incorpore un MsgBox(TextBox2.Text) juste après .Range("A5") - pour t'en assurer.

ComboBox1.Value au lieu de .Text ;)
28/02/2020, 14h26
Dorel.D

Merci pour la .value du combobox

désolé mais je comprends pas msgbox après

Code:

.Range("A5") MsgBox(TextBox2.Text) = TextBox2.Text ?

En parlant aussi de balise de code, je suis un peu perdu la

Quand je disais juste après, je parlais en terme de ligne :mouarf: désolé pour l'imprécision

Il s'agirait juste d'une ligne de MsgBox opur afficher le texte et s'assurer que cela prenne bien la valeur

Tu as des balises de code sur le forum qui te permettent de mettre ton code à l'intérieur

[ CODE ] [/ CODE]
Code:

1 2 3 4 5 6 7 Dim jour_suivant As String 'C'est beaucoup plus lisible MsgBox("Et on peut repérer d'éventuelles erreurs") TextBox1.Value = "Vendredi 'Comme un oubli de guillemet MsgBox("C'est juste avant & jour_suivant)
Code:

1 2 3 4 5 6 7 Dim jour_suivant As String 'C'est beaucoup plus lisible MsgBox("Et on peut repérer d'éventuelles erreurs") TextBox1.Value = "Vendredi" 'Pour les corriger MsgBox("C'est juste avant " & jour_suivant)

ça marche, les informations vont là ou ne veux, c'est vraiment gentil de votre part.
par quoi dois-je remplacer mon ligne = sheets("feuil") de depart pour que ça s'incremente ? parce qu'actuellemennt ça ecrase les informations entrées

Merci de votre aide

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
Private Sub CommandButton1_Click()
x = Now
With Workbooks("TAF 1").Sheets("CLIENT3 - 2020")
 
            .Range("m5") = 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 Sub

28/02/2020, 15h05
révèr
Imaginons 2 variables :

numClient : correspond au numéro du client
numYear : correspond à l'année
Code:

1 2 3 4 Dim numClient As Integer, numYear As Integer Sheets("CLIENT" & numClient & " - " & numYear)
28/02/2020, 15h10
Dorel.D

je ne comprends pas
pouvez vous continuer un peu avec le debut de mon code et mettre des explication en commentaire ?

Modifie ta ligne en question par celle que je t'ai proposée
et sur les lignes précédentes tu ajoutes :

Code:

1
2
3
4
5
6
7
8
 
Dim numYear As Integer, numClient As Integer
 
numYear = InputBox("Veuillez saisir l'année")
numClient = InputBox("Veuillez saisir le numéro Client")
 
With Workbooks("TAF 1").Sheets("CLIENT" & numClient & " - " & numYear)
'suite de la procédure

28/02/2020, 15h24
Dorel.D

c'est deja très cool, on demande l'année j'ai mis 2020, le client j'ai mis CLIENT 3
mais il affiche une erreur d'execution 13

Plus de détail sur le message écrit par l'erreur s'il te plaît :)

Et puis j'ai déjà écrit "CLIENT" dans le code, tu as juste besoin de marquer 3

Note que j'ai respecté la syntaxe EXACTE de ce que tu as écrit. A l'espace près.
Code:

1 2 3 4 5 6 Sheets("CLIENT" & numClient & "-" & numYear) 'est différent de... Sheets("CLIENT" & numClient & " - " & numYear) 'qui est lui-même différent de... Sheets("CLIENT " & numClient & " - " & numYear)

28/02/2020, 15h29
Dorel.D

VOICI ce qui etait ecrit dans le message ERREUR D'EXECUTION "13 incompatibilité de type

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim numClient As Integer
 
numClient = InputBox("Numéro Client")
 
'CLIENT3 est de quel type selon toi ? Integer ? String ? 
 
'Sinon tu peux effectuer ceci
 
Do
   numClient = InputBox("Numéro Client")
Loop Until isNumeric(numClient)
 
'Cela va boucler tant que tu ne saisis pas de chiffres/nombre

28/02/2020, 15h42
Dorel.D

au fait, la liste des client represente les feuilles .
Sil y a 10 clients dans le programme, alors on aura 10 feuilles avec des numero
ex : ARTHURE1 - 2020 pour dire le client arthure dans le mois de janvier 2020.

les 10 feuilles vont se réouvrir automatiquement le mois prochain aussi

c'est bien pour ça que de l'autre coté je demandais si on ne pouvais pas faire apparaitre les feuilles dans un combobox et lorsque la feuille choisie s'affiche, enregistrer les informations dans celle-ci
28/02/2020, 16h31
Dorel.D

un autre message message qui me dit :

Citation:

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

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