Discussion :

[manitou83]

Bonjour,

Je suis en plein apprentissage de VBA ( et d'excel aussi) et j'avoue avoir quelques soucis avec l'une de mes macros, je vous explique: je doit manipuler un tableau, et suivant le contenu d'une cellule (la N3 pour ne pas la nommer) j'aimerais bien colorier l'ensemble de la ligne du tableau : en vert si la cellule ne contient rien et en orange si elle contient quelque chose (du texte ndlr)... donc j'ai commencé à faire une petite macro mais lorsque je l'execute ça me marque " erreur else sans if", j'ai beau avoir cherché d’où provenait cette erreur mais je ne trouve pas..O_o'
donc voila, les questions que je me poses sont donc : -est-ce que la macro vous semble correcte pour ce que j'ai envie de faire? (or not to be)
- et pourquoi cette @'#*?! de boite de dialogue me dit qu'il ya un problème avec else et if ?

Merci d'avance pour vos reponses
je vous joint ma macro...

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
33
Sub macro_test()
 
Dim i As Integer
i = ActiveSheet.UsedRange.Rows.Count   'calcul  ligne du tableau
 
For i = 3 To i 'boucle se repete a chaque ligne du fichier
 
    If Cells("i,14") = "" Then
    Rows("i").Select
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternThemeColor = xlThemeColorAccent1
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0.799981688894314
 
 
   Else
    Rows("i").Select
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternThemeColor = xlThemeColorAccent1
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0.799981688894314
        End If
 
    Next
 
 
End Sub

[rjamin]

Bonjour,
Quand vous utilisez il faut un END WITH à la finc des instructions

Code :

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

1
2
3
4
With .......
           Instructions
           Instructions
END With

[manitou83]

Bonjour,

Ok merci pour vos éléments de réponse. Donc pour finir , la macro fonctionne enfin (j'ai ajouté 2-3 truc)

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
33
34
35
36
 
Sub macro_test()
 
 
NBl = 2 + Range(Cells(3, 1), Cells(3, 1).End(xlDown)).Rows.Count   'calcul  ligne du tableau a partir de la ligne 2
 
 For i = 3 To NBl 'boucle se repete a chaque ligne du fichier
 
    Range(Cells(i, 1), Cells(i, 14)).Select   ' selection de la ligne
 
    If Cells(i, 14) = "" Then
 
            With Selection.Interior
        .Pattern = xlSolid
        .PatternThemeColor = xlThemeColorAccent1
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0.799981688894314
        End With
 
    Else
 
        With Selection.Interior
        .Pattern = xlSolid
        .PatternThemeColor = xlThemeColorAccent1
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0.799981688894314
 
         End With
    End If
 
 Next i
 
Exit Sub    ' quitte la procédure
End Sub