Discussion :

[doowy38]

Bonjour,

Je me suis mis depuis peu au VBA, et j'ai quelques difficultés.
Je voudrais faire une macro qui parcours des cellules, qui teste si elles sont inférieurs à -1, et si c'est le cas qu'elle les vide et les colorie en rouge.
Ces cellules vont de D3 à G5 (ça ne fait pas beaucoup mais ce n'est qu'un essai pour appliquer avec beaucoup plus de cellules), et j'ai pensé imbriquer deux boucles For Next ayant chacune un indice (i et j) censés représenter la ligne et la colonne.
Mais ça ne marche pas.
Quelqu'un pourrait-il m'aider ? Je suis ouvert à d'autres solutions mais j'aimerais quand même résoudre ce problème avec mes indices i et j.

Voici mon code :

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
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2009-06-09 par NXP20176
'
 
'
    Dim i As Integer
    Dim j As Integer
 
    For i = 4 To 7
        For j = 3 To 5
            If Range(Cells(j, i)) < (-1) Then
                Range(Cells(j, i)).Select
                Selection.ClearContents
                 With Selection.Interior
                 .ColorIndex = 3
                 .Pattern = xlSolid
                 End With
            End If
        Next
    Next
 
End Sub

Merci d'avance pour vos réponses.

[Didier Gonard]

Bonjour,

Il s'agit de parcourir une collection ou un tableau, vois dans l'aide et sur le forum à ces mots clefs..
Regardes pour commencer à For each du genre :

Code :

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

1
2
3
4
5
6
7
Sub parexemple()
Dim cell As Range
 
For Each cell In Range("D3:G5")
    If cell.Value > 5 Then MsgBox cell.Address & "  " & cell.Value & "  c'est trop !"
Next cell
End Sub

rajout : vois au moins les premières pages de cet excellent tuto :

http://bidou.developpez.com/tutoriels/ExcelVBA/

cordialement,

Didier

[aalex_38]

Bonjour,


ta boucle fonctionne la syntaxe pour les range n'est pas bonne.

Essai comme ça :

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
    Dim i As Integer
    Dim j As Integer
 
    For i = 4 To 7
        For j = 3 To 5
            If Cells(j, i) < -1 Then
               With Cells(j, i)
                 .ClearContents
                 With .Interior
                 .ColorIndex = 3
                 .Pattern = xlSolid
                 End With
               End With
            End If
        Next
    Next

[aalex_38]

Re,


J'ai seulement corrigé ton code, la méthode dOrmonth est plus "propre"


Edit: DeaD, pas raffraichi !

[DeaD78]

Salut,

Quelques petits problèmes de syntaxe juste :

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
 
Sub Test()
 
    Dim i As Integer
    Dim j As Integer
 
    For i = 4 To 7
        For j = 3 To 5
            If Cells(j, i).Value < -1 Then
                Cells(j, i).Select
                Selection.ClearContents
                With Selection.Interior
                    .ColorIndex = 3
                    .Pattern = xlSolid
                End With
            End If
        Next
    Next
 
End Sub

EDIT : F5 nom de Diou !!!

[doowy38]

Merci beaucoup, je vais essayer avec vos corrections.
Entre temps j'ai trouvé une autre méthode dans la FAQ que j'ai adaptée et qui marche (http://silkyroad.developpez.com/vba/boucles/) :

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
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2009-06-09 par NXP20176
'
 
'
    Dim Cell As Range
 
    For Each Cell In Range("D3:G5")
        If Cell.Value < (-1) Then
            Cell.Select
            Selection.ClearContents
             With Selection.Interior
             .ColorIndex = 3
             .Pattern = xlSolid
             End With
        End If
    Next
 
End Sub

Si ça marche avec vos corrections, je mets le sujet en résolu.

[doowy38]

Merci beaucoup à vous,
Vos corrections marchent très bien.

Je mets le sujet en résolu.

A bientôt.

[aalex_38]

Juste une remarque sur ces 3 lignes, sans doutes issues de l'enregistreur de macro qui répond à ce que fiat l'utilisateur d'ou les multiples select :

Code :

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

1
2
3
          Cell.Select 'ici on selectionne a chaque fois la cellule dans la feuille
            Selection.ClearContents
             With Selection.Interior

peut être remplacé par

Code :

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

1
2
3
4
5
6
7
with            Cell
 .ClearContents
        With .Interior
         '...
         end with
'...
 end with