[copie sans saut de ligne cellule selon couleur]

Bonjour à tous,

j'ai deux colonnes A et B

je souhaite prendre les informations surlignées de la colonne A et les copier dans B

mais dans B je ne souhaite pas avoir de saut de ligne.

ci joint le fichier test

Pour l'instant j'ai écrit le code suivant mais il ne fonctionne pas :

'Attention à bien mettre à jour la liaison

Sub Test()

Dim cellule As Range

For Each cellule In Range([A1], [A1].End(xlDown))

If cellule.Interior.Color <> RGB(255, 255, 0) Then

Range([A1], [A1].End(xlDown)).Copy

[B1].PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End If

Next cellule

End Sub

Pouvez-vous m'aider ?

En vous remerciant par avance

loka

8test.zip (6.94 Ko)

Bonjour,

une manière:

Sub cop()
Dim desti
Dim Last
Last = [A65000].End(xlUp).Row
For i = 1 To Last
  If Cells(i, 1).Interior.ColorIndex = 6 Then
    Set desti = [B65000].End(xlUp)
    Cells(i, 1).Copy Destination:=desti(2)
  End If
Next
End Sub

P.

Merci beaucoup

Rechercher des sujets similaires à "copie saut ligne couleur"