vba copier coller

Version imprimable

27/06/2011, 23h22
duplaly

1 pièce(s) jointe(s)

vba copier coller

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

Variable Tableau

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:

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.

28/06/2011, 14h56
CODYCO

Tu peux aussi utiliser une plage nommé de ceux que tu veux copier et la rappeler quand necessaire...
28/06/2011, 15h03
MarcelG

plage nommée

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.
28/06/2011, 17h05
duplaly

vba macro copier coller

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.
28/06/2011, 17h15
MarcelG

transfert date

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.
29/06/2011, 00h32
duplaly

vba copier coller

Encore merci pour ton aide appréciée.
Je viens de changer les formats de date en jj-mmm-aa
j'ai supprimé les feuilles et rajouter de nouvelles données comme tu m'as dit et rien ne marche.
il me transfert des dates qui ne sont pas dans mon tableau et le format n'est pas pareil.
Pourtant, si je le fais avec mon fichier original, il me donne les dates correctement dans le bon format.

Je suis convaincu que c'est un petit détail que tu vas fixer rapidement pour moi.

problème de dates

Bonjour Duplaly, Bonjour le Forum,

Ce problème d'inversion de jour et mois (si le jour est inférieur à 15) est connu.

Tu peux lever la difficulté en utilisant la méthode

Code:

CSng

(convertit la celule en chaîne de caractères)
puis en convertissant au format date tes cellules de destination.

D'où (Testé Excel 2003)

Code:

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
49
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)
            tablo(1, I) = CSng(c)
            For n = 2 To 10
                    tablo(n, I) = c.Offset(0, n - 1)
            Next n
    End If
 
 Next
 
Workbooks.Open Filename:="LeCheminComplet\dur.xls"
 
nbcol = UBound(tablo, 1)
nblign = UBound(tablo, 2)
 
Dim derncell As Range
 
With ActiveWorkbook.Sheets("Empl")
                Set derncell = .Range("A8").Offset(nblign - 1, nbcol - 1)
                With .Range(.Range("A8"), derncell)
                        .Value = WorksheetFunction.Transpose(tablo)
                End With
                .Range(.Range("A8"), .Range("A8").Offset(nblign - 1, 0)).NumberFormat = "dd mmm yy"
               '.Close (True)
End With
 
Set champ = Nothing
Set derncell = Nothing
 
Erase tablo
 
Unload Me
 
End Sub

01/07/2011, 04h26
duplaly

vba copier coller

Merci beaucoup, tout fonctionne