Problème de macro

Version imprimable

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

Problème de macro

Bonjour,
j'espère être sur la bonne conversation,
.je suis actuellement entrain de corrigé un code que l'on m'a donné, mais impossible de comprendre l'erreur que excel m'affiche.

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
' Vérification des valeurs dans la feuille
    
        For counter = 1 To 106
        
           
            If Worksheets("Feuil4").Range(col_o & counter).Value = "" Then
                Worksheets("Feuil4").Range(col_o & counter).Select
                Worksheets("Feuil4").Range(col_o & counter) = Value_ME
                Valeur = Valeur1 & Valeur2 & counter & Valeur3
                ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:=Valeur
                Sheets("NEUF").Select
                Sheets("NEUF").Copy Before:=Sheets(Page)
                Sheets("NEUF (2)").Select
                Sheets("NEUF (2)").Name = Value_ME
                Worksheets(Value_ME).Unprotect Password:="Caty2170"
                Worksheets(Value_ME).Range("B9").Select
                Worksheets(Value_ME).Range("B9").Value = Value_ME
                Worksheets(Value_ME).Range("H12").Select
                Worksheets(Value_ME).Range("H12").Value = Value_MT
                Worksheets(Value_ME).Protect Password:="Caty2170"
                Worksheets("Feuil4").Range("O54").Value = Value_ME
                Worksheets("Feuil4").Protect Password:="Caty2170"
                Sheets(Value_ME).Select
                ActiveWorkbook.Protect Password:=classeur
                GoTo fin1:
                
            End If
            Page = Page + 1
        Next
     
    'Sélection de la feuille
        ' Sheets(Value_ME).Select

Je suis débutant dans le code, surtout sur Excel donc j'espère que quelqu'un va pouvoir m'aider.
Je vous remercie d'avance.

05/05/2017, 17h23
parmi

Bonjour,

Premièrement, il y a une section pour les problèmes de macros.
Deuxièment, quand tu mets du code, utilise le bouton # pour le formater et le rendre "lisible"

Maintenant, quand tu dis que tu as une erreur, quelle est-elle au juste ?
J'imagine que le problème vient de la variable Page... que vaut cette variable lors de l'erreur ?

PS: ça ne sert à rien d'utiliser des Select
05/05/2017, 17h39
aguerriera

Je suis nouveau sur le site

Premièrement bonjour, 😂😂
Je suis nouveau donc je n'ai pas vu qu'il y avait une section macro.
Quand je veux ajouter une semaine... ma macro m'affiche un code d'erreur "9"
05/05/2017, 17h55
parmi
Met un MsgBox avant la ligne
Code:

1 2 MsgBox Page Sheets("NEUF").Copy Before:=Sheets(Page)
J'imagine que le message sera 0, donc une feuille inexistante...

Si c'est le cas, initialise ta variable Page

Code:

Page = 1 ' ou autre valeur valide
08/05/2017, 13h28
aguerriera

Bonjour,
Il m'affiche en gros "faux
Je suis perdu là

Bonjour,
Voilà ce que tu dis dans ta macro :

Pour counter allant de 1 à 106 :
Faire tout un tas de chose
Page = Page + 1

Or avant de lancer ta boucle, tu ne dis jamais ce que vaut Page, c'est comme si tu disais : "Soit une corbeille à fruit. Je lui rajoute un fruit, combien y a-t-il de fruits maintenant?" Ben...on ne sait pas, car on ne savait pas combien de fruits il y avait au début. Il faudrait que tu initialises ta variable.
Mais en fait, il y a plus simple. Tu fais une boucle et dans cette boucle à chaque iteration, tu ajoutes 1 à la variable Page. Or la boucle permet justement d'avoir une variable qui augment de 1 à chaque iteration. Donc utilise counter au lieu d'utiliser une autre variable.
Ensuite, évite au maximum d'utiliser les fonctions Select et Activate. Elles entraînent souvent des problèmes difficilement gérables et souvent elles sont inutiles
N'écris pas :

Code:

1 2 3 Sheets("ma feuille").Activate ActiveSheet.Range("A1").Select Selection.Value = "toto"

Mais :

Code:

Sheets("ma feuille").Range("A1").Value = "toto"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ' Vérification des valeurs dans la feuille For counter = 1 To 106 If Worksheets("Feuil4").Range(col_o & counter).Value = "" Then Worksheets("Feuil4").Range(col_o & counter) = Value_ME Valeur = Valeur1 & Valeur2 & counter & Valeur3 ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:=Valeur Sheets("NEUF").Copy Before:=Sheets(counter) Sheets("NEUF (2)").Name = Value_ME Worksheets(Value_ME).Unprotect Password:="Caty2170" Worksheets(Value_ME).Range("B9").Value = Value_ME Worksheets(Value_ME).Range("H12").Value = Value_MT Worksheets(Value_ME).Protect Password:="Caty2170" Worksheets("Feuil4").Range("O54").Value = Value_ME Worksheets("Feuil4").Protect Password:="Caty2170" ActiveWorkbook.Protect Password:=classeur GoTo fin1: End If Next

De meilleur information

Bonjour,
Je vous montre ci-joint la totalité :

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
Sub Bouton22_Cliquer()
' AJOUT D'UNE SEMAINE
    ' Définition des variables de la procédure
        Dim Page, Pages
        Dim Message_MT, Title_MT, Default_MT, M_DP
        Dim classeur
        Dim feuille
        Dim Message_ME, Title_ME, Default_ME, Value_ME, Num
        Dim pos As Chart
        Dim Fichier
        Dim Valeur, Valeur1, Valeur2, Valeur3
        Valeur_o = Worksheets("Feuil4").Range("O54").Value
        Valeur_mo = 1
        Valeur_m = Valeur_mo + Valeur_o
        
     ' Enlever le mot de passe classeur et feuilles
        classeur = "Caty2170"
        feuille = "Caty2170"
    
        ActiveWorkbook.Unprotect Password:=classeur
       
          
    ' Eviter le scrolling de l'écran
        Application.ScreenUpdating = False
     
    ' Définition du Numéro de semaine à ajouter.
        Message_ME = " --- NUMERO DE SEMAINE A AJOUTER PAR DEFAUT --- "
        Title_ME = " - N° DE LA SEMAINE - "
        Default_ME = Valeur_m
        HelpFile_ME = " "
        Context_ME = True
    
    ' Affiche le message, le titre et la valeur par défaut.
        Value_ME = InputBox(Message_ME, Title_ME, Default_ME)
             If Value_ME = "" Then
                GoTo fin
            End If
    
    ' Définition du jour à ajouter.
        Message_MT = " --- NUMERO DU PREMIER JOUR DE LA SEMAINE N°" & Value_ME & " --- "
        Title_MT = " - NUMERO DU JOUR DE LA SEMAINE N° " & Value_ME
        Default_MT = Valeur_mt
        Helpfile_MT = " "
        Context_MT = True
    
    ' Affiche le message, le titre et la valeur par défaut.
        Value_MT = InputBox(Message_MT, Title_MT, Default_MT)
             If Value_MT = "" Then
                GoTo fin
            End If
            
    ' Definition de la colonne
        col_o = "O"
        Sheets("Feuil4").Select
        Worksheets("Feuil4").Unprotect Password:="Caty2170"
        Worksheets("Feuil4").Range("Z1").Select
        Worksheets("Feuil4").Range("Z1").Value = Value_ME
        
        For semaine = 1 To 53
            
            If Worksheets("Feuil4").Range(col_o & semaine).Value <> "" Then
                If Worksheets("Feuil4").Range(col_o & semaine).Value = Worksheets("Feuil4").Range("Z1").Value Then
                GoTo sortie_semaine
                End If
            End If
        Next
     
    
    ' Ajout de la valeur dans la feuille 4
        Sheets("Feuil4").Select

        Valeur1 = "=Feuil4!R1C15:"
        Valeur2 = "R"
        Valeur3 = "C15"
        Page = Worksheets("Feuil4").Range("O54").Value
 
    ' Vérification des valeurs dans la feuille
    
        For counter = 1 To 106
        
           
            If Worksheets("Feuil4").Range(col_o & counter).Value = "" Then
                Worksheets("Feuil4").Range(col_o & counter).Select
                Worksheets("Feuil4").Range(col_o & counter) = Value_ME
                Valeur = Valeur1 & Valeur2 & counter & Valeur3
                ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:=Valeur
                Sheets("NEUF").Select
                Sheets("NEUF").Copy Before:=Sheets(Page)
                Sheets("NEUF (2)").Select
                Sheets("NEUF (2)").Name = Value_ME
                Worksheets(Value_ME).Unprotect Password:="Caty2170"
                Worksheets(Value_ME).Range("B9").Select
                Worksheets(Value_ME).Range("B9").Value = Value_ME
                Worksheets(Value_ME).Range("H12").Select
                Worksheets(Value_ME).Range("H12").Value = Value_MT
                Worksheets(Value_ME).Protect Password:="Caty2170"
                Worksheets("Feuil4").Range("O54").Value = Value_ME
                Worksheets("Feuil4").Protect Password:="Caty2170"
                Sheets(Value_ME).Select
                ActiveWorkbook.Protect Password:=classeur
                GoTo fin1:
                
            End If
            Page = Page + 1
        Next
     
    'Sélection de la feuille
        ' Sheets(Value_ME).Select
  
sortie:
    Sheets("SOMMAIRE").Select
        toto = MsgBox(" - ET NON VOUS N'AVEZ PAS CHANCE, CE N'EST PAS LE BON MOT DE PASSE - ALLEZ ESSAIE ENCORE, NE TE DECOURAGES PAS - ", vbCritical)
            GoTo fin1
fin:
        Sheets("SOMMAIRE").Select
        ActiveWorkbook.Protect Password:=classeur
        'ActiveWorkbook.Save
        GoTo fin1

sortie_semaine:
    toto = MsgBox(" - LE NUMERO DE semaine SAISIE EXISTE DEJA, VEUILLEZ EN DEFINIR UN AUTRE - ", vbCritical)
    Worksheets("Feuil4").Protect Password:="Caty2170"
    ActiveWorkbook.Protect Password:=classeur
        Sheets("SOMMAIRE").Select
     
fin1:
    ' Fin du scrolling de l'écran
        Application.ScreenUpdating = True
    
End Sub

La partie qui est en rouge, c'est là où l'exécution plante, je dois vous avouer avoir pas mal de mal à le comprendre.

09/05/2017, 09h48
riaolle
Bonjour,

Nous t'avons déjà donné quelques éléments de réponses et conseils, mais tu ne les as pas appliqué.
Compilation de ce qui a été dit avant :
- Le problème vient très sûrement de la variable Page. Que vaut Page au tout début? Si elle vaut 0, je te rappelle que nous t'avons dit que Sheets(0) n'existe pas. De plus, relis mon message precedent (#6), je t'explique que tu ne devrais pas utiliser la variable Page, car tu as une structure (boucle For) qui te permet d'avoir un compteur.
- N'utilise pas Select (& Activate). Je te renvoie à mon post precedent (#6) où je t'explique qu'il ne faut pas utiliser ces mots, mais qu'il faut plutôt travailler directement sur les objets.
Après, quand je regarde ta macro, je vois qu'il y a énormément de variables inutiles. Un exemple :
Code:

1 2 3 4 5 6 Valeur1 = "=Feuil4!R1C15:" Valeur2 = "R" Valeur3 = "C15" '... Valeur = Valeur1 & Valeur2 & counter & Valeur3 ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:=Valeur
Pourquoi n'écris-tu pas directement :

Code:

ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:="=Feuil4!R1C13:R" & counter & "C15"

Ceci n'est qu'un exemple, il y a beaucoup d'autres variables qui me paraissent inutiles dans ton code. Essaie un peu d'épurer tout cela : cela rendra ton code plus lisible (parce que là on est obligé de revenir 3 lignes en arrières pour se rappeler à quoi correspond la variable qu'on est en train d'utiliser) et ça évitera des erreurs.
En plus de cela, tu ne déclares pas toutes tes variables, tu en déclares certaines, mais ne les utilises pas complètement. Par ex.:
Code:

1 2 3 Dim feuille '... feuille = "Caty2170" '... Worksheets("Feuil4").Unprotect Password:="Caty2170"
En fait, la vairable feuille n'est jamais utilisée dans le code. De toute façon, elle ne sert à rien.

Essaie déjà d'adapter ton code avec tous ces conseils, puis reviens vers nous ;)
09/05/2017, 09h54
aguerriera

Justement..

Ce n'est pas mon code, je dois le corrigé pour quelqu'un, mais vu l'étendu des dégâts je ne sais plus où poser la tête.
Je vais essayer de faire ce que vous m'avez dit.
Je reviens bientôt ou pas :)
09/05/2017, 10h16
aguerriera

Help me

Il y aurait possibilité de pouvoir communiquer plus facilement ?
Je vous avouerais que je me perds et je ne comprends pas exactement tout.
09/05/2017, 11h06
riaolle
Nous t'avons posé 2 fois la même question, mais tu ne nous réponds pas correctement :
Citation:
J'imagine que le problème vient de la variable Page... que vaut cette variable lors de l'erreur ?
...
Met un MsgBox avant la ligne

Code:

1 2 MsgBox Page Sheets("NEUF").Copy Before:=Sheets(Page)

...
Il m'affiche en gros "faux
Que veut-dire "en gros"? Le message d'une messagebox est écrit clairement, il n'y a pas de à peu près.

Qu'est-ce que tu ne comprends pas dans les conseils et remarques données? Comment as-tu adapté ton code jusqu'à présent ? (n'oublie pas d'utiliser la balise code [le bouton #] quand tu écris du code dans ton message)
09/05/2017, 11h27
parmi

Avant ta boucle, tu écris ceci

Code:

Page = Worksheets("Feuil4").Range("O54").Value

Qu'y a-t-il dans cette cellule ?
Si c'est un nombre, déclare ta variable Page As Integer ou Long.
Si c'est un nom, déclare-la en String.
Et attention aux noms qui pourraient être réservés par le système. Aussi bien déclarer MaPage plutôt que Page

Dans ton code, tu déclares tout en Variant
Habitue-toi à déclarer chacune des variables selon le type nécessaire.

Finalement, quand tu mets du code, utilise le bouton # en haut du message pour le formater.
09/05/2017, 13h35
aguerriera

C'est TOP, mais pas tant que ça

Du coup j'ai trouvé la solution, c'étais sur les variables.
J'ai remis de l'ordre, mais maintenant j'ai un nouveau problème.
Je vais essayer de le régler, si je n'y arrive pas je risque de crier au secours :)
Du coup, je te remercie d'avoir pris du temps pour me répondre ! :) :zoubi:

New problème

Du coup maintenant,
La création d'une nouvelle semaine est ok
Mais ce qui a été fait, c'est que si on veut sélectionner une semaine il y un menu déroulant qui montre les semaines existants.
Mais le déroulant ne veut pas s'ouvrir, je suis obligé de sélectionner et de taper la semaine.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ' Définition des variables Value_m = Range("E15").Value Value_ME = "" & Value_m & "" If Value_ME = "" Then GoTo fin Else 'Sélection de la feuille Sheets(Value_ME).Select GoTo sortie End If fin: Worksheets("SOMMAIRE").Range("E15").Value = "" toto = MsgBox(" - VOUS N'AVEZ PAS SAISIE LE NUMERO DE SEMAINE A L'AIDE DU MENU DEROULANT - ", vbExclamation) sortie: Worksheets("SOMMAIRE").Range("E15").Value = ""
Désolé d'être aussi embêtant :)

09/05/2017, 13h56
riaolle

Le code donné ne dit en rien qu'il y a une liste déroulante. Est-ce une liste obtenue par validation des données (cellule sélectionnée : cliquer sur Données > Validation des données)? Est-ce un menu déroulant dans un UserForm?

Lorsque tu écris du code dans un message, utilise les balises code (bouton #).
09/05/2017, 14h07
aguerriera

1 pièce(s) jointe(s)

Quand je dois créer une nouvelle semaine tout marche correctement.
Par contre quand je veux sélectionner une semaine dans Atteindre la semaine impossible.

Code

Et donc j'ai ça comme code, pour cette partie :

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
Sub Bouton32_Cliquer()
' ATTEINDRE LA SEMAINE SELECTIONNEE
 
' Définition des variables
    Value_m = Range("E15").Value
    Value_ME = "" & Value_m & ""
 
 
    If Value_ME = "" Then
        GoTo fin
    Else
 
    'Sélection de la feuille
        Sheets(Value_ME).Select
        GoTo sortie
    End If
 
fin:
    Worksheets("SOMMAIRE").Range("E15").Value = ""
    toto = MsgBox(" - VOUS N'AVEZ PAS SAISIE LE NUMERO DE SEMAINE A L'AIDE DU MENU DEROULANT - ", vbExclamation)
sortie:
    Worksheets("SOMMAIRE").Range("E15").Value = ""
 
End Sub

Un peu de lecture sur la gestion d'erreur : http://silkyroad.developpez.com/VBA/...rreurs/#LIII-A
Je ne vois pas trop à quoi ça te sert d'avoir des GoTo ici. De plus, à quoi servent les lignes suivantes :
Code:

1 2 Value_m = Range("E15").Value Value_ME = "" & Value_m & ""
?

Voici le code simplifié :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Bouton32_Cliquer() ' ATTEINDRE LA SEMAINE SELECTIONNEE Cim Value_ME As Integer Value_ME = Range("E15").Value If Range("E15").Value = "" Then toto = MsgBox(" - VOUS N'AVEZ PAS SAISIE LE NUMERO DE SEMAINE A L'AIDE DU MENU DEROULANT - ", vbExclamation) Else 'Sélection de la feuille Sheets(Value_ME).Select End If Worksheets("SOMMAIRE").Range("E15").Value = "" End Sub
Cependant ce code ne détermine pas le comportement de la liste déroulante. Il utilise la valeur de la cellule avec la liste déroulante. Je ne comprends pas ce qui ne marche pas avec ta liste déroulante.

09/05/2017, 15h16
aguerriera

Hum hum

La partie

Code:

CimValue_ME As Integer

est en erreur ? Il est en rouge.
Pourquoi?
09/05/2017, 15h42
riaolle

Pardon, faute de frappe, c'est Dim et pas Cim.
Par contre, ceci montre que tu ne maitrises pas du tout les bases de VBA. Tu vas avoir des difficultés à avancer dans ta correction de macro, si tu ne maitrises pas ce genre de choses. Voici un tuto qu'il serait bon que tu parcours : http://bidou.developpez.com/article/VBA/

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