Bonjour,

Le débugeur m'arrête à une ligne et je ne comprends vraimant pas pk...

voici le code:
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
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:
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:
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.?