Discussion :

[crashtib]

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 :

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

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 :

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

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

[Minick]

Salut,

Je ne connais pas le format d'heure hh:nn essaie avec hh:mm

[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

[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

[crashtib]

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 :

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
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 :

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
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?

[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...