Discussion :

[triaguae]

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

[Yoyo57]

Bonjour elnipal,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[triaguae]

merci ça marche nickel!!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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