Code copier coller

Version imprimable

22/02/2019, 19h30
houcine23

Code copier coller

Bonjour,
j'aurai besoin d'un peu d'aide svp
dans un classeur il y a deux feuilles "BC" et "BD"
je désire automatiser la chose suivante:
Copier les cellules de D21 à D35, I21 à I35 et J21 à J35 de la feuille "BC"
Coller ces cellules sur la feuille "BD" en les copiant sur la première ligne vide disponible.

Pour être plus clair la feuille "BC" se remplira à chaque fois que je remplie un bon de commande
Une idée pour ma dépanner et du coup je ne sais même pas si elle fonctionne!!!
D'avance merci
23/02/2019, 10h03
Rémy.A

Code copier coller

Bonjour houcine23,

Il y a deux solutions possible.

Sois de le faire avec des formules dans la feuille Excel (je pense que sa sera le plus simple). Si non en VBA.

Je te conseillerai de le faire avec des formules dans les feuilles.

Si tu veux le faire en VBA, tu peux enregistrer une macro avec l'aide de l'enregistreur de macro et après tu essayes d'optimiser le code.

Tu veux copier toutes tes valeur sur la 1er ligne ou copier les valeur sur la première ligne et la suite des valeur dans la colonne A?
23/02/2019, 10h30
houcine23

Bonjour Rémy
Merci pour votre réponse
En fait l'idée c a chaque fois que je remplis mon bon de commande dans la feuille "BC" je veux copier les données dans la feuille "BD" à l'aide d'une macro dans une seule touche puisque c une action répétitifs
23/02/2019, 10h32
houcine23

Bien sur que je veux copier les données à la suite des précédents données pour construire une base de données

Code copier coller

J'ai fais un bout de code pour coller les valeur à la suite sur la 1er ligne.

J'ai commenté pour que tu puisses bien comprendre.

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
50
51
52
 
Sub MaJ()
 
Dim x As Integer 'Boucle pour copier et coller
Dim y As Integer 'Boucle pour avoir le nombre de valeur à copier
Dim z As Integer 'Boucle pour les 3 colonne (D, I, J)
Dim FichierExcel As String 'pour récupérer le nom du fichier
Dim Dernier_Cellule As Range 'pour récupérer la dernier cellule
Dim Num_Colonne As Integer 'pour récupérer le numéro de la dernier cellule
 
For z = 0 To 2 'Boucle pour les 3 colonnes
    Select Case z
 
    Case 0 'si z = 0 alors colonne D
        Num_Colonne = 4
 
    Case 1 'si z = 1 alors colonne i
        Num_Colonne = 9
 
    Case 2 'si z = 2 alors colonne j
        Num_Colonne = 10
 
    End Select
 
    FichierExcel = ActiveWorkbook.Name
    Workbooks(FichierExcel).Worksheets("BC").Activate
        With Worksheets("BC")
            Set Dernier_Cellule = Cells(Cells.Columns.Count, Num_Colonne).End(xlUp) 'Permet de déterminer la dernière cellule vide de la colonne D
        End With
 
    y = Dernier_Cellule.Row 'permet de récupérer le N° de ligne dans la variable y
 
        For x = 21 To y 'Boucle pour copier les valeurs
            Cells(x, Num_Colonne).Copy
 
            'If la 1er cellule est vide on colle
                If Range("A1") = "" Then
                    'Workbooks(FichierExcel).Sheets("BD") ON active la feuille BD du fichier excel
                    'Cells(1, Cells.Columns.Count) On prend la derniere cellule de la ligne 1
                    'End(xlToLeft)On revient vers la gauche jusqu'a la cellule pleine
                    Workbooks(FichierExcel).Sheets("BD").Cells(1, Cells.Columns.Count).End(xlToLeft).PasteSpecial
                End If
                    'Workbooks(FichierExcel).Sheets("BD") ON active la feuille BD du fichier excel
                    'Cells(1, Cells.Columns.Count) On prend la derniere cellule de la ligne 1
                    'End(xlToLeft)On revient vers la gauche jusqu'a la cellule pleine
                    'Offset(0, 1) on se décale de 1 sur la ligne active
            Workbooks(FichierExcel).Sheets("BD").Cells(1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial
            Workbooks(FichierExcel).Worksheets("BC").Activate
 
        Next x
Next z
End Sub

re
bonjour
oulah!! on s'envole la remi

avez vous entendu parler de la fonction "union" non!!???
ben voila qui est fait

exemple
Code:

1 2 3 4 5 Sub test() With Sheets("BC") Union([D21:D35], [I21:I35], [J21:J35]).Copy Destination:=Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Offset(1) End With End Sub

24/02/2019, 16h09
Rémy.A

Code copier coller

Bonjour Patricktoulon,

^^
Non je ne connais pas cette fonction.
Elle est bien pratique!! Merci Paticktoulon:ccool:
24/02/2019, 20h32
STW59

geny

bonjour mr patrick toulon

je me permet de poster ici, suite a d'anciens post que j'ai trouver au hasard
de mes recherches,, je suis un mega debutant en vba (pire que ca meme !!)
et sur l'un de vos post consacré à la récupération de données sur le net
notamment en 2004 sur le site Geny

j'ai constaté une approche différente, d'importation de données
je tente actuellement d’étendre et de complémenter un fichier que
j'ai récupéré du net, après quelques mois d'approche et de nombreuses lectures
, j'ai (selon mon maigre niveau!:( ) 'traduit' plus ou moins les commandes

pourriez vous , m'apportez votre aide afin de finaliser ce fichier

Cordialement, stéph