Discussion :

[tamtam64]

Bonjour,

j'ecris ce message car un truc me rend fou :

impossible de copier mon tableau dans une plage c'est incomprehensible....
Je n'arrive pas non plus a copier une plage dans une plage j'ai tout essayé, je ne comprend pas du tout
aucune methode ne fonctionne, je pense que quelque chose m'echape.
voici mon code :

ma fonction construit un tableau des dates selectionnées

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
    'Construit une plage à partir d'une cellulle de base
Function CreateRng(ByVal MyRange As Range, MyEDate As Date) As Variant
    Dim MySRng As Range, NbL As Long
    Dim i As Long
 
        'Nbr de lignes
    NbL = Range(MyRange, MyRange.End(xlDown)).Rows.Count
    ReDim MyTab(NbL, 1)
 
        'determiner la position de la cellule de la date de fin
    While (MyRange.Offset(i).Value < MyEDate) And (i <= NbL)
        i = i + 1
        MyTab(i, 1) = MyRange.Offset(i - 1).Value
 
    Wend
 
        'Construction de la plage
    CreateRng = MyTab
    MyDim = UBound(MyTab)
End Function

je m'en sert dans mon code :

Code :

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

1
2
3
With ThisWorkbook.Worksheets("DB")
            'Copie des dates de la periode
        .Range("DateD").Resize(MyDim, 1) = CreateRng(AllD_Rng.Find(CDate(MySDate), LookIn:=xlValues, LookAt:=xlWhole), MyEDate)

Je suis en option base 1 et MyDim est bien egal au nombre de lignes du tableau ..
mon message d'erreur est :

erreur definit par l'application ou l'objet


merci

[tamtam64]

____