copier coller sous conditions de couleurRésolu

Question

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...

Ce que j'ai fais ne fonctionne pas ( ça s'arrete pile a la ligne ou il y a de la couleur...)
Quelqu'un pourrait il m'aider ?

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

cs_MPi · Accepted Answer

Pour éviter les erreurs, tu devrais décarer les variables As Long plutôt que Integer ...

Et tu peux sélectionner ta ligne avec
Rows(VARO).select
Selection.Copy

MPi

mortalino · Answer

Salut, essaie comme ceci : Sub envoiesurlautrefeuille() Worksheets.Add Worksheets(2).Activate Dim VARO As Integer, lignefin As Integer, lignefin2 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("M:" & VARO).Copy lignefin2 = lignefin2 + 1 Sheets(Sheets.Count).Select Cells(lignefin2, 1).Select Selection.Paste Sheets(2).Select End If Next ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

TiteZ · Answer

Non ça ne fonctionne pas :-(

mortalino · Answer

Je viens de tester celui là, et il fonctionne (vérifie tout de même les cellules, ainsi que les noms de feuilles) : Sub envoiesurlautrefeuille() Dim strName As String Worksheets.Add strName = ActiveSheet.Name Sheets("Feuil2").Select Dim VARO As Integer, lignefin As Integer, lignefin2 As Integer lignefin = Range("M1").End(xlDown).Row For VARO = 1 To lignefin If Cells(VARO, 13).Interior.ColorIndex = 3 Then Range("M" & VARO).Copy lignefin2 = lignefin2 + 1 Sheets(strName).Select Cells(lignefin2, 1).Select ActiveSheet.Paste Sheets("Feuil2").Select End If Next End Sub ~ Mortalino ~ Colorisation automatique Privilégie le nom de la feuille plutôt que l'index, cela évite des erreurs. @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

TiteZ · Answer

Malheureusement ca ne fonctionne toujours pas pour moi...
Ca selectionne bien la cellule en rouge mais il y a une erreur au moment de la coller et en plus ca me selectionne que la cellule et non pas la ligne...

:-(

mortalino · Answer

Pour copier la ligne et non la cellule, remplace
Range("M" 
& VARO).Copy
Par
Range(VARO & ":" & VARO).Copy

Par contre, le fait que ça ne fonctionne pas, ne m'avance pas trop, fait voir le code que tu as adapté (pour les noms de feuilles) ainsi que le message d'erreur (et sur quelle ligne).

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

mortalino · Answer

Oui effectivement, merci MPi,  (j'essaie de me corriger, mais pas évident.)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_MPi · Answer

¦¬)

MPi

TiteZ · Answer

Merci

Copier coller sous conditions de couleur

9 réponses

Votre réponse

Discussions similaires