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