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

T

titiborregan5

XLDnaute Accro

• 6 Janvier 2015

• #2

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:

VB:

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

 

Dernière édition: 6 Janvier 2015

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 6 Janvier 2015

• #3

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

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 6 Janvier 2015

• #4

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!

 

Pièces jointes

• test (9).xls

  158 KB · Affichages: 69
• test (9).xls

  158 KB · Affichages: 78
• test (9).xls

  158 KB · Affichages: 77

Dernière édition: 6 Janvier 2015

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 7 Janvier 2015

• #5

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

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 8 Janvier 2015

• #6

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

Bonjour,

As-tu relié ton bouton au code?

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 8 Janvier 2015

• #7

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...

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 8 Janvier 2015

• #8

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

Sans PJ difficile de regarder!

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 15 Janvier 2015

• #9

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

 

Pièces jointes

• test.xls

  146 KB · Affichages: 61
• test.xls

  146 KB · Affichages: 60
• test.xls

  146 KB · Affichages: 49

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 15 Janvier 2015

• #10

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...

 

Dernière édition: 15 Janvier 2015

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 19 Janvier 2015

• #11

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

 

Pièces jointes

• test2.xls

  165.5 KB · Affichages: 50
• test2.xls

  165.5 KB · Affichages: 75
• test2.xls

  165.5 KB · Affichages: 77

Vote positif 0 Vote négatif