Discussion :

[capi81]

Bonsoir le forum

Le code ci-dessous me fatigue.
Je cherche à copier coller les données d'une plage et les coller sur une autre.
La plage source est Sheets("INV_CAISSE_DEBUT") et la plage à copier est E2:E38.
La feuille de DESTINATION est Sheets("ETAT_SORTIE_CAISSE") et le collage doit se faire à partir de C3.
D'abord en C2 la date du jour-1 devra y être collée
Ensuite les éléments copiés devront être collés à partir de la 3eme ligne de la 3eme colonne.
NB :
- le collage devra se faire au fur et à mesure
- le collage se fait aussi à la fin de chaque colonne
c'est à dire dès que la 2ème ligne de la dernière colonne est vide, on colle la date du jour moins 1 suivi du collage de la plage copiée.
Lorsque j'exécute mon code, le collage se fait au même endroit et très lent.
Je sais que mon code n'est pas parfait et je sollicite vos contributions pour le parfaire.

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
Dim derncol As Integer
 
Dim DEST As Range, DEST1 As Range
 
derncol = Cells(3, Cells.Columns.Count).End(xlToLeft).Column + 1
 
    Set f = Sheets("ETAT_SORTIE_CAISSE")
 
    Set ft = Sheets("INV_CAISSE_DEBUT")
 
    Set DEST = f.Cells(3, derncol)
 
    Set DEST1 = f.Cells(2, derncol)
 
'DEST1 = Date
 
ft.Range("E2:E37").Copy
 
DEST.PasteSpecial Paste:=xlValues

[Theze]

Bonjour,

De cette façon par exemple :

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
 
Sub Test()
 
    Dim Plg As Range
 
    Set Plg = Sheets("INV_CAISSE_DEBUT").Range("E2:E38")
 
    With Sheets("ETAT_SORTIE_CAISSE")
 
        .Cells(2, 3).Value = Date - 1
        .Cells(3, 3).Resize(Plg.Rows.Count, 1).Value = Plg.Value
 
    End With
 
End Sub

[capi81]

Bonsoir Theze et le forum
Merci pour votre retour.
Je constate que le collage se fait dans une seule colonne et non au fur et à mesure.
Mon souhait est que le collage se fasse à la fin de la dernière colonne non vide.
Exemple : si C2 est non vide, on colle en D2 et ainsi de suite.
Merci

[Theze]

Bonjour,

Avec ceci alors :

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
 
 
    Dim Plg As Range
    Dim Col As Long
 
    Set Plg = Sheets("INV_CAISSE_DEBUT").Range("E2:E38")
 
    With Sheets("ETAT_SORTIE_CAISSE")
 
        Col = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
        .Cells(2, Col).Value = Date - 1
        .Cells(3, Col).Resize(Plg.Rows.Count, 1).Value = Plg.Value
 
    End With
 
End Sub

[capi81]

Bonjour Theze

Votre code fonctionne correctement.
Serait-il possible d'éviter des doubles lors du collage?
C'est à dire que le collage se fasse une seule fois.
Encore merci

[Theze]

Que veux-tu dire par :

Serait-il possible d'éviter des doubles lors du collage?

L'ensemble des valeurs précédemment collées ne puissent se trouver plusieurs fois ? Qu'une partie des ces valeurs ne puissent être en doublon ?