Discussion :

[titeZ]

re Bonjour

je cherche a crée une macro qui sous une condition de couleur d'une cellule me copierais LA LIGNE ENTIERE dans une autre feuille que je crée au debut...

Le simple fais de copier ne fonctionne pas ( ça s'arrete pile a la ligne ou il y a de la couleur...)

Quelqu'un pourrait il m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub envoiesurlautrefeuille()
Worksheets.Add
Worksheets(2).Activate
 
Dim VARO As Integer
lignefin = Worksheets(2).Cells(65535, 1).End(xlUp).Row
For VARO = 1 To lignefin
If Cells(VARO, 13).Interior.ColorIndex = 3 Then
Range("VARO:VARO").Copy
 
End If
Next
End Sub

[alsimbad]

salut
essaye comme ça

Code :

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

1
2
3
4
5
6
7
8
Dim VARO As Integer
lignefin = Worksheets(1).Cells(65535, 1).End(xlUp).Row
For VARO = 1 To lignefin
MsgBox Cells(VARO, 1).Interior.ColorIndex
If Cells(VARO, 13).Interior.ColorIndex = 3 Then
Cells(VARO, 13).EntireRow.Copy
End If
Next

[ouskel'n'or]

Une explication au bon conseil d'alsimbad : Dans la ligne suivante, tu utilises "VARO:VARO" comme un string, le mot "VARO:VARO"

Range("VARO:VARO").Copy

et ici

For VARO = 1 To lignefin

comme une variable...

Code :

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

Rows(VARO).EntireRow.Copy

est une autre syntaxe si tu tiens à utiliser VARO...
C'est toi qui vois

[titeZ]

Non ca ne marche pas
mais je ne comprends pas bien ce que tu as fait a quoi sert cette msgbox ?
et pourquoi la ligne fin est est worksheet 1 ?

[ouskel'n'or]

Non ca ne marche pas

Là, tu nous aides vraiment... Qu'est-ce qui ne marche pas ?
Une erreur ? Laquelle ? Sur quelle ligne ?
Enfin, comme tu copies et que tu ne colles pas, que veux-tu faire au juste ?

[titeZ]

En faite...ca ne fonctionne pas ... mais c'est normale que ça ne fonctionne pas ( ca me mmets une erreur pour etre precise: ma msgbox apparait avec -4142)?????? et jdois faire ok (pour l'enlever le nombre ) autant de fois que j'ai de ligne en couleur....


Je ne comprend absolument pas cette msg box ...

[titeZ]

nON NON ca me met simplement une fois cette msg box avec -4142 et rien ne s'est passé