copier ligne rouge

[GHISLAIN]

bonjour a tous

voila je cherche a mettre un code sur un bouton d'userform qui au clique me copierai uniquement les lignes en rouge et me les collerai sur la feuille 3 en A2

je vous remercie de l aide apporte

amicalement

GHISLAIN

 

[Temjeh]

Re : copier ligne rouge

Bonjour

Vite fait sos le bouton:

For i = 1 To Range("A65000").End(xlUp).Row
  If Range("A" & i).Interior.ColorIndex = 3 Then
      Range(Range("A" & i), Range("B" & i)).Select
       Selection.Copy
      Sheets("Feuil3").Select
       Range("A65000").End(xlUp).Offset(1, 0).Select
        'ActiveSheet.Paste ...ou
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
      Sheets("Feuil2").Select
  End If
Next i

Pour un collage ordinaire met à la place ActiveSheet.Paste

A+

Temjeh

 

[Dan]

Re : copier ligne rouge

Bonjour,

Un peu trop vite Temjeh , déclaration des variables ....

Plus simple et plus vite :

 Sub copycol()
Dim i As Byte
Application.ScreenUpdating = False
Sheets("feuil2").Activate
For i = 6 To Range("A65000").End(xlUp).Row
If Range("A" & i).Interior.ColorIndex = 3 Then
Range(Range("A" & i), Range("B" & i)).Copy Destination:=Sheets("feuil3")_
.Range("A65000").End(xlUp).Offset(1, 0)
End If
Next i
Application.ScreenUpdating = True
End Sub

A te lire

 

[GHISLAIN]

Re : copier ligne rouge

Bonjour Dan ainsi que Temjeh .

je vous remercie pour vos reponses qui fonctionne a merveille. je vous souhaite une bonne journee

Amicalement

GHISLAIN