Récupération de lignes celon des critères.

Dugenou

XLDnaute Barbatruc

• 18 Septembre 2015

• #2

Re : Récupération de lignes celon des critères.

Bonjour,
Une possibilité en PJ avec un tableau croisé dynamique dans le quel on n'affiche que les valeurs non vides de la colonne Annuaire.
Après chaque ajout de données (ou collage de l'export) faire un clic droit dans le TCD et Actualiser.
La zone de données est définie par formule nommée et prend en compte les lignes jusque 1000. Si le tableau de données est plus long, modifier la formule nommée (formules/gestionnaire de nom)

Cordialement

 

Pièces jointes

• jeanBaptiste.xlsx

  25.8 KB · Affichages: 31

Vote positif 0 Vote négatif

J

jeanBaptiste

XLDnaute Junior

• 18 Septembre 2015

• #3

Re : Récupération de lignes celon des critères.

Bonjour,

Merci c'est ce que je cherchais mais je ne vois pas trop comment tu as procédé pour le faire.
Et est ce que si je fais un Userform dessus ça fonctionnera.

Cordialement

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Septembre 2015

• #4

Re : Récupération de lignes celon des critères.

Bonjour à toutes et à tous,

Bienvenue sur XLD, jeanBaptiste.

Une autre suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - jeanBaptiste - Importer.xlsm

  25.1 KB · Affichages: 58

Vote positif 0 Vote négatif

J

jeanBaptiste

XLDnaute Junior

• 18 Septembre 2015

• #5

Re : Récupération de lignes celon des critères.

Super merci DoubleZero ça fonctionne super bien j'ai juste la ligne "Annuaire", "Nom", "Type" et "Société" qui ne s'affiche pas mais le reste est là et c'est le principale.

Edit : Non c'est bon j'avais mal lu le code

 

Dernière modification par un modérateur: 18 Septembre 2015

Vote positif 0 Vote négatif

J

jeanBaptiste

XLDnaute Junior

• 18 Septembre 2015

• #6

Re : Récupération de lignes celon des critères.

Bonjour,
je reviens vers vous car je voudrais que la première colonne soit "Annuaire" devienne la dernière car ça me pose problème avec mon UserForm.
Cordialement

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Septembre 2015

• #7

Re : Récupération de lignes celon des critères.

Re-bonjour,

Comme ceci ?

Code:

Option Explicit
Sub Importer()
    Dim c As Range
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    With Sheets("Résutat"): .Range(Range("a2"), .Range("d2").End(xlDown)).Clear: End With
    With Sheets("Liste exporté")
        For Each c In .[b:b].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
            If IsNumeric(c) Then
                c.Offset(, 1).Resize(, 3).Copy Destination:=Sheets("Résutat").Range("a" & Rows.Count).End(xlUp)(2)
                c.Copy Destination:=Sheets("Résutat").Range("d" & Rows.Count).End(xlUp)(2)
            End If
        Next
    End With
    [a1].CurrentRegion.Borders.Value = 1
    Columns.AutoFit
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Septembre 2015

• #8

Re : Récupération de lignes celon des critères.

Re-bonjour,

jeanBaptiste à dit:

... j'ai juste la ligne "Annuaire", "Nom", "Type" et "Société" qui ne s'affiche pas mais le reste est là et c'est le principale.

Edit : Non c'est bon j'avais mal lu le code

Cliquez pour agrandir...

Merci de me rassurer car mon petit neurone ne parvenait pas à comprendre !

A bientôt

 

Vote positif 0 Vote négatif

J

jeanBaptiste

XLDnaute Junior

• 21 Septembre 2015

• #9

Re : Récupération de lignes celon des critères.

Bonjour,
Merci à toi ça fonctionne super bien je vous remercie tout les deux pour votre rapidité.
Cordialement

 

Vote positif 0 Vote négatif

J

jeanBaptiste

XLDnaute Junior

• 21 Septembre 2015

• #10

Re : Récupération de lignes celon des critères.

Bonjour,
Je reviens vers vous car sur une deuxième exportation j'ai voulu appliquer la même procédure mais je pense que je n'ai pas du bien comprendre le code car quand j'essaye de l'adapter ça ne fonctionne pas.
Ci-joint la liste en question j'ai mis en couleur ce que je veux récupérer.

 

Pièces jointes

• eportation.xlsm

  28 KB · Affichages: 26

Vote positif 0 Vote négatif