Discussion :

[jpboucher]

Bonjour à tous,

Je planche depuis des heures sur un bout de VBA qui est tout juste sur le point de bien fonctionner. J'en appel à vous car je suis sur le point de baisser les bras à force de fouiller pour trouver une réponse.

J'ai deux feuilles, la 1er est une base de données "Contrats" et l'autre un sommaire "Data_sommaire".

Mes nom de colonne dans "Contrats" sont à la ligne 7 et mes données commencent à la ligne 9. Mes données sont réparties en colonne de A à Q. Je vais avoir éventuellement bien au-dessus de 5 000 lignes...

Je veux extraire (filtrer et copier) les lignes de données dans "Contrats" dont la date en colonne E (5e colonne) correspondent à mon critère (ma date...) et les coller ensuite à partir de la cellule (range) B5 de ma feuille "data_sommaire).

Je rencontre deux problèmes:

1 - J'ai fait des tests avec d'autres types qu'une date (ex.: Dim ref1 as string, ref1 = "vente") comme critère, et mon code fonctionne. Mais, dès que j'utilise une date, ça ne fonctionne plus. J'ai bien changée pour Date ou Long, rien à faire...?!

2 - Quand j'utilise autre chose qu'une date et que ça fonctionne, par défaut, la 1er ligne coller dans "data_sommaire" est toujours ma 1er ligne de données dans ma feuille "Contrats". QU'est-ce qui ne fonctionne pas dans mon code?!

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub CopyData()
 
'Définir la variable de mon critère
Dim ref1 As Long
ref1 = Worksheets("Admin").Range("d18").Value
 
'Filtrer les données selon mon critère
Worksheets("Contrats").Activate
 
  LastRow = Range("A65536").End(xlUp).Row
  Range("A9:q" & LastRow).AutoFilter Field:=5, Criteria1:=ref1
 
'Selectionner et copier les données filtrées
  Range("A9:q" & LastRow).SpecialCells(xlCellTypeVisible).Copy
 
'Coller les données dans mon sommaire
  Worksheets("data_sommaire").Range("b5").PasteSpecial xlPasteValues
 
Worksheets("Contrats").Activate
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False
 
End Sub

Je définis la valeur de ma variable (ma date) dans une 3 feuille nommée "Admin" en cellule d18.

Quelqu'un a une idée du problème?!

Un grand merci!

[parmi]

Bonjour,

Essaie comme ceci pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub CopyData()
    'Définir la variable de mon critère
    Dim ref1 As Date
    Dim LastRow As Long
 
    ref1 = Worksheets("Admin").Range("d18").Value
 
    'S'assurer que les filtres sont bien là
    Worksheets("Contrats").Activate
    ActiveSheet.AutoFilterMode = False
    Rows(9).AutoFilter
 
    'Filtrer les données selon mon critère
    LastRow = Range("A65536").End(xlUp).Row
    Rows(9).AutoFilter Field:=5, Operator:=xlFilterValues, Criteria2:=Array(2, Format(ref1, "mm/dd/yyyy"))
 
    'Selectionner et copier les données filtrées
    Range("A9:q" & LastRow).SpecialCells(xlCellTypeVisible).Copy
 
    'Coller les données dans mon sommaire
    Worksheets("data_sommaire").Range("b5").PasteSpecial xlPasteValues
    Worksheets("data_sommaire").Range("b5").PasteSpecial xlPasteFormats  'au moins pour le format des dates
 
    Application.CutCopyMode = False
 
End Sub

[Docmarti]

bonjour

Autofilter aime bien avoir 2 critères comme pour chercher dans un intervalle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
  Set r = Range("A9:q" & LastRow)
 
  r.AutoFilter
 
  r.AutoFilter Field:=5, Operator:= _
        xlFilterValues, Criteria1:="<=" & ref1 & "", Operator:=xlAnd, Criteria2:=">=" & ref1

[Invité]

Les dates toujours au format international!
Format(ref1, "yyyy-mm-dd")

[jpboucher]

Excellent ça marche avec le code de Parmi... j'avais vu pour la date internationale mais pas en mesure de trouver ou bien le définir dans mon code.

Il me reste à comprendre pour le bout de code autofilter avec operator

Mon seul hic reste ma deuxième interrogation. Pourquoi lorsqu'il colle les lignes ensuite, il met toujours par défaut ma 1er ligne de donnée de "Contrats" en ligne 7 dans le résultat...?!

[parmi]

Difficile à dire sans voir les données de base...
Peut-être que tu devrais lire à partir de la line 10 plutôt que 9 (?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A10:q" & LastRow).SpecialCells(xlCellTypeVisible).Copy