Plage avec range et cells

Version imprimable

bonjour,

je cherche à faire une sélection de plage dans une feuille "MoyJour" à partir d'une feuille y

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 coldate As Integer
Dim i As Integer
 
Dim strChaine As String
Dim c As Range, maplage As Range
Dim numlignedebut As Integer, numlignefin As Integer
 
For e = 1 To 2
    For p = 1 To 5
    If e = 1 And p = 1 Then coldate = 1
    If e = 1 And p = 2 Then coldate = 4
    If e = 1 And p = 3 Then coldate = 7
'debut
    strChaine = Cells(2, 2).Value
    Do While Not numlignedebut > 1
    Set maplage = Sheets("MoyJour").Range(Cells(2, coldate), Cells(65000, coldate))
 
    For Each c In maplage
    If c.Value = strChaine Then
    numlignedebut = c.Row
 
    End If
    Next
    strChaine = DateAdd("d", 1, strChaine)
    Loop

j'ai une erreur 1004 à la ligne

Code:

Set maplage = Sheets("MoyJour").Range(Cells(2, coldate), Cells(65000, coldate))

je ne comprends pas pourquoi?

merci d'avance

31/08/2010, 15h06
Yoyo57
Bonjour elnipal,

As-tu essayé en remplaçant la ligne levant l'erreur par :
Code:

1 2 3 With Sheets("MoyJour") Set maplage = .Range(.Cells(2, coldate), .Cells(65000, coldate)) End With
Il faut en effet indiquer sur quelle feuille tu vas chercher les données.
31/08/2010, 18h48
triaguae

merci ça marche nickel!!
31/08/2010, 19h05
Yoyo57
Pas de quoi,

Au passage, tu écris 65000, est-ce un besoin particulier (tu as exactement 64999 valeurs) ou tu écris cela pour parcourir, à peu près, toute la colonne ?

Dans ce dernier cas, je te conseille de remplacer par
Code:

1 2 3 With Sheets("MoyJour") Set maplage = .Range(.Cells(2, coldate), .Cells(.Rows.Count, coldate)) End With
De cette façon, tu parcoureras absolument toutes les lignes !
01/09/2010, 08h01
triaguae

c'était pour couvrir la colonne en entier ( presque!!) sachant que je n'arriverais jamais à 65000, mais c'est vrai que c'est pas très propre.
merci pour le conseil