Bonjour à tous,

Voila je me suis fait aider pour un morceau de code par un ami mais je ne comprend pas vraiment tout le code, et il ne peut pas m'expliquer car il vien de s'envoler pour l'espagne ^^ (veinard ^^).

Donc voila en fait je sais que avec ce code je copie un tableau qui commence à la ligne C17 et qui fini à la ligne G25.
Mais je voudrais par exemple rajouter un tableau qui commence a la ligne C57, et qui fini à la ligne C65.

donc voila je donne en même temp 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
25
26
 
Sub enreg_BDD()
    Sheets("STAT_GOOD").Activate
        Application.ScreenUpdating = False
   If [GOOD!a1] <> "" Then
            [BDD!d65536].End(xlUp)(2).Name = "top"
            Range("GOOD!a1").Copy Destination:=[BDD!a65536].End(xlUp)(2) 'nom Valve
            Range("GOOD!k4").Copy Destination:=[BDD!c65536].End(xlUp)(2) 'date
            Range("STAT_GOOD!d12").Copy Destination:=[BDD!b65536].End(xlUp)(2) 'nom fichier'******essai
                Application.CutCopyMode = False
                [c17].Select
 
            Do While ActiveCell <> ""
               Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy
                    With Sheets("BDD")
                        .Range("top").PasteSpecial Paste:=xlPasteValues
                        [Top].Offset(0, 5).Name = "top"
                    End With
                Application.CutCopyMode = False
                ActiveCell.Offset(1, 0).Select
            Loop
                [GOOD!a1].ClearContents 'contrôle du If
        Else
            MsgBox ("déjà enregistré dans BDD !")
    End If
End Sub
Je vous remerci d'avance.
Amicalemen