Discussion :

[bboy-eazy]

Bonjour,


j'ai actuellemnt un fichier excel que j'essaye d'améliorer au maximum.

son utilisation est simple (Cf. classeur en PJ feuille Recherche voir protocole)

1) j'ai un bouton qui permet de masquer les lignes vides. Ceci est dans le but de "filtrer" uniquement les références aillant un PR ou une fiche consigne.
2) Ensuite les références restantes doivent être copiées et collées dans la feuille recherche afin d'effectuer la recherche (on selectionne on copie et on colle ailleurs). ceci devait être fait manuellement mais ca ne fonctionne pas...

Mon problème est que masquer les lignes ne permet pas de passer outre les références dont les lignes sont masquées quand je fais copier/coller, excel prend tout.
y-a-t-il un moyen de copier uniquement les lignes non masquées?

je cherche donc une méthode qui permettrait de faire ce que je cherche à faire..
c'est à dire copier/coller les référence possédant soit un PR soit une fiche consigne, soit les deux dans la feuille liste à la feuille recherche


j'ai donc pensé à faire le cheminement suivant.


- filtrer sur la colonne recherche PR avec critère "non vide"
- copier coller les références trouvées
- enlever le filtre
- filtrer sur la colonne fiche consigne avec critère "non vide"
- copier coller les références trouvées
- enlever le filtre
- supprimer les réfs en doublon


Pouvez-vous me dire si c'est possible? Ou si vous pensez avoir une méthode plus simple? car je vais pas me lancer la dedans si ca ne mène à rien. J'aurais ensuite surement besoin de vous pour m'aider à corriger mon code car je ne suis pas un expert


J'espère avoir été clair.
Merci d'avance

[parmi]

Bonjour,

Pour copier les cellules visibles, essaie comme ceci en changeant la plage selon ce que tu as.

Code :

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

Range("A2:Z100").SpecialCells(xlCellTypeVisible).Copy

[Phifou]

Bonsoir,

est-ce que tu connais l'emplacement de là où tu veux coller tes données ?

Pour ma part je te conseillerai plutôt de faire quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
dim Cellule as Range
Dim DerniereLigne as integer
 
DerniereLigne = worksheets("Feuil1").cells(cells.rows.count, 20).End(xlup).rows
 
For Each Cellule In Range("T8:T" & DerniereLigne).SpecialCells(xlCellTypeVisible)
    worksheets("Feuil2").cells(Cellule.Row, 1) = Cellule.value
next Cellule

L'idée de cette fonction est d'éviter les "copier coller" qui sont long à traiter par l'ordinateur par une tache quasiment instantanée. En utilisant cette méthode plutôt qu'un copier coller j'ai économisé 90% du temps d’exécution de ma macro...

Si tu as des questions pour adapter cette fonction, n'hésite pas.


Philippe

[bboy-eazy]

Bonjour à tous les deux.

Merci bcp pour vos réponse

j'ai testé les deux et tout fonctionne parfaitement.

Je reste sur la solution de Parmi sur ce coup car c'est un tout petit fichier donc niveau execution, cela se fait instantanemment.

Par contre, merci Phifou pour ton code car je pense qu'il pourra m'être utile sur un fichier qui rame un peu plus


merci bcp à vous deux +1
très bonne journée