bonjour,

je cherche à faire une sélection de plage dans une feuille "MoyJour" à partir d'une feuille y
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 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 : Sélectionner tout - Visualiser dans une fenêtre à part
Set maplage = Sheets("MoyJour").Range(Cells(2, coldate), Cells(65000, coldate))
je ne comprends pas pourquoi?

merci d'avance