Gérer deux classeurs avec un seul userform

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour j'ai mon code qui a arrété de fonctionné.
je gere deux feuilles ouvertes a partir d'un combobox
ça marchait parfaitement mais ça s'est arreté de fonctionner et on me sort une erreur au niveau du With Workbooks("AVIONS").Sheets("Me.ComboBox2.Value")
mon classeurs avion est le classeur principale, c'est celui qui a le userform en son sein.

Merci de bien vouloir m'aider

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()
 
With Workbooks("C-CLIENT").Sheets(Me.ComboBox1.Value)
    rw2 = .Cells(Rows.Count, "A").End(xlUp).Row + 1
 
            .Range("A" & rw2) = ComboBox1.Value
            .Range("B" & rw2) = TextBox5.Value
            .Range("C" & rw2) = TextBox2.Text
            .Range("D" & rw2) = TextBox4.Text
            .Range("E" & rw2) = TextBox6.Text
            .Range("F" & rw2) = TextBox3.Text
            .Range("H" & rw2) = ComboBox2.Text
            .Range("G" & rw2) = TextBox10.Text
 
 
End With
With Workbooks("AVIONS").Sheets("Me.ComboBox2.Value")
    rw1 = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range("A" & rw2) = ComboBox1.Value
            .Range("B" & rw2) = TextBox5.Value
            .Range("C" & rw2) = TextBox2.Text
            .Range("D" & rw2) = TextBox4.Text
            .Range("E" & rw2) = TextBox6.Text
            .Range("F" & rw2) = TextBox3.Text
            .Range("H" & rw2) = ComboBox2.Text
            .Range("G" & rw2) = TextBox10.Text
 
 
 
 
End With
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox10.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox4.Text = ""
 
MsgBox ("ENREGISTREMENT EFFECTUER")
End Sub

je rappel que j'ai mis ce code (suivant) pour selectionner les feuilles dans les differents classeurs afin d'enregistrer les informations

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Userform_Initialize()
Set wk1 = ThisWorkbook  '<--- AVION
Set wk2 = Workbooks("C-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

02/03/2020, 13h41
mfoxy

Bonjour,

le souci ne viendrait-il pas de ta ligne

Code:

With Workbooks("AVIONS").Sheets("Me.ComboBox2.Value")

, il faudrait supprimer les guillements, ou ton code cherche la feuille nommée "Me.ComboBox2.Value" et non la valeur de ta cbo.

Bàt
02/03/2020, 13h43
Menhir

Citation:

Envoyé par Dorel.D

ça marchait parfaitement mais ça s'est arreté de fonctionner et on me sort une erreur au niveau du With Workbooks("AVIONS").Sheets("Me.ComboBox2.Value")

Je ne mets pas ta parole en doute mais il me semble peu probable que ceci ait un jour fonctionné.
Essaye plutôt :

Code:

With Workbooks("AVIONS").Sheets(Me.ComboBox2.Value)

Compare ta ligne 17 avec ta ligne 3.
02/03/2020, 13h44
MarcelG

Télescopage.

Salut,

Code:

Sheets("Me.ComboBox2.Value")

Ouh la!

Si la valeur de la Combobox désigne la feuille de travail alors il n'est pas souhaitable de placer cette propriété entre 2 double quottes.
Tel que tu l'écris, le classeur comporte une feuille nommée "Me.ComboBox2.Value" :ptdr:

Grand merci a vous, ça fonctionne .
vraiment merci

j'ai un autre soucis sur le premier bouton qui doit ouvrir une feuille dans le classeur principale qui est AVIONS.
on me met une erreur au niveau de If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True
pourtant l'autre fonctionne tres bien quand je met le nom du classeur.
Voici le code

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
Private Sub CommandButton9_Click()
Dim Nom As String, i As Byte, Verif As Boolean, myMonth As Integer, myYear As Integer, myDate As Date, ee As String, a As Long
 myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate
 
myMonth = (Month(myDate))  ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""
recom:
Verif = False
Nom = InputBox("Définissez le nom du nouveau client svp", "Ajout nouveau client") & "" & (myMonth) & " - " & myYear
 
If Nom = "" Then Exit Sub
 
For i = 1 To Sheets.Count
    If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True
Next
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Workbooks("AVIONS").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
 
        Workbooks("AVIONS").Sheets(1).Activate
        Range("A1:N3").Select
        Selection.Copy
        Workbooks("AVIONS").Sheets(Nom).Activate
        Range("A1").Select
        ActiveSheet.Paste
 
Unload Me
UserForm1.Show
 
End Sub

Salut,

Tu peux afficher la fenêtre des variables locales au sein de l'éditeur VBE pour vérifier la valeur de la variable "Nom" et constater ainsi l'existence, ou non, de la feuille.

Quoi qu'il en soit,

Tel que tu écris ton code, si la feuille n'est pas la dernière alors ta variable reverra toujours False.
Il faut bien que ta boucle s'arrête, non?

Quoi qu'il en soit du Quoi qu'il en soit, :lol:

Evitons les sorties de boucle anticipées.

Privilégier ici
Code:

1 2 3 4 5 6 7 8 9 Function SheetExists(Name As String) As Boolean Dim Counter As Long Counter = 1 Do While Counter <= Sheets.Count And Not SheetExists If StrComp(Name, Sheets(Counter).Name, vbTextCompare) = 0 Then SheetExists = True Counter = Counter + 1 Loop End Function
Une variante (non testée)

Code:

SheetExists =(StrComp(Name, Sheets(Counter).Name, vbTextCompare) = 0)

tres bien ecrit en français mais je ne comprends malheureusement rien.
je dois créer des feuilles avec des nom et date (mois et année) dans chacun de mes deux classeur, j'ai utilisé un bouton pour ouvrir une feuille dans chacun des classeurs.
mes classeurs sont AVIONS et C-CLIENT.
l'un des code ne fonctionne pas. actuellement c'est le bouton 8 qui ne fonctionne pas et on me met l'erreur a ce niveau : If Workbooks("C-CLIENT").Sheets(i).Name = Nom Then Verif = True

voici les deux codes

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Private Sub CommandButton9_Click()
Dim Nom As String, i As Byte, Verif As Boolean, myMonth As Integer, myYear As Integer, myDate As Date, ee As String, a As Long
 myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate
 
myMonth = (Month(myDate))  ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""
recom:
Verif = False
Nom = InputBox("Définissez le nom du nouveau svp", "Ajout nouveau ") & "" & (myMonth) & " - " & myYear
 
If Nom = "" Then Exit Sub
 
For i = 1 To Sheets.Count
    If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True
Next
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Workbooks("AVIONS").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
        Application.ScreenUpdating = False
        Workbooks("AVIONS").Sheets(1).Activate
        Range("A1:P3").Select
        Selection.Copy
        Workbooks("AVIONS").Sheets(Nom).Activate
        Range("A1").Select
        ActiveSheet.Paste
        'On copie colle uniquement le format des colonnes
        Workbooks("AVIONS").Sheets(1).Activate
        Columns("A:P").Select
        Selection.Copy
        Workbooks("AVIONS").Sheets(Nom).Activate
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
Unload Me
UserForm1.Show
End Sub
 
Private Sub CommandButton8_Click()
Dim Nom As String, i As Byte, Verif As Boolean, myMonth As Integer, myYear As Integer, myDate As Date, ee As String, a As Long
 myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate
 
myMonth = (Month(myDate))  ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""
recom:
Verif = False
Nom = InputBox("Définissez le nom du nouveau client svp", "Ajout nouveau client") & "" & (myMonth) & " - " & myYear
 
If Nom = "" Then Exit Sub
 
For i = 1 To Sheets.Count
    If Workbooks("C-CLIENT").Sheets(i).Name = Nom Then Verif = True
Next
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Workbooks("C-CLIENT").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
        Application.ScreenUpdating = False
        Workbooks("C-CLIENT").Sheets(1).Activate
        Range("A1:Q3").Select
        Selection.Copy
        Workbooks("C-CLIENT").Sheets(Nom).Activate
        Range("A1").Select
        ActiveSheet.Paste
        'On copie colle uniquement le format des colonnes
        Workbooks("C-CLIENT").Sheets(1).Activate
        Columns("A:Q").Select
        Selection.Copy
        Workbooks("C-CLIENT").Sheets(Nom).Activate
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
Unload Me
UserForm1.Show
End Sub

02/03/2020, 15h36
MarcelG
Saut,

Pas de problème, Dorel.

Si tu codes
Code:

1 2 3 For i = 1 To Sheets.Count If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True Next
VBA ira balayer toutes les feuilles de ton classeur.
Quand bien même, une feuille verrait son nom toppé, la feuille suivante ne l'aurait pas.

Si tu testes "mercatog" et si les feuilles de ton classeur (dans l'ordre d'indice) se nomment "mercatog", "Theze" , alors ta variable booléenne va prendre la valeur Vrai puis Faux.
Ce qui revient à dire que ta boucle doit s'interrompre dès que la valeur est Vrai.
Ce qui implique ainsi une sortie anticipée de la boucle (Exit For).
Code:

1 2 3 4 5 6 7 8 9 'Initialisation Verif = False For i = 1 To Sheets.Count If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True Exit For End If Next i
Cela dit, et j'en ai pris conscience récemment, cette méthodologie dénature quelque peu l'objet d'une boucle qui est de balayer toutes les occurrences présentes.

Mieux vaut alors utiliser une boucle qui va s'exercer tant que la valeur est fausse et que toutes les feuilles n'ont pas été toutes testées au niveau de leur nom.
C'est le code que je t'ai proposé.

Pour le contrôle du code, dans le menu VBE (ALT + F11), Choisir Menu "Affichage \ Fenêtre variables locales".

Placer un point d'arrêt (Clic dans la marge au regard du code) pour placer un point d'arrêt.

Lancer la procédure (bouton valider au autre)

Lorsque le débugger s'arrêtera sur la ligne de ce point, dérouler le programme en pas à pas (F8)

Tu verras alors la valeur de la variable "Nom" dans la fenêtre. C'est cette valeur qu'il t'appartient de contrôler puis, éventuellement, de modifier la déclaration de la variable Nom

Tu peux dans un premier temps tester ton code avec le seul apport Exit For, puis tester avec le code que je te propose (Do…)
Code:

1 2 If ExistFeuillle(Nom) = False Then
Juste un commentaire, pour ce genre de test, il est plus souple d'utiliser une fonction retournant une valeur booléenne.
02/03/2020, 15h56
Dorel.D

j'ai fais une petite remarque
quand je lance le bouton qui est censé créer la page dans le classeur principale, il crée la page et active le classeur sous le userform.
dans ce même temps si je veux créer une feuille dans l'autre classeur ça ne passe pas.
Mais si j'affiche l'autre classeur avant et je lance mon userform, la page se créer.

Je sais pas pourquoi c'est comme ça
02/03/2020, 16h03
MarcelG
Nos post se sont croisés.

Je l'exprime souvent.
Il est prudent, voire nécessaire, de bien rattacher les feuilles à leur classeur parent.
Dans le cas contraire, c'st le classeur actif qui est affecté du code, ce qui peut être source d'erreur..
Code:

1 2 3 4 5 6 7 8 9 10 Verif = False With Workbooks("AVIONS") For i = 1 To .Worksheets.Count If .Sheets(i).Name = Nom Then Verif = True Exit For End If Next i End With
02/03/2020, 16h08
Dorel.D

escuse, je suis vraiment perdu
je met ce code ou ici ? je le remplace par quoi ?

En lieu et place de

Code:

1
2
3
For i = 1 To Sheets.Count
    If Workbooks("AVIONS").Sheets(i).Name = Nom Then Verif = True
Next

ça me met une erreur d'execution '1004' : la methode add de l'objet 'sheets' a échoué
et c'est cette page qui est soulignée : Workbooks("C-CLIENT").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
voici le code qui se trouve dans le bouton

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
46
47
48
49
Private Sub CommandButton8_Click()
Dim Nom As String, i As Byte, Verif As Boolean, myMonth As Integer, myYear As Integer, myDate As Date, ee As String, a As Long
 myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate
 
myMonth = (Month(myDate))  ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""
recom:
Verif = False
Nom = InputBox("Définissez le nom du nouveau client svp", "Ajout nouveau client") & "" & (myMonth) & " - " & myYear
 
If Nom = "" Then Exit Sub
 
Verif = False
 
With Workbooks("C-CLIENT")
  For i = 1 To .Worksheets.Count
     If .Sheets(i).Name = Nom Then
         Verif = True
          Exit For
     End If
  Next i
End With
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Workbooks("C-CLIENT").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
        Application.ScreenUpdating = False
        Workbooks("C-CLIENT").Sheets(1).Activate
        Range("A1:Q3").Select
        Selection.Copy
        Workbooks("C-CLIENT").Sheets(Nom).Activate
        Range("A1").Select
        ActiveSheet.Paste
        'On copie colle uniquement le format des colonnes
        Workbooks("C-CLIENT").Sheets(1).Activate
        Columns("A:Q").Select
        Selection.Copy
        Workbooks("C-CLIENT").Sheets(Nom).Activate
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
Unload Me
UserForm1.Show
End Sub

02/03/2020, 16h26
MarcelG

(Nous pourrons envisager dans un second temps l'amélioration du code)

Que te renvoie la variable "Nom" dans la fenêtre des variables locales?
02/03/2020, 16h37
Dorel.D

je ne vous suis pas trop.
peut par un code avec commentaire a coté, je pourrai mieux comprendre
02/03/2020, 16h40
MarcelG

As-tu suivi les indications du post #8 (Point d'arrêt, Exécution pas à pas…)?
02/03/2020, 16h46
Dorel.D

je ne sais vraiment pas de quoi on parle, je suis novice en vba
c'est ma premiere fois d'entendre parler de ça
02/03/2020, 16h58
MarcelG

Moi je veux bien!
Tu enchaînes les post sans les considérer un par un!

Pour l'affichage des variables locales, voir plus haut.

A gauche du code se trouve une barre verticale.

Tu cliques sur cette barre en face de la ligne de code.

Code:

Nom = InpuBox

Figure alors un point , en règle générale de couleur rouge.
Le texte est surligné de la même couleur.

Tu lances le formulaire et actives le bouton de validation.

Le débugger va se positionner sur la ligne surlignée en rouge, et qui sera également surlignée en jaune (généralement)

Tu actives une exécution en pas à pas en activant successivement la touche F8 de ton clavier.

Dans la fenêtre des variables locales, la variable Nom retournera une valeur.

Quelle est cette valeur?
02/03/2020, 17h11
Philippe Tulliez
Bonjour Dorel.D,

Citation:

je ne sais vraiment pas de quoi on parle, je suis novice en vba
c'est ma premiere fois d'entendre parler de ça

Une des choses à bien connaître lorsque l'on développe, c'est l'éditeur et les outils de débogage

Je te conseille donc de lire attentivement ces tutoriels
- Le débogage sous Visual Basic 6 & Visual Basic pour Application (1ère partie) et tout particulièrement le chapitre V.2. Exécuter le code afin de comprendre ce que Marcel, que je salue au passage, évoquait à propos de F8 (Pas à pas)
- Vos premiers pas dans l'éditeur de macros Excel

désolé de vous fatigué, c'est souvent compliqué par ecrit
quand je fais F8 sur la ligne d'erreur
il ya des erreurs qui sont signalées dans cette parti de
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Userform_Initialize() Set wk1 = ThisWorkbook '<--- AVION Set wk2 = Workbooks("C-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

Voir 40 message(s) de cette discussion en une page