Macro extraction et tri de données

Bonjour le forum,

je reviens vers vous car j'ai un problème sur une macro que gmb a réalisé pour moi!

ce que je souhaite que la macro fasse c'est qu'elle ne prenne pas les lignes vides! car elle revoit une erreur a chaque fois d'elle trouve un colonne vide.

ensuite j'aimerai si c'est possible de faire un tri par date.

merci par avance a toutes et a tous.

Re-bonjour a tous,

personne n'a une idée a me proposer ??

Bonjour

Bye !

delattaignant a écrit :

ce que je souhaite que la macro fasse c'est qu'elle ne prenne pas les lignes vides! car elle revoit une erreura chaque fois d'elle trouve un colonne vide.

Ta phrase n'est pas très claire : lignes vides, colonnes vides...

Peux-tu préciser et donner un exemple ?

bonjour gmb,

le problème que j'ai c'est que enfaite quand j'essaye de changer la feuille Extraction par une autre que je nome aussi extraction, dans celle ci il ya des colonnes vides alors la macro ne fais pas l'extraction !!

en pj un exemple de la feuille Extraction.

merci d'avance.

cordialement.

bonjour a tous,

j'attends toujours votre aide SVP car je suis bloqué !!

merci beaucoup a tous

cordialement.

Bonjour

Je ne vois pas où est le problème.

Si j'efface toute la feuille ''Extraction'' de mon fichier et que j'y colle toutes les données de ta feuille ''Sheet1b89a4386 1’’ et que je clique ensuite sur le bouton mauve ‘’Extraction’’ de la feuille ‘’boutons’’, tout semble bien fonctionner, lignes vides ou pas.

Exemple le fichier joint.

Bye !

bonjour gmb,

avent tout je te remercie pour tes réponses. et je tiens à m'excuser car j'ai oublié de de remplacer le contenue de la colonne F par celui de la colonne H car la macro fais les extractions sur le colonne Unité non pas sur sur statut !!

en pj le fichier avec la colonne Unité au bon endroit !!

merci encore

OK

Une instruction à ajouter dans le code :

Sub Extraction_gmb()

    Application.ScreenUpdating = False
    Set fe = Sheets("Extraction")
    Set fb = ActiveSheet
    Call RAZ_gmb

    derln = fe.Range("A" & Rows.Count).End(xlUp).Row
    For ln = 2 To derln
        Application.StatusBar = "Ligne " & ln
        eq = fe.Range("F" & ln)     'Il existe une valeur eq en colonne F
        If eq = "" Then GoTo suite
...
...

Et appleler la feuille source ‘’Extraction’’

OK ?

Bye !

merci ça marche nickel

peux tu m'aider sur le tri par date stp

merci

delattaignant a écrit :

peux tu m'aider sur le tri par date stp

A ajouter :

Sub Extraction_gmb()

    Application.ScreenUpdating = False
    Set fe = Sheets("Extraction")
    Set fb = ActiveSheet
    Call RAZ_gmb

    derln = fe.Range("A" & Rows.Count).End(xlUp).Row

    'Tri par date
  fe.Range("A1:H" & derln).Sort key1:=fe.Range("G2"), order1:=xlAscending, Header:=xlYes

    For ln = 2 To derln
        Application.StatusBar = "Ligne " & ln
...
...

Pour un tri du plus récent au plus ancien, tu mets ''xlDescending"

OK ?

Bye !

merci encore gmb tout marche bien

cordialement