Discussion :

[Michel Delapouaitte]

Bonjour à tous.
J'ai un petit soucis que je n'arrive pas à résoudre.
J'ai un fichier excel dont la première feuille ( Feuil1) sert de base, avec une combo intégrée par colonne qui permet à l'utilisateur de faire une recherche pour n'afficher que les lignes voulues.

Je souhaite copier les valeurs des lignes non masquées (celles qui correspondent donc à la recherche) vers une autre feuille du même classeur qui est vierge (en l'occurrence Feuil3).
Les cellules de Feuil1 peuvent aussi bien contenir des dates, des string ou des formats monétaires.

Je précise (au cas où) que je n'ai pas accès au code des combos de Feuil1. Ca a été fait par une boite de services informatiques et c'est protégé par mot de passe.

Feuil1 ne contient des données qu'à partir de la ligne 10, d'où :

Code :

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

Private Const lignDeb As Long = 10

que j'ai déclaré dans le code de Feuil3.

Voici la sub appelée lorsque l'utilisateur sélectionne l'onglet Feuil3 :

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
21
22
23
24
Private Sub copDonnees()
 
Dim i As Long
Dim DerniereLigne As Long
Dim lignVis As Range
DerniereLigne = Feuil1.Cells(65536, 1).End(xlUp).Row
 
Worksheets("BASE").Activate
 
 
    For i = lignDeb To DerniereLigne
 
        If Not Feuil1.Rows(i).Hidden Then
        'si la ligne n'est pas masquée
            If Not lignVis Is Nothing Then
                Set lignVis = Application.Union(lignVis, Feuil1.Cells(i, 1).EntireRow)
            Else
                Set lignVis = Feuil1.Cells(i, 1).EntireRow
            End If
        End If
    Next
 
lignVis.Copy Feuil3.Cells(10, 2)
End Sub

Je me casse les dents sur une erreur d'exécution 1004 :
'Impossible de coller les informations car les zones Copier et de collage sont de forme et de taille différentes'

J'ai bien entendu essayé toutes les solutions proposées par l'aide, mais rien n'y fait.

[Fvandermeulen]

Bonjour,
A priori, tu sélectionne de la colonne A à IV (EntireRow) pour copier sur l'autre feuille dans la colonne B, donc ça dépasse forcément.
Tu as donc 2 options, tu réduis la plage à copier de B à IV (ou dernière colonne remplie),
Ou tu colle dans la colonne A de ta feuille de destination, ce que j'imagine plus pertinent, adapte donc la ligne avant ton End Sub avec:

Code :

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

lignVis.Copy Feuil3.Cells(10, 1)

Je pense que ça ira.

Bonne continuation,

[Michel Delapouaitte]

Bonjour, et merci de passer du temps sur mon problème.

A ben oui bien sûr. J'y avais pas du tout pensé mais forcément maintenant que tu me le dis, ça parait évident. Je ne sais pas pourquoi, mais dans mon raisonnement je tenais pour principe que la sélection ne portait effectivement que sur les cellules non vides, donc jusqu'à la colonne AM dans mon cas.

J'ai testé et ça venait bien de là.

Je me sens un peu débile sur ce coup ...

Merci beaucoup de ton aide , et désolé du dérangement.

[Fvandermeulen]

Re,
Si ça peut te rassurer, si j'y ai pensé c'est que l'apprentissage se fait, entre autre, par l'expérience...j'ai moi même planté (un bon moment) sur un cas similaire

[Michel Delapouaitte]

Bon, j'ai crié victoire trop tôt.

Il se trouve que la copie a marché une fois et pas plus ....
J'efface bien le contenu de Feuil3 via

Code :

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

1
2
ThisWorkbook.Worksheets("feuil3").Select
Selection.ClearContents

avant de faire une nouvelle copie, mais ça me laisse le formatage des cellules.
J'ai pensé que l'erreur de copie venait de ça, et avant de chercher comment enlever ce formatage, j'ai tenté de supprimer les lignes à la main puis de refaire une copie.

Ca ne marche pas non plus puisque je me paye maintenant un echec de la methode Copy de la classe Range, toujours sur la même ligne :

Code :

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

lignVis.Copy Feuil3.Cells(10, 1)

Je remets le code de la methode pour plus de lisibilité (t'auras pas à jouer avec ta molette pour remonter au début du thread )

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
21
22
23
24
25
26
27
'copie des données filtrées de la feuille 1 vers la feuille 3
Private Sub copDonnees()
 
Dim i As Long
Dim DerniereLigne As Long
Dim lignVis As Range
DerniereLigne = Feuil1.Cells(65536, 1).End(xlUp).Row
 
ThisWorkbook.Worksheets("feuil3").Select
Selection.ClearContents
Worksheets("BASE").Activate
 
    For i = lignDeb To DerniereLigne
 
        If Not Feuil1.Rows(i).Hidden Then
        'si la ligne n'est pas masquée
            If Not lignVis Is Nothing Then
                Set lignVis = Application.Union(lignVis, Feuil1.Cells(i, 1).EntireRow)
            Else
                Set lignVis = Feuil1.Cells(i, 1).EntireRow
            End If
        End If
    Next
 
lignVis.Copy Feuil3.Cells(10, 1)
'Worksheets("Feuil3").Activate
End Sub

[Fvandermeulen]

Là comme ça je sèche, ça bloque sur quelle ligne, quel est le message d'erreur?
Sinon si ça te dérange pas de joindre le fichier, je veux bien y jeter un oeil
(réunion annulée, j'ai un peu de temps )