Discussion :

[young 25]

Re à toutes et à tous,

J'ai modifié une macro en ajoutant un offset et depuis j'ai un code erreur 400 qui arrive.

j'ai donc supprimé cette modif mais cela n'a rien changé toujours l'erreur.

A quoi correspond ce code erreur.
Si vous avez une idée elle est le bien venu

Merci
A+

[Theze]

Bonjour,

Sans nous montrer le code, il sera difficile pour nous de te donner un coup de main.

Hervé.

[young 25]

re,

voila donc le code, mais je ne comprend pas car c'est le même code utilisé sur un autre fichier et il fonctionne très bien.
A ne rien comprendre.

A chaque fois il ne dit que j'ai une erreur code visual basic 400

merci à vous

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
Sub Rectangle3_Clic()
' ActiveSheet.Unprotect
Dim ZoneàModifier As Range
Dim cellule As Range
'Affecte une couleur en fonction de la valeur de la cellule
Set ZoneàModifier = Range("A17:A385")
For Each cellule In ZoneàModifier
Select Case cellule
Case Is = "" ' si la case est vide
cellule.Interior.ColorIndex = 2 'couleur font blanche
Case Is = "Bleu" ' si la case est bleu
cellule.Interior.ColorIndex = 5 'couleur font bleu
Case Is = "Verte" ' si la case est Verte
cellule.Interior.ColorIndex = 4 'couleur font verte
Case Is = "Orange" ' si la case est Orange
cellule.Interior.ColorIndex = 46 'couleur font Orange
Case Is = "Rose" ' si la case est Rose
cellule.Interior.ColorIndex = 7 'couleur font Rose
Case Is = "Jaune" ' si la case est Jaune
cellule.Interior.ColorIndex = 6 'couleur font Jaune
End Select
'cellule.Offset(0, 1).Interior.ColorIndex = cellule.Interior.ColorIndex ' décale d'une case vert la droite et de zero vers le bas et font identique à la cellule de départ
'cellule.Offset(0, 2).Interior.ColorIndex = cellule.Interior.ColorIndex ' décale de 2 cases vert la droite et de zero vers le bas et font identique à la cellule de départ
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

[jfontaine]

Bonjour,

Quelques petits points.

Déclaration de tes variables :
1. Évites de mettre des accents dans le nom de tes variables
2. Mets au moins un caractère Majuscule dans le nom. (Lors de la saisie de cett dernière dans le code, si VBA ne met pas de majuscule cela signifiera que tu as fait une erreur de frappe)

Mise en Forme: Utilises les tabulations afin de respecter l'arborescence de ton code (Entrée dans une boucle, if etc...) Voir le code proposé ci dessous

Select case : Si tu ne spécifie pas la propriété à testé, par exemple "Select case Cellule", il n'est pas certain que VBA comprenne qu'il faille tester la valeur et non l'objet Range.
C'est pour cela qu'il vaut mieux spécifier la propriété => "Select case Cellule.Value" pour enlever toute ambiguïté

et pour firnir, Select case respectant la casse (Majuscule et minuscule), il vaut mieux tester une valeur toute minuscule ou majuscule (comme exemple ci dessous)

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
Sub Rectangle3_Clic()
' ActiveSheet.Unprotect
 
Dim ZoneaModifier As Range
Dim Cellule As Range
 
'Affecte une couleur en fonction de la valeur de la cellule
Set ZoneaModifier = Range("A1:A10")
 
For Each Cellule In ZoneaModifier
    Select Case UCase(Cellule.Value)
        Case "" ' si la case est vide
            Cellule.Interior.ColorIndex = 2 'couleur font blanche
        Case "BLEU"  ' si la case est bleu
            Cellule.Interior.ColorIndex = 5 'couleur font bleu
        Case "VERTE"  ' si la case est Verte
            Cellule.Interior.ColorIndex = 4 'couleur font verte
        Case "ORANGE"  ' si la case est Orange
            Cellule.Interior.ColorIndex = 46 'couleur font Orange
        Case "ROSE"  ' si la case est Rose
            Cellule.Interior.ColorIndex = 7 'couleur font Rose
        Case "JAUNE" ' si la case est Jaune
            Cellule.Interior.ColorIndex = 6 'couleur font Jaune
    End Select
'cellule.Offset(0, 1).Interior.ColorIndex = cellule.Interior.ColorIndex ' décale d'une case vert la droite et de zero vers le bas et font identique à la cellule de départ
'cellule.Offset(0, 2).Interior.ColorIndex = cellule.Interior.ColorIndex ' décale de 2 cases vert la droite et de zero vers le bas et font identique à la cellule de départ
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
 
End Sub

NB: je n'ai pas d'erreur 400

[AlainTech]

Bonjour,

Pour compléter ce qu'a dit jfontaine, il ne faut pas laisser Excel choisir au hasard la feuille pour le Range ZoneaModifier.

Code :

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

Set ZoneaModifier = Workbooks("NomDuWB").Sheets("NomDeLaSheet").Range("A1:A10")