Sujet Précédent Sujet Suivant

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


A voir également:

4 réponses

Réponse 1 / 4
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
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
LeThil
14 déc. 2017 à 09:32
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
LeThil
14 déc. 2017 à 09:40
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

Discussions similaires

Insérer un texte dans plusieurs cellules contenant du texte
AgnesB -
AgnesB_QC -

2 réponses
tableau croisé dynamique + cellules fusionnées
oreyi19 -
oreyi19 -

5 réponses
Excel: Si contient *partie texte1* OU *partie de texte2 alors...
Fab -
Fab -

2 réponses
condition et nombre de cellules contenant quelque chose
SarahFistol -
SarahFistol -

4 réponses
Formules pour griser une cellule
adel-542 -
adel-542 -

15 réponses
coloré une cellule en fonction de deux autres cellules
adel-542 -
mdo100 -

4 réponses