Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Base de donnée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion godux60
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

godux60

XLDnaute Nouveau
Bonjour,

je souhaite créer un ficher mais je n'y arrive pas, j'ai essayé un tableau croisé dynamique mais cela ne convient pas.

Je vous expose mon problème, sur ma 1ère feuille j'ai toute ma liste des documents et dans les autres feuilles je voudrais la liste des documents corespondant qu'a un seul critère (processus dans le fichier joint).

Je souhaiterais que les feuilles avec les critères se met à jour automatiquement lorsque je mets à jour la feuille avec tous les documents.

Je vous joins mon fichier pour plus de détail.

Merci d'avance de voler à mon secours.

Cordialement

Cédric
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Base de donnée

BONJOUR,

Un essai avec l'enregistreur de macro :

Code: 
Sub essai2()
'
' essai2 Macro
'

'
    Sheets("tous les documents").Select
    Cells.Select
    Selection.Copy
    Sheets("qualité").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("fab").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("RH").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("tous les documents").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A2").Select
    Sheets("qualité").Select
    Range("A3:F3").Select
    Selection.AutoFilter
    Sheets("fab").Select
    Range("A3:F3").Select
    Selection.AutoFilter
    Sheets("RH").Select
    Range("A3:F3").Select
    Selection.AutoFilter
    Sheets("qualité").Select
    Range("A3").Select
    ActiveSheet.Range("$A$3:$F$21").AutoFilter Field:=1, Criteria1:="Qualité"
    Sheets("fab").Select
    Range("A3").Select
    ActiveSheet.Range("$A$3:$F$21").AutoFilter Field:=1, Criteria1:="Fab"
    Sheets("RH").Select
    Range("A3").Select
    ActiveSheet.Range("$A$3:$F$21").AutoFilter Field:=1, Criteria1:="RH"
    Sheets("tous les documents").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = ""
    Range("A2").Select
End Sub
 
Vote positif 0 Vote négatif
Re : Base de donnée

Bonsoir godux60, JBOBO,

Un autre essai à base de filtre élaboré (les critères des filtres sont en cellules A1:A2 des onglets, voir fichier joint)

Code: 
Sub MAJ()
Dim Lig As Long
Lig = Sheets("tous les documents").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Qualité")
    .Range(.Range("A4:F4"), .Range("A4:F4").End(xlDown)).ClearContents
    Sheets("tous les documents").Range("A3:F" & Lig).AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("qualité").Range("A1:A2"), _
        CopyToRange:=.Range("A4"), Unique:=False
End With
With Sheets("fab")
    .Range(.Range("A4:F4"), .Range("A4:F4").End(xlDown)).ClearContents
    Sheets("tous les documents").Range("A3:F" & Lig).AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("fab").Range("A1:A2"), _
        CopyToRange:=.Range("A4"), Unique:=False
End With
With Sheets("RH")
    .Range(.Range("A4:F4"), .Range("A4:F4").End(xlDown)).ClearContents
    Sheets("tous les documents").Range("A3:F" & Lig).AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("RH").Range("A1:A2"), _
        CopyToRange:=.Range("A4"), Unique:=False
End With

End Sub

Bonne soirée,

mth
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier
Réponses
2
Affichages
121
Hdv95
H
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
701
Cousinhub
  • Résolu(e)
XL 2010 Création de listes déroulantes interactive
6 7 8
Réponses
113
Affichages
5 K
job75
I
  • Question Question
Microsoft 365 le choix entre les fonctions Filtre ou RechercheX ou Index equiv
Réponses
4
Affichages
359
ALS35
A
F
  • Question Question
Autres problème de cache de TCD menant à des données partielles
2
Réponses
20
Affichages
688
chris
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
417
Bibinaire
B
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
687
Dégé59
D
B
  • Question Question
Mise à jour d’un tableau
Réponses
8
Affichages
621
belhoucine dine
B
  • Résolu(e)
XL 2021 Récupération de données sur une seconde feuille
Réponses
8
Affichages
518
fvr1
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
283
alexga78
A
  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
4 5 6
Réponses
78
Affichages
2 K
Agecanonix35400
D
  • Question Question
XL 2019 Verrouiller des cellules avant la date du jour
Réponses
12
Affichages
587
TooFatBoy
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
685
Phil69970
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
1 K
Phil Du59
J
  • Question Question
Word Modifier paragraphe de liste en corps de texte
Réponses
4
Affichages
207
Nain porte quoi
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
770
SAMUAL_2023
S
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
1 K
jeff1494
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
754
Dranreb
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
701
fanch55
N
  • Question Question
Microsoft 365 Choix d'ouverture d'une feuille
Réponses
6
Affichages
321
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…