XL 2016 Rechercher les Rendez vous du Mois

[KTM]

Salut Forum
Je travaille sur une base de donnée et j'aimerais faire ressortir en fonction du mois dans mon tableau de bord les rendez vous programmés
J'ai essayé de faire de mon mieux mais je pense que quelque chose coince . Veuillez m'aider sur les codes que j'ai élaborés ou mieux me proposer meilleur
Merci

 

[job75]

Bonjour KTM,

Ce n'est pas clair, pourquoi 2 tableaux prévus pour les résultats ?

Il faudrait sur un exemple donner les résultats que vous voulez obtenir, a priori il s'agit d'un simple filtrage non ?

A+

 

[KTM]

Bonjour KTM,

Ce n'est pas clair, pourquoi 2 tableaux prévus pour les résultats ?

Il faudrait sur un exemple donner les résultats que vous voulez obtenir, a priori il s'agit d'un simple filtrage non ?

A+

OUI Merci
Je me compliquais inutilement la vie.
J'ai revu ma demarche comme suggerée et l'extraction est correcte mais au niveau de la sauvegarde de la plage récupérée j'ai un petit soucis.
Pouvez vous voir cela ? Merci

 

[job75]

Fichier joint avec cette macro :

Sub RDV()
Dim source As Worksheet, dest As Worksheet
Set source = Sheets("Grille_de_Dispensation")
Set dest = Sheets("RDV")
source.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, dest.[H1:H2], dest.[B3:F3]
End Sub

Edit : j'ai simplifié la macro.

 

[job75]

Bonjour KTM, le forum,

Bah je n'avais pas vu la colonne A, il faut utiliser ce fichier (2) avec dest.[A3:F3] :

Sub RDV()
Dim source As Worksheet, dest As Worksheet
Set source = Sheets("Grille_de_Dispensation")
Set dest = Sheets("RDV")
source.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, dest.[H1:H2], dest.[A3:F3]
With dest.[A3:F3].CurrentRegion
    .Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count + 1 - .Row).Delete xlUp 'RAZ en dessous pour les bordures
End With
With dest.UsedRange: End With 'actualise les barres de défilement
End Sub

Bonne journée.

 

[KTM]

Bonjour KTM, le forum,

Bah je n'avais pas vu la colonne A, il faut utiliser ce fichier (2) avec dest.[A3:F3] :

Sub RDV()
Dim source As Worksheet, dest As Worksheet
Set source = Sheets("Grille_de_Dispensation")
Set dest = Sheets("RDV")
source.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, dest.[H1:H2], dest.[A3:F3]
With dest.[A3:F3].CurrentRegion
    .Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count + 1 - .Row).Delete xlUp 'RAZ en dessous pour les bordures
End With
With dest.UsedRange: End With 'actualise les barres de défilement
End Sub

Bonne journée.

Super Merci Job75