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

[sandralos]

Bonjour,

J'ai mon code d'extraction qui fait bien le taf le seul soucis c'est que sur ma feuille ou les données extraite s'affichent je n'arrive pas à garder les entêtes, elles s'effacent automatiquement dés que je fais une extraction et 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
Voici le code si quelqu'un vois l'erreur ou la modification à apporter

Option Explicit

Sub RectangleExtract_Cliquer()
Dim Nblg As Long

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

Merci d'avance

 

[Compte Supprimé 979]

Bonjour

Quand je lis

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

Et que je vois ceci

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+

 

[sandralos]

Bonjour

Quand je lis

Et que je vois ceci

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+

J'ai débuter depuis peu dans le VBA je suis pas encore au top désolé

ok si j'ai bien compris cette ligne c'est mon problème de filtrage du tableau source .

Mais est ce a cause de çà que mes entêtes disparaissent dans la page d'extraction ?

et savez-vous comment je peux rajouter une condition de date?

 

[Phil69970]

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.

 

[sandralos]

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.

Bonjour phil,
malheureusement je ne peux pas partager ce fichier il contient des données confidentiel
Je vais essayer d'expliquer....
1. Dans mon code pour extraire des données j'ai pu mettre le critaire "eap" donc ça ça fonctionne mais j'aimerais en plus que l'extraction soit faite sur une périodes donnée
2. J'avais mis les mêmes entêtes que le tableau initiale sur la feuille d'extraction mais à chaque fois que je fait l'extraction ça supprime mes entêtes.

 

[Phil69970]

@sandralos

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

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

 

[sandralos]

@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

Je vais essayer de faire un fichier neutre et je reviens vers toi merci

 

[Phil69970]

@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.

 

[sandralos]

@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.

Je ne comprend pas j'ai pourtant bien tout changer et c'est le fichier d'origine dont tu me parle
voici le code modifier je te renvoie le fichier après vérification (c'est bien le code ci-dessous) et la dernière colonne à été retiré car elle est inutile dans l'extraction elle sera forcément vide mais je te l'ai remise

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]

@sandralos

Le code du fichier du post #9 me va beaucoup mieux et ne ressemble pas au code de l'autre fichier

Exemple

==>

Tu vois quand même la différence non !!!!

Je regarde tout ça .....mais si les en tête de colonne ne correspond pas avec ton vrai fichier cela ne fonctionnera pas !!! Donc bien me donner les bons ....

 

[Phil69970]

Bonjour @sandralos

Je te propose ce fichier

Merci de ton retour

 

[sandralos]

Bonjour @sandralos

Je te propose ce fichier

Merci de ton retour

Bonjour,

Je viens de tester c'est top! Juste petit problème, avec l'ancien code ça remettais le tableau à zéro à chaque extraction et ça ne prenais qu'une seul ligne par lieu et est-ce possible de le réintégrer dans ton nouveau code?

 

[Phil69970]

@sandralos

le tableau à zéro à chaque extraction

Si tu regardes bien mon code c'est tout prévu

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

Tu supprimes l’apostrophe qui est en début de la ligne

 

[sandralos]

@Phil69970 oui désolé je l'ai vu après, désolé :-$ et pour l'autre soucis par contre j'ai bau parcourir le code (avec mes yeux de novice) je ne trouve pas la solution

 

[Phil69970]

@sandralos

je ne trouve pas la solution

@sandralos

Voici le fichier avec la suppression des doublons.....