Discussion :

[aguerriera]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[aguerriera]

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"

[parmi]

Met un MsgBox avant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Page = 1  ' ou autre valeur valide

[aguerriera]

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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