Extraction et/ou filtrage base de donnees

Bonjour la famille.

j'ai une préoccupation s'il vous plait

j'aimerais extraire les données d'une base de données (tableau spécifique) suivant un critère précis et regrouper les données extraites dans un nouveau tableau

Comment procéder ?

je joins un fichier avec le descriptif.

NB : j'utilise la version EXCEL 2019...du coup je bute car certaines fonctionnalités (FILTRE...) des versions récentes y sont absentes

Edit modo : sujet déplacé sur le bon forum et fichier avec données personnelles supprimé

A l'aide s'il vous plait

Bonjour,

Avec une macro qui s'execute quand la cellule Q1 est modifié ?

A+

Bonjour Geof52

Merci de déposer des fichiers sans données personnelles SVP

A+

Salut Geof52

Edit modo : demande supprimée, hors charte

@Bruno Bonjour Bruno, oups,

J'ai vu des noms mais je pensais que c'etait déja anonyme (nom Camerounais apparemment)

Voici le fichier anonyme joint

Edit modo : ici on écrit en minuscule SVP

Toujours avec une macro qui s'execute quand la cellule Q1 est modifié ?

Il n''y a pas de macros affectée à la cellule Q1

c'est une simple liste déroulante

Edit modo : bis repetita, ici on écrit en minuscule SVP

Cette simple liste déroulante active ma macro grace à :

Tu as testé le fichier ?

Merci infiniment pour votre contribution..problème résolu

^{Bonjour la famille}

^{j'ai une préoccupation svpl..}

^{il s'agit d'un formatage :}

Option Explicit
Dim TSUE_Ligne, Ligne, DerLigTab As Integer

Sub Extraction_Base()
TSUE_Ligne = 1
Range("Tdepartement").Clear
DerLigTab = Range("SourceSynthèseSuivi").Rows.Count
For Ligne = 1 To DerLigTab
    If Range("SourceSynthèseSuivi").Cells(Ligne, 5) = Range("A1") Then
        Range("Tdepartement").Cells(TSUE_Ligne, 1).Value = Range("SourceSynthèseSuivi").Cells(Ligne, 1).Value
        Range("Tdepartement").Cells(TSUE_Ligne, 2).Value = Range("SourceSynthèseSuivi").Cells(Ligne, 2).Value
        Range("Tdepartement").Cells(TSUE_Ligne, 3).Value = Range("SourceSynthèseSuivi").Cells(Ligne, 4).Value
        Range("Tdepartement").Cells(TSUE_Ligne, 4).Value = Range("SourceSynthèseSuivi").Cells(Ligne, 16).Value
        TSUE_Ligne = TSUE_Ligne + 1
    End If

Next Ligne

End Sub

je voudrais que la ligne de code

Range("Tdepartement").Cells(TSUE_Ligne, 4).Value = Range("SourceSynthèseSuivi").Cells(Ligne, 16).Value

Bonjour,

fonctions-vba/format

surement comme ça :

Range("Tdepartement").Cells(TSUE_Ligne, 4).Value = Format(Range("SourceSynthèseSuivi").Cells(Ligne, 16).Value, "hh:nn")

A+

merci merci

ça a fonctionné