Discussion :

[Boby71C]

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 1004 définie par l'application ou par l'object.

Si je vais sur les données du projet qui ne passe pas ,qui donne les dates et dès 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

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
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 ?
Me manquerait-il une macro complémentaire, mais laquelle ?

Merci pour votre aide

@+
Robert

[fred65200]

bonjour
peut être en convertissant en date

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
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 = CDate(c.Offset(0, -3).Value)
   FinHar = CDate(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

Cordialement

[Boby71C]

Bonjour fred65200 et le forum

Merci pour votre réponse.
Je vais procéder aux essais et vous tiens au courant.

@+
Robert

[Boby71C]

Bonjour
Désolé, ça ne fonctionne pas. Je ne sais vraiement pas quoi faire.

Merci pour votre aide

@+
Robert

[ouskel'n'or]

La meilleure solution que j'ai trouvée est de passer la colonne date en format nombre et de travailler sur le N° de série. Une fois le résultat obtenu, je remets la colonne date au format voulu. Pour un graphe, je tenterais le coup en passant d'abord la colonne au format Nombre, puis au format date voulu. Ainsi toutes tes dates auront le même format.
A tout hasard

[LeForestier]

Bonjour,

Plusieurs dizaines de projets passent et brutalement, un bug se déclare:

Tu arrive probablement à saturations de la mémoire ?
Ce qui s'expliquerait quand tu passe en manuel, de la mémoire est liberée
Essai:
Quand un projet est créer, le sauver et fermer.
A+

[ouskel'n'or]

Bonne idée, très cher LeForestier, j'ajouterais : Mets "Option Explicit" en tête de module. Il est fort possible que certaines variables ne soient pas déclarées... si elles étaient toutes déclarées le message d'erreur serait, il semble m'en souvenir, "Pile saturée" ou quelque chose comme ça...

Code :

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

Option Explicit

A placer avant toutes tes macros

[Boby71C]

Bonjour

Je suis bien en option explicite .

J'ai pensé au problème mémoire, mais je ne sais pas comment faire autrement pour importer mes données car mes projets sont tous les uns derrière les autres et je ne peux pas fermer mon fichier tant que je ne suis pas au bout de l'importation des données.
S'il existait une solution pour vider la mémoire à chaque changement de N° de projet, je suis preneur.
Le code est beaucoup trop long pour que je puisse le joindre.

Je vais essayer de faire un fichier très réduit pour le joindre, mais ça n'est pas promis.

Merci à tous

@+
Robert