XL 2019 Extraire des données

goube

XLDnaute Impliqué

• 23 Mai 2022

• #2

Bonsoir,
Une proposition avec Power Query.
Cordialement.

 

Pièces jointes

• Extraire des Données.xlsm

  39.6 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2022

• #3

Bonsoir Caninge, goube,

Voyez le fichier joint et ces 2 macros dans le code de la feuille "Recherche" :

VB:

Private Sub Worksheet_activate()
Worksheet_Change [B2] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Range("C2:O" & Rows.Count).Delete xlUp 'RAZ
With Sheets("Parties")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Range("B3:N" & .Range("B" & .Rows.Count).End(xlUp).Row)
        .AutoFilter 3, [B2].Value 'filtre automatique
        .Copy [C2] 'copier-coller
        .AutoFilter
    End With
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elles s'exécutent quand on modifie ou valide une cellule quelconque ou qu'on active la feuille.

A+

 

Pièces jointes

• Extraire des Données(1).xlsm

  26.4 KB · Affichages: 6

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mai 2022

• #4

Bonjour Goube, Job75,
merci d'avoir répondu.
j'examine vos réponses.
CANINGE

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mai 2022

• #5

Bonjour à tous,

Pour tester j'ai copié la plage 4:20 de la 1ère feuille sur 51 000 lignes.

Chez moi la macro s'exécute en 1,2 seconde.

C'est certainement moins rapide qu'avec Power Query.

A+

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 25 Mai 2022

• #6

Bonjour Job75, goube,
j'ai adopté la solution de Job75 qui me plait bien !
je garde tout de même celle de goube que je mets en réserve.
Merci !

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 29 Mai 2022

• #7

Bonjour Job75,
j'ai vu que la procédure effaçait les formules que j'ai voulu mettre dans les cellules T6 T7 et T8.
Sans doute une ligne à ajouter, mais comme je ne connais pas...
Pouvez-vous me donner un coup de main.
Merci
CANINGE

 

Pièces jointes

• Extraire des Données(2).xlsm

  25.6 KB · Affichages: 1

Vote positif 0 Vote négatif

goube

XLDnaute Impliqué

• 30 Mai 2022

• #8

Bonsoir,
Une proposition.
Cordialement.

 

Pièces jointes

• Extraire des Données(2).xlsm

  26.5 KB · Affichages: 6

Vote positif 0 Vote négatif

M

Membre supprimé 341069

Guest

• 30 Mai 2022

• #9

Bonjour,
Une tentative "à l'ancienne" avec Excel 2000 et si j'ai tout bien compris...
Cordialement.

 

Pièces jointes

• Extraire des Données 03.xls

  80.5 KB · Affichages: 9

Vote positif 0 Vote négatif

M

Membre supprimé 341069

Guest

• 30 Mai 2022

• #10

Suite :
Dans votre tableau initial, revoir la colonne F de la feuille Parties ?

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 31 Mai 2022

• #11

Bonjour à tous,
merci d'avoir répondu, dès que possible je regarde vous solutions.
Et je vous tiens au courant.
Merci.
CANINGE

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 31 Mai 2022

• #12

Bonjour à tous,
je viens de mettre la solution de ernest-92.
C'est parfait ! Bonne soirée
Merci
CANINGE

 

Vote positif 0 Vote négatif