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.
Partager