Discussion :

[duplaly]

Bonjour
Je joins mon fichier avec explication de ce que je voudrais faire si quelqu'un veut bien m'aider.
Dans mon fichier TriDate essai, je voudrais copier toutes les lignes comprises entre les date que je vais choisir avec les dtpicker et les copier dans le fichier dur, feuille "empl", Range("A8") comme départ. Le fichier dur sera fermé en tout temps. Je voudrais l'ouvrir avec vba et le fermer après écriture.
Dans mon actuel je ne suis pas certain du code que j'ai commencé. je faisais des dans le même classeur.
je voudrais copier è partir de la ligne 8 et copier à partir de la ligne 8.
merci pour votre aide

[MarcelG]

Bonjour et Bienvenu sur ce Forum, Bonjour le Forum,

(Personnellement, je préfère utiliser les variables tableau aux filtres.)

Un exemple d'application pour le cas qui t'intéresse.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub CommandButton1_Click()
 
Début = DTPicker1.Value
Fin = DTPicker2.Value
 
Dim tablo()
Dim c As Range
 
With Sheets("Feuil1")
    derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set champ = .Range("A8:A" & derlign)
End With
I = 0
For Each c In champ
 
    If c.Value >= Début And c.Value < Fin Then
            I = I + 1
            ReDim Preserve tablo(1 To 10, 1 To I)
            For n = 1 To 10
                    tablo(n, I) = c.Offset(0, n - 1)
            Next n
    End If
 
 Next
 
Workbooks.Open Filename:="Tonchemincomplet\dur.xls"
 
nbcol = UBound(tablo, 1)
nblign = UBound(tablo, 2)
 
Dim derncell As Range
 
With ActiveWorkbook
        With .Sheets("Empl")
                Set derncell = .Range("A8").Offset(nblign - 1, nbcol - 1)
                .Range(.Range("A8"), derncell).Value = WorksheetFunction.Transpose(tablo)
         End With
         .Close (True)
End With
 
Set champ = Nothing
Set derncell = Nothing
 
Erase tablo
 
Unload Me
 
End Sub

Reviens si nécessaire.

Bonne journée.

[CODYCO]

Tu peux aussi utiliser une plage nommé de ceux que tu veux copier et la rappeler quand necessaire...

[MarcelG]

Bonjour Codyco,

Je ne vois pas comment renommer une plage en fonction de 2 critères retournés par userform. Ceci tout en sachant que les dates ne sont pas triées dans le fichier d'origine, même si la référence d'une plage nommée peut être discontinue.

[duplaly]

Bonjour et merci l'aide.
le code ne foncionne pas bien et je m'explique.
il transfer des dastes qui n'existent pas dans mon tableau.
merci à ceux qui voudraient regarder l'erreur pour moi.

[MarcelG]

Salut,

J'ai remarqué en effet que le format de date de la colonne A de ton classeur "Dur.xls" est sous la forme MM/JJ/AA. Tu peux le vérifier au résultat de ton code.
Autrement dit, les dates sont exactes mais mal présentées.

Supprime tout. (MENU Edition\Effacer\Tout)
Affecte un format "classique" jj-mm-aa puis effectue un nouvel essai.