Collection, index et dates

Version imprimable

03/03/2010, 11h22
crashtib

Collection, index et dates

Bonjour,

j'ai des collections d'objet. Je souhaite indexer cette collection à l'aide de trois paramètres de ces objets (NomTranche, DateDebut et Duree).

donc lors de l'ajout, je fais la commande suivante :

Code:

Demandes.Add NouvelleDemande, NouvelleDemande.NomTranche & Format(NouvelleDemande.DateDebut, "dd/mm/yyyy hh:nn") & Format(NouvelleDemande.DureeDemandee, "dd/mm/yyyy hh:nn")

lorsque je souhaite retrouver un élément de cette collection à l'aide de son index, par exemple pour le supprimer, je fais donc

Code:

Demandes.Remove NomTranche & Format(DateDebut, "dd/mm/yyyy hh:nn") & Format(DureeDemandee, "dd/mm/yyyy hh:nn")

Il me dit que les arguments sont incorrects... me serais-je gourré au niveau du formatage des dates ou au niveau des arguments?

Merci
03/03/2010, 11h42
Minick

Salut,

Je ne connais pas le format d'heure hh:nn essaie avec hh:mm
03/03/2010, 11h46
crashtib

nn c'est pourles minutes, c'est ce que j'ai lu sur les tutos de ce site... parce que pour moi mm c'est le mois quoi
03/03/2010, 12h09
Minick

re,

Peux -tu mettre un lien la dessus par ce que je suis curieux sur ce coup...

Si j'ai bien compris NouvelleDemande est un type perso mais comment arrives-tu a l'ajouter a ta collection?

Un peu plus de code permettrait de mieux comprendre je pense

Alors, les liens : ici, là.

EN tout cas après expérimentations il semblerai que hh:mm ou hh/mm ou même hhmm est interprété en tant que heure heure:minute minute alors que dd/mm est interprété en tant que jour jour/mois mois, ce qui est bizarre.

d'autres part je confirme que dans tous les cas nn est interprété comme minute, à tous les coups.

bref, sinon, voici le code d'ajout, par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub AjouterCollectionDemandes(ByVal NouvelleDemande As Demande)
    Dim NomProcApp As String   'Stockage de la procédure appelante
 
    NomProcApp = NomProc
    NomProc = "AjouterCollectionDemandes"  'Gestion des erreurs (procédure en cours)
 
    If Demandes Is Nothing Then Set Demandes = New Collection
 
    'Les index sont constitués de : nom de la tranche, date du début de la demande, durée demandée de la demande. Ces identifiants rendent chaque demande unique
    Demandes.Add NouvelleDemande, NouvelleDemande.NomTranche & Format(NouvelleDemande.DateDebut, "dd/mm/yyyy hh:nn") & Format(NouvelleDemande.DureeDemandee, "dd/mm/yyyy hh:nn")
 
 
 
Sortie:
' Remettre la procédure appelante
    NomProc = NomProcApp
    Exit Sub
 
End Sub

après, quand j'essaie d'accéder à cette Demande via son index, comme par exemple dans cette sub :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub SupprimerCollectionDemandes(ByVal NomTranche As String, ByVal DateDebut As Date, ByVal DureeDemandee As Date)
    Dim NomProcApp As String   'Stockage de la procédure appelante
    Dim lol  As String
 
    NomProcApp = NomProc
    NomProc = "SupprimerCollectionDemandes"  'Gestion des erreurs (procédure en cours)
 
    Demandes.Remove NomTranche & Format(DateDebut, "dd/mm/yyyy hh:nn") & Format(DureeDemandee, "dd/mm/yyyy hh:nn")
 
 
Sortie:
' Remettre la procédure appelante
    NomProc = NomProcApp
    Exit Sub
 
End Sub

il me crache que les arguments ne sont pas valides... je pense qu'il gueule surtout au niveau du référencement de l'index... quid?

03/03/2010, 12h51
Minick

re,

Ben j'irai me coucher moins bete ce soir.
Apres une petite lecture dans l'aide excel si m est precede de h m signifie minute sinon mois

Pour ton probleme, je n'arrive pas a compiler ton code, il doit surement encore me manquer des trucs.
A chaque fois il ne compile pas a cause de Demandes.Add NouvelleDemande, Nouv...
03/03/2010, 14h15
crashtib

Nouvelle demande est un objet de type Demande reçu en paramètre de la méthode responsable de son ajout dans la collection.

La méthode ne sert juste qu'à faire un add avec les arguments qui vont bien pour indexer correctement le nouvel objet (les arguments étant nom, durée, date demande, constituant un trio discriminant)

essayons de recentrer la question :

pour ajouter un item dans une collection, c'est bien :

Code:

MaCollection.Add MonItem, IndexUniqueEnTantQueString

?
03/03/2010, 15h12
Minick

re,

Oui, c'est bien la synthaxe.

Apres plusieurs nouveaux tests, je n'ai rencontre aucun probleme de suppression
d'item par la cle unique.

Question bete, mais j'essaie de comprendre...
Es-tu certain du contenu des variables DateDebut et DureeDemande (sous entendu est ce que tu as l'heure dans les dates)?
Je ne parle pas de nomTranche car la cle ne tient apparemment pas compte de la casse.

A te lire
03/03/2010, 15h59
crashtib

En effet, NomTranche ne doit pas poser de problème.

Je pense qu'effectivement c'est durée et date qui posent problème, mais je ne connais aucun moyen de connaître leur contenu.

Ni les espions ni un MsgBox ne me permettent de savoir la valeur de tels champs , sous entendu comment le système les traite. En effet, msgbox ne donne qu'une convertion en string.

C'ets pour cela que j'utilise format(), et CDate(), mais quelque chose flanche
03/03/2010, 16h32
Minick

Je ne vois pas comment je peux t'aider...

Essaie peut etre de supprimer les espace, / et : de la cle (sans conviction)...

Sinon est ce que l'heure est significatif pour les demandes, si elle ne l'est pas essaie de l'occulter...
04/03/2010, 16h59
crashtib

Merci de ton aide. Après avoir imposé un format de date bien dur pour être sûr de pas être embêté par ça, je me suis rendu compte que ça me crache la même erreur quand j'essaie de remove un item dont l'index n'existe... pas.

A problème idiot, solution stupide donc.

merci beaucoup quand même
11/03/2010, 15h57
crashtib

Je me permets de rouvrir ce thread à propos d'une problématique similaire.

Comme cité ci-dessus j'indexe mes collections selon maintenant quatre critères : un string, deux dates et un string.

J'aimerai savoir comment changer l'INDEX d'un item (dans le cadre d'un changement d'item)

serait-ce un truc du genre collection.item(index).index = "nouvelindex" ou quelque chose comme ça?

merci
11/03/2010, 17h13
Minick

Salut,

Non ce n'est pas possible, a ma connaissance, on ne peux pas modifier un element existant.

Tu dois le supprimer puis le recreer.