XL 2016 Rechercher les Rendez vous du Mois

job75 à dit:

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+

Cliquez pour agrandir...

job75 à dit:

Bonjour KTM, le forum,

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

VB:

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.

Cliquez pour agrandir...