XL 2016 Besoin d'aide pour un code d'extraction

sandralos à dit:

autre soucis le tableau, d'où les données sont extraites, se filtre automatiquement du coup je doit retirer le filtre après chaque extraction si je veux voir mon tableau complet

Cliquez pour agrandir...

Range("A1:F" & Nblg).AutoFilter field:=4, Criteria1:="EAP"

BrunoM45 à dit:

Bonjour

Quand je lis

Et que je vois ceci

VB:

Range("A1:F" & Nblg).AutoFilter field:=4, Criteria1:="EAP"

Je me dis qu'il y a comme un souci dans votre compréhension du VBA

Qu'est-ce qui n'est pas clair pour vous ?

A+

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @sandralos et Bruno

J'ai l'impression à lire la demande que @sandralos pourrait parler de tableau structuré
Un fichier nous éclairerait avec les explications de ce qui le chagrine ...... et ce qu'il veut comme condition pour les dates.

Cliquez pour agrandir...

Phil69970 à dit:

@sandralos

Comme tu as mis une image je te réponds en image c'est plus pratique pour moi !

Regarde la pièce jointe 1188871

Rien ne t’empêche de fournir un vrai fichier représentatif pour faire des essais et proposer une réponse exploitable....

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

Comme tu as des TS c'est pas avec une vague image que tu auras un code fonctionnel

Bonne lecture

Cliquez pour agrandir...

Phil69970 à dit:

@sandralos

Remarques

-Les photos que tu as mis ne correspond pas aux nombres de colonnes et emplacement du fichier fournit
-Les en-têtes du TS ne correspond pas aux photos que tu as mis et j'en ai besoin pour le transfert pour un TS , même si il est possible de ce servir des N° de colonne que je n'aime pas faire car si tu modifies les colonnes la copie ne fonctionnera plus ou ne sera plus correcte ....
-Les noms des feuilles ne correspond pas avec le code qui est dans le fichier
-Il n'y a pas de MDP dans le fichier alors que d’après le code il devrait y en avoir un etc.......
-Tu as su mettre A, B, C .... pour les noms mais pas pour les matricules de tes agents !!!!
Bref pratiquement tout est à revoir
Et de ce que j'ai vu à part le nom et le matricule des agents qui est dans le champ du RPGD le reste ne l'est surement pas !!!

En l'état je suis pratiquement sur que le code que je fournirais ne fonctionnera jamais sur ton fichier
Relis mon post #6 et fournit un fichier qui sera exploitable

Perso, nous en sommes à 9 messages et rien d’exploitable ... je n'irais guère au delà si le fichier du prochains post n'est pas exploitable.

Cliquez pour agrandir...

Sub RectangleExtract_Cliquer()
Dim Nblg As Long

  Sheets("Liste personnes").Activate
  Application.ScreenUpdating = False
 
  Nblg = Range("A" & Rows.Count).End(xlUp).Row
  Range("A1:E" & Nblg).AutoFilter field:=4, Criteria1:="EAP"
 
    
  If Application.Subtotal(103, Range("A2:E" & Nblg)) > 0 Then
    With Sheets("EXTRACT")
    .Cells.Clear
      Range("A3:E" & Nblg).SpecialCells(xlCellTypeVisible).Copy .Range("A3")
      .Range("A1:E" & .Range("B" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=3
    End With
        
    ActiveSheet.AutoFilterMode = False
    Sheets("EXTRACT").Activate
  End If
 
End Sub

Phil69970 à dit:

Bonjour @sandralos

Je te propose ce fichier

Merci de ton retour

Cliquez pour agrandir...

sandralos à dit:

le tableau à zéro à chaque extraction

Cliquez pour agrandir...

'Columns("A:E").Clear ' Facultatif Efface les valeurs dans la feuille Extract

Cliquez pour agrandir...