Bonjour,

Je souhaite faire une sélectionner une plage de cellules variables. J'utilise donc des "Cells" à l’intérieur d'un "Range" mais mon code ne semble pas être bien déclaré car au moment d’exécuter cette instruction, j'obtiens l'erreur 1004.

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
 
    Dim cpt1 As Integer
    Dim cpt2 As Integer
    Dim ptr As Integer
    Dim fin As Integer
    Dim ean2 As Double
    Dim DatFvi As Workbook
    Dim plage As Range
 
     Set DatFvi = GetObject("C:\Users\kguesmia\Documents\Casse du Havre\Foto Infolog.xls")
 
    cpt1 = 4
    cpt2 = 15823
    ptr = 25 ' Colonne à partir de laquelle on écrit
 
     Do
         Cells(3, ptr).Value = "DateFvie"
         Cells(3, ptr + 1).Value = "Stock"
         ean2 = DatFvi.Sheets(1).Range("C" & cpt2).Value
 
         If Range("P" & cpt1).Value = ean2 Then
            fin = DatFvi.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Column    'dernière colonne remplie du tableau
            Set plage = DatFvi.Sheets(1).Range(Cells(cpt2, 31), Cells(cpt2, fin))
            plage.Select
            Selection.Copy

Pourriez-vous m'indiquer ce qu'il ne va pas svp.

Merci.