copier et coller cellules dans colonnes filtrées

[jeep90]

Bonsoir à tous.

J'ai un petit problème simple en apparence mais difficile (à mon niveau) à résoudre..
Je voudrais copier le contenu des cellules en B19:B22 vers la colonne C mais après un tri effectué (filtre automatique).. Etant donné que les lignes (et donc les cellules de la colonne C) sont non contigües, le collage ne fonctionne pas.. J'ai utilisé aussi la fonction "atteindre.." (cellules non vides) mais là non plus, ca ne fonctionne pas
Je vous ai adressé un petit fichier test ci-joint..
Je pensais que le problème avait déja été exposé auparavant, mais dans les forums je n'ai pas trouvé.
Je vous en remercie bien vivement par avance pour toutes vos suggestions

 

[kjin]

Re : copier et coller cellules dans colonnes filtrées

Bonsoir,
Il suffit de trier les données avant d'appliquer le filtre non ?!
A+
kjin

 

[juju_69]

Re : copier et coller cellules dans colonnes filtrées

Hello,

Voici une façon (sans doute pas la plus simple) :

Sub Copie()
Dim i As Integer, j As Integer
j = 19

For i = 8 To [A5000].End(xlUp).Row
If Rows(i).Hidden = False Then
If Cells(j, 2).Value = "" Then Exit Sub
Cells(i, 3) = Cells(j, 2)
j = j + 1
End If
Next

End Sub

J=19 correspond à la ligne de ton tableau où sont les valeurs à copier
2 (dans cells(j,2)) correspond au N° de colonne de ce même tableau

J'espère que cela répond à ta demande

@ +

Juju