Coller des cellules par dessus des cellules filtrées

Résolu/Fermé
LeThil - Modifié le 13 déc. 2017 à 17:47
 LeThil - 14 déc. 2017 à 18:04
Bonjour,

J'aimerai savoir s'il existe un moyen de coller une plage de données venant d'un XLS qui ne contient pas de filtre (exemple la copie d'une plage A2:B11) à un Excel qui comporte lui un filtre (Exemple : les lignes 3 - 5 - 7 - 8 -11 sont invisibles).
Je veux que le collage ne se fasse que sur les cellules que je vois grâce au filtre (donc rien ne doit se coller sur les lignes 3 - 5 -7 etc...)

J'ai essayé plusieurs type de collage mais rien n'y fait... Quelqu'un connait une solution ?

Merci beaucoup à vous par avance pour votre aide et votre temps


4 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
14 déc. 2017 à 08:05
Bonjour,
Essayez ceci
Sub RemplacementDonnées()
    Application.ScreenUpdating = False
    Set ShFilt = Sheets("Feuille filtree")
    Set ShNonFilt = Sheets("Feuille non filtree")
    DerLig = ShFilt.[A10000].End(xlUp).Row
    ReDim numLig(DerLig) As Long
    For i = 2 To DerLig
        If ShFilt.Rows(i).Hidden = False Then numLig(i) = i
    Next
    
    DerLig = ShNonFilt.[A10000].End(xlUp).Row
    ShFilt.Select
    For j = 2 To DerLig
        On Error Resume Next
        If Err.Number = 0 Then
            If j = numLig(j) Then
                Cells(j, "A") = ShNonFilt.Cells(j, "A").Value
                Cells(j, "B") = ShNonFilt.Cells(j, "B").Value
            End If
        End If
        On Error GoTo 0
    Next j
End Sub


Utilisez cet exemple et remplacez "Feuille filtree" par le nom de la feuille ou se trouve la zone filtrée, et remplacez "Feuille non filtree" par le nom de la feuille ou vous vous déposez l'export .
Cdlt
0
Bonjour Frenchie83,

Je vous remercie beaucoup pour la réponse apportée cependant je n'ai pas bien saisie à quelle étape je colle mes cellules copiées depuis l'autre feuille ?

Lorsque la macro est exécutée il ne se passe rien

Merci encore à vous par avance,
0
Frenchie83,

Peut être me serait il plus simple de fonctionner avec plusieurs rechercheV ?

Dans ce cas, y-a-t'il un moyen d'incrémenter une série sur des cellules filtrées ?
0