XL 2010 extraction de donnees selon criteres

[nabilexcel2007]

Bonjour
SVP j'aimerai extraire mes donnees du classeur nommé "resume" vers un autre classeur nommé exemple" avec condition:
si la colonne de mon classeur "resume" g4 contion "OK" alors extraire tout les donnees de mon tableau vers le classeur "resume"
Merci

 

[Fabinou62]

Bonjour !

Si j'ai bien compris, tu veux que :
->lorsque il y a un ok dans la colonne État facturation de ton tableau resume
|->TOUTES les données de ce tableau vont dans classeur exemple, en dessous du tableau, à droite ...?

 

[WTF]

Bonjour,
Le plus simple est que tu connectes ton classeur Résumé avec le classeur exemple via Powerquery.
Dans powerquery tu fais les filtres voulus sur OK et tes données se mettrons à jour en actualisant ta base

 

[sylvanu]

Bonjour tout le monde,
Un essai en PJ avec une macro :

Sub Transfert()
' Tranfert des matrices
    DL = Range("A65500").End(xlUp).Row
    Range("A4:G" & DL).Copy
    Windows("exemple (15).xlsm").Activate
    Range("A4").Select: ActiveSheet.Paste
' Traitement matrice en réception
    Range("A" & DL + 1 & ":G1000").ClearContents
    With ActiveSheet.UsedRange
    Application.ScreenUpdating = False
    .Columns(2).EntireColumn.Insert                 'insère une colonne auxiliaire
    With Range("B4:B" & DL)
        .FormulaR1C1 = "=IF(RC[6]=""ok"","""",1)"   ' insère formules
        .Value = .Value                             'supprime les formules et met les valeurs
        .EntireRow.Sort .Cells, xlDescending        'tri pour regrouper et accélérer
        On Error Resume Next                        'si aucune SpecialCell
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
    End With
    Range("B:B").Delete: [A1].Select                'supprime la colonne auxiliaire
End With
With ActiveSheet.UsedRange: End With                'actualise les barres de défilement
End Sub

Les deux classeurs doivent être ouverts.

 

[nabilexcel2007]

Bonjour et Merci beaucoup pour votre aide