Définition d'un range par Cells(), Cells()
Bonjour,
Le débugeur m'arrête à une ligne et je ne comprends vraimant pas pk...
voici le code:
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
26
|
Sub DessineTache(ByVal LingeFT As Integer, ByVal LingeGantt As Integer, ByRef TabD() As Date) 'Dessiner tache
Dim RTask As Range
Dim eurreur As Boolean
Dim StartDate As Date, FinishDate As Date
Dim CStart As Integer, CEnd As Integer
erreur = 0
'##A faire:
'recuperer starting date et target date
If (IsDate(ActiveWorkbook.Sheets("Foreseeable Tasks").Cells(LingeFT, 14).Value) = True) Then
StartDate = ActiveWorkbook.Sheets("Foreseeable Tasks").Cells(LingeFT, 14).Value
Else
erreur = 1
End If
If (IsDate(ActiveWorkbook.Sheets("Foreseeable Tasks").Cells(LingeFT, 14).Value) = True) Then
FinishDate = ActiveWorkbook.Sheets("Foreseeable Tasks").Cells(LingeFT, 4).Value
Else
erreur = 1
End If
'Si problème pour dessiner tache ne rien dessiner
If erreur = 0 Then
CStart = GetCollumsOfDate(StartDate, TabD)
CEnd = GetCollumsOfDate(FinishDate, TabD)
Set RTask = ActiveWorkbook.Sheets("Gantt").Range(Cells(LingeGantt, CStart), Cells(LingeGantt, CEnd)) 'setter correctement RTask
RTask.Merge
'... |
Le debugeur s'arrête à la ligne rouge et me met le message suivant:
Citation:
Erreur d'execution '1004':
erreur defini par l'application ou par l'objet
J'ai mis des points d'arrête pour controler que le code d'execute bien avant...
Juste avant que la ligne qui plante s'exécute on a:
Citation:
CStart = 15
CEnd = 35
LingeGantt = 14
Ce qui est exactement les valeurs que je veux étant donner les données d'entrées...
J'ai alors testé séparament le code suivant:
Code:
1
2
3
4
5
6
|
Private Sub CommandButton5_Click()
Dim RTask As Range
Set RTask = ActiveWorkbook.Sheets(1).Range(Cells(14, 15), Cells(14, 35)) 'setter correctement RTask
RTask.Merge
End Sub |
Qui marche parfaitement...
Quelqu'un comprend t il ce qui ce passe.?
