manipulation de dates

Bonjour,

je souhaite créer un premier tableau en recopiant des dates.
Ensuite je veux utiliser ces dates pour afficher un graphique

Or, lors de l'execution de ma macro ces dates son converties en "texte". Il ne m'ai pas possible d'en calculer le min, le max et de les manipuler en tant que nombre.

Les dates manipulées "redeviennent" des "dates" lorsque je clique sur chacune des cellules.

comment faire, pour "actualiser" automatiquement les cellules?

ci-joint mon fichier

Merci

Bonjour,

Citation:

---

Lors de l'execution de ma macro ces dates son converties en "texte".

---

Un extrait de code aiderait à comprendre.
Mais il probable que le problème vienne du fait que les dates ne sont pas stockées dans des variables typées.

Code:

---

1 2	Dim d As Date d = [A1].Value 'stocke une date

---

Citation:

---

je souhaite créer un premier tableau en recopiant des dates.
Ensuite je veux utiliser ces dates pour afficher un graphique
comment faire, pour "actualiser" automatiquement les cellules?

---

Si le graphique doit se mettre à jour avec les cellules d'origines, le mieux est de faire référence aux cellules [A14].Formula="=A1",
plutôt que copier la valeur [A14].value= [A1].value .

Salut, de la lecture : http://didier-gonard.developpez.com/...-excel-et-vba/

Bonsoir,

je viens d'ajouter le fichier exemple (je l'avais oublié).
J'abais déjà essayé de stocker les variables sous forme de dates. Mais probablement d'une mauvaise façon.

Avec les fichier exemple il sera plus facile de comprendre ma problématique.

merci

Essayer de remplacer la copie des données du tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim rng1() ReDim rng1(2, 0) For Each cel In Range("B4:B" & Range("B3").End(xlDown).Row) If Rows(cel.Row).Hidden = False Then rng1(0, UBound(rng1, 2)) = cel.Value rng1(1, UBound(rng1, 2)) = cel.Offset(0, 2).Value rng1(2, UBound(rng1, 2)) = cel.Offset(0, 5).Value ReDim Preserve rng1(2, UBound(rng1, 2) + 1) End If Next Range("B30").Resize(UBound(rng1, 2), UBound(rng1, 1) + 1) = Application.Transpose(rng1)

---

par ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'''''''''' copie du tableau de variable Dim copieIndex As Integer copieIndex = 0 For Each cel In Range("B4:B" & Range("B3").End(xlDown).Row) If Rows(cel.Row).Hidden = False Then With Range("B30") .Offset(copieIndex).Value = cel.Value .Offset(copieIndex, 1).Value = cel.Offset(0, 2).Value .Offset(copieIndex, 2).Value = cel.Offset(0, 5).Value End With copieIndex = copieIndex + 1 End If Next

---

P.S : Un extrait de code, avec une présentation des données suffit généralement à comprendre le problème. (voir Fichier joint dans vos discussions

Merci beaucoup pour l'aide. La réponse résout mon problème.

Je tacherai dorénavant de formuler mes problèmes en recopiant directement le code.

Bonne soirée