Boby71C
XLDnaute Impliqué
Bonjour à tous
Je collecte des dates de début et de fin d'activités pour les retranscrire sous forme graphique dans Excel.
A chaque importation de l'ensemble des données d'un nouveau projet, je formate mes colonnes de dates pour assurer la mise en forme.
Plusieurs dizaines de projets passent et brutalement, un bug se déclare:
Erreur définie par l'application ou par l'object.
Si je vais sur les données du nouveau projet qui donne les dates et que je refais manuellement la même mise en forme et que je continue le déroulement du code VBA par F5, tout passe correctement.
Voici une partie du code:
'Récupérer les dates de début et fin des activités
Dim c As Variant
Set c = Cells.Find(What:="20", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=True)
If Not c Is Nothing Then
DebHar = c.Offset(0, -3).Value
FinHar = c.Offset(0, -2).Value
If c.Offset(0, 1).Value = "0 hr" Then
DebHar = 0
FinHar = 0
End If
Else
DebHar = 0
FinHar = 0
End If
Je ne peux joindre mon fichier qui fait 12 MO.
Auriez vous déjà eu ce problême et avez vous trouvé une parade ?
Merci pour votre aide
@+
Je collecte des dates de début et de fin d'activités pour les retranscrire sous forme graphique dans Excel.
A chaque importation de l'ensemble des données d'un nouveau projet, je formate mes colonnes de dates pour assurer la mise en forme.
Plusieurs dizaines de projets passent et brutalement, un bug se déclare:
Erreur définie par l'application ou par l'object.
Si je vais sur les données du nouveau projet qui donne les dates et que je refais manuellement la même mise en forme et que je continue le déroulement du code VBA par F5, tout passe correctement.
Voici une partie du code:
'Récupérer les dates de début et fin des activités
Dim c As Variant
Set c = Cells.Find(What:="20", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=True)
If Not c Is Nothing Then
DebHar = c.Offset(0, -3).Value
FinHar = c.Offset(0, -2).Value
If c.Offset(0, 1).Value = "0 hr" Then
DebHar = 0
FinHar = 0
End If
Else
DebHar = 0
FinHar = 0
End If
Je ne peux joindre mon fichier qui fait 12 MO.
Auriez vous déjà eu ce problême et avez vous trouvé une parade ?
Merci pour votre aide
@+