Discussion :

[gaston64]

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

[BlueMonkey]

Bonjour,

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 :

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

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

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 .

[kiki29]

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

[gaston64]

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

[BlueMonkey]

Essayer de remplacer la copie des données du tableau

Code :

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

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 :

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

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

[gaston64]

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