Discussion :

[antgrandj]

Bonjour,

J'ai un petit soucis avec ma macro. J'aimerais copier-coller uniquement les cellules visibles (quand j'ai un filtre), ce qui fonctionne mais je n'arrive pas à coller les valeurs sur la bonne ligne.

Par exemple, si je fais un filtre sur la valeur A de la colonne, j'aimerais que 1, 4, 5 et 9 soient collés sur la ligne 2, 5, 6 et 10 respectivement.

Une idée ?

Merci d'avance

[Slooby]

Bonjour,

Par contre, je n'ouvre pas ton classeur. Je ne connais pas sa provenance.

Mais si tu veux sélectionner QUE tes cellules visibles, essaie cette propriété:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maRange.SpecialCells(xlCellTypeVisible)

Slooby

[Marc-L]

Bonjour, bonjour !

Sélectionner les cellules visibles est inutile, la méthode Range.Copy tenant compte uniquement des cellules visibles !

Vollà, voilà !


_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[antgrandj]

J'ai trouvé la solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test2()
    Dim cc(), c As Range, n%, i%
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        ReDim cc(1 To n, 1 To 1)
        With .Range("A2:A" & n)
            For Each c In .SpecialCells(xlCellTypeVisible)
                i = c.Row
                cc(i, 1) = c.Value
            Next c
        End With
        Application.ScreenUpdating = False
        If .AutoFilterMode Then
            If .FilterMode Then .ShowAllData
        End If
        .Range("H1" & n).ClearContents
        .Range("H1").Resize(n).Value = cc
        Application.ScreenUpdating = True
    End With
End Sub

Merci quand même

[Marc-L]

Désolé, j'ai lu trop vite …