Discussion :

[coincoin22]

Bonjour,

Je suis un débutant et je n'arrive pas à trouver une macro qui me permettrais de balayer toutes les lignes de mon classeur (plusieurs onglets).
Lorsqu'une ligne possède une police rouge dans une cellule alors la ligne correspondante doit être copiée dans un nouvel onglet "Bilan" par exemple.

Si vous pouvez me filer un coup de main ?

Je vous remercie d'avance...

Coincoin22

[Potzo]

Bonjour,

Code :

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

If Cells(X,X).Font.ColorIndex = 3 then Cells(X,X).EntireRow.Copy Destination:= Worksheets("Bilan").Cells(Y,Y)

Avec ça tu testes si ce qui est écrit dans la cellule de coordonnées X;X est en rouge et si c'est vrai ça te copie toute la ligne dans la feuille Bilan dans la Cellule de coordonnées Y;Y.

Après si tu veux chercher dans tous le classeurs, je ne sais que chercher feuille par feuille...

[coincoin22]

Merci mais je ne sais pas trop comment mettre en forme dans une macro, ce que tu viens de me dire. Je comprends bien mais il faut que la macro balaie toutes les lignes de mon classeur.

Je suis vraiment débutant... Merci encore !

Coincoin22

[Potzo]

Y a pas de souci. Moi aussi je debute en VBA.

Si tu veux parcourir toutes les lignes de ton classeur tu peux ecrire :

Code :

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

1
2
3
4
5
6
7
Dim C as Range declare la variable C comme une plage de cellules

For each C in Range("A1:Z" & Cells(Rows.Count,26).End(xlUp).Row)
    If C.Colorindex = 3 Then
    C.Copy Destination:= Worksheets("Bilan").Cells(1,1)
    End If
Next

ici, je te fais balayer ta feuille de la cellule A1 a Z quelquechose. Ce qui vien tapres le & permet de trouver la premiere ligne vide et donc de clore la zone de recherche.
Ensuite c'est comme ce que j'avais ecris dans mon poste precedent.

[coincoin22]

Que signifie le 26 ?

Ta macro fonctionne mais seule la cellule est copiée et non la ligne entière. Lorsqu'il y a deux cellules rouge sur deux lignes différentes, il écrase la cellule dans l'onglet bilan car on lui impose d'écrire dans la case (1,1).

J'ai fait un truc comme ça qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim C As Range
I = 1
For Each C In Range("A1:T2893" & Cells(Rows.Count, 26).End(xlUp).Row)
    If C.Font.ColorIndex = 3 Then
    I = I + 1
    C.EntireRow.Copy Destination:=Worksheets("bilan").Cells(I, 1)
    End If
Next

[Potzo]

Le 26 correspond au numero de la colonne Z. 1 pour A, 2 pour B etc