Copier des ligne en fonction de la valeur d'une cellule

[pierrof]

Bonjour tout le monde

J'aimerais à l'aide d'une macro copier des lignes d'une feuille à une autre en fonction de la valeur d'une cellule.

Je vous laisse un fichier exemple pour plus de clarté.

Merci d'avance.

Cordialement

 

[titiborregan5]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour Pierrof, le forum,

connais-tu le filtre avancé ? (Données/ Filtre / Avancé)
ça devrait parfaitement répondre à ton besoin et sera bien plus rapide qu'une recherche de valeur ligne par ligne (en temps d'exécution et de ligne de code)!

j'essaie de te proposer un exemple du couple macro/filtre élaboré au plus vite!

A+
Tibo
Edit: Voici le code:

Dim R As Long
Sub titiborregan5()
Sheets("E").Range("P1") = Sheets("A").Range("H1")
R = Sheets("C").Range("G2")
Sheets("E").Range("P2") = "<" & R


Sheets("A").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, Sheets("E").Range("P1:P2"), Sheets("E").Range("A1:H1"), False
Sheets("E").Range("P1:P2").ClearContents




End Sub

 

[pierrof]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour titiborregan5

Merci de ta réponse mais elle ne fonctionne pas, j'aimerais le réaliser uniquement avec une macro.

Je regarde de mon coté aussi car j'ai quelques pistes.

Merci de ton aide.

Cordialement

 

[titiborregan5]

Re : Copier des ligne en fonction de la valeur d'une cellule

Re bonjour,
cette solution est uniquement via macro!
C'est sûr qu'en disant "elle ne fonctionne pas" on est bien avancé pour essayer de trouver pourquoi et comment résoudre le problème!
Comment l'as tu copiée? quelle ligne bloque? etc auraient été des réponses plus constructives!

Voir PJ qui fonctionne!

 

[pierrof]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonsoir titiborregan5

Effectivement elle fonctionne depuis la feuille E car je n'avais pas vu le bouton sur la droite.
Par contre depuis la feuille C elle ne fonctionne pas. J'essaye de trouver une solution.

Je te remercie de ton aide

Bonne soirée

COrdialement

 

[titiborregan5]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour,

As-tu relié ton bouton au code?

 

[pierrof]

Re : Copier des ligne en fonction de la valeur d'une cellule

Salut titiborregan5

Oui j'ai bien relié mon bouton,mais ça me copie toutes les lignes...

 

[titiborregan5]

Re : Copier des ligne en fonction de la valeur d'une cellule

Sans PJ difficile de regarder!

 

[pierrof]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour

CI-joint un fichier test.

Depuis la feuille C je dois lancer la macro (sur le bouton de commande) pour un résultat en feuille E.

Merci encore de ton aide.

Cordialement

 

[titiborregan5]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour,


Je t'avais fait un code que tu n'as pas réussi à faire marcher sans dire pourquoi.
Je te l'ai mis dans un fichier que tu n'as encore pas réussi à faire marcher sans dire pourquoi.
Et là tu envoies un fichier sans mon code??

Sois j'ai mal vu sois j'ai "bossé" pour rien...

 

[pierrof]

Re : Copier des ligne en fonction de la valeur d'une cellule

Bonjour

Ci-joint le fichier avec ton code sur la feuille E.

Merci

Cordialement