[copie sans saut de ligne cellule selon couleur] Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
loka
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 10 juin 2016
Version d'Excel : 2010

Message par loka » 15 juin 2016, 10:31

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
test.xls
(28.5 Kio) Téléchargé 6 fois
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'122
Appréciations reçues : 32
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 15 juin 2016, 10:50

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.
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
l
loka
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 10 juin 2016
Version d'Excel : 2010

Message par loka » 15 juin 2016, 10:52

Merci beaucoup
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message