VBA impossible de selectionner une plage de cellules variables

Version imprimable

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:

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.

19/02/2016, 12h37
Menhir
[QUOTE=kimou75;8539034]

Code:

Set DatFvi = GetObject("C:\Users\kguesmia\Documents\Casse du Havre\Foto Infolog.xls")

Il est plus simple et plus propre de faire :

Code:

Set DatFvi = Worksbooks.Open("C:\Users\kguesmia\Documents\Casse du Havre\Foto Infolog.xls")

Le GetObject est plutôt réservé à l'ouverture d'objet utilisant une applications autres que Excel.

Je suppose que ton problème vient de :

Code:

Set plage = DatFvi.Sheets(1).Range(Cells(cpt2, 31), Cells(cpt2, fin))

Essaye

Code:

Set plage = DatFvi.Sheets(1).Range(DatFvi.Sheets(1).Cells(cpt2, 31), DatFvi.Sheets(1).Cells(cpt2, fin))

Si ça ne marche toujours pas, regarde le contenu de ta variable fin.

Et plutôt que
Code:

1 2 plage.Select Selection.Copy
Tu devrais écrire :

Code:

plage.Copy

C'est plus simple, plus propre et l'exécution est plus rapide.
19/02/2016, 13h10
kimou75

Génial ! merci Menhir !

C'est effectivement le fait de ne pas avoir déclaré mes Cells à la feuille externe qui posait problème.