Probleme avec les collections

viavba · 19/09/2008, 15h05

bonjour,

bon je veux mettre de non de fichier dans une collection

Code :

 Dim m_colFichier As New Collection
    Dim objFichier As clsFichier
 
    x.add "c:\fichier1.txt"
    x.add "c:\fichier2.txt"
    x.add "c:\fichier3.txt"
    x.add "c:\fichier4.txt"
    
End Sub

jusque la tous va bien.

maintenant ce que je veux c'est suprimer mon "c:\fichier2.txt" mais je ne connais pas l'index correspondant a cette element de ma collection.

donc je ne peux pas faire

Code :

x.remove Index

je ne trouve pas de solution pour connaitre l'index de "c:\fichier2.txt"

merci d'avance

Pierre Fauconnier · 19/09/2008, 15h37

Bonjour

Utilise le paramètre Key en lui attribuant également le nom du fichier. Dès lors, tu peux utiliser la clé en remplacement de l'index...

Code :

 Dim m_colFichier As New Collection
    Dim objFichier As clsFichier
 
    x.add "c:\fichier1.txt", "c:\fichier1.txt"
    x.add "c:\fichier2.txt", "c:\fichier2.txt"
    x.add "c:\fichier3.txt", "c:\fichier3.txt"
    x.add "c:\fichier4.txt", "c:\fichier4.txt"
 
    x.Remove "c:\fichier2.txt"
    
End Sub

Astucieux?

viavba · 19/09/2008, 16h26

merci beaucoup,
apres refonte de mon code de la ma classe etc...

ca va mieux.

je reviendrais plustard pour les autres question.

parce que je vais en avoir d'autre

19/09/2008, 15h05	#1 (permalink)
viavba Invité régulier Date d'inscription: septembre 2008 Messages: 14	Probleme avec les collections bonjour, bon je veux mettre de non de fichier dans une collection Code : Dim m_colFichier As New Collection Dim objFichier As clsFichier x.add "c:\fichier1.txt" x.add "c:\fichier2.txt" x.add "c:\fichier3.txt" x.add "c:\fichier4.txt" End Sub jusque la tous va bien. maintenant ce que je veux c'est suprimer mon "c:\fichier2.txt" mais je ne connais pas l'index correspondant a cette element de ma collection. donc je ne peux pas faire Code : x.remove Index je ne trouve pas de solution pour connaitre l'index de "c:\fichier2.txt" merci d'avance

19/09/2008, 15h37	#2 (permalink)
Pierre Fauconnier Rédacteur/Modérateur Date d'inscription: novembre 2003 Localisation: Theux (Belgique) Âge: 42 Messages: 3 256	Bonjour Utilise le paramètre Key en lui attribuant également le nom du fichier. Dès lors, tu peux utiliser la clé en remplacement de l'index... Code : Dim m_colFichier As New Collection Dim objFichier As clsFichier x.add "c:\fichier1.txt", "c:\fichier1.txt" x.add "c:\fichier2.txt", "c:\fichier2.txt" x.add "c:\fichier3.txt", "c:\fichier3.txt" x.add "c:\fichier4.txt", "c:\fichier4.txt" x.Remove "c:\fichier2.txt" End Sub Astucieux? __________________ Pierre Fauconnier -------------------- "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) Pensez au tag Mon blog sur DVP - Mes petits papiers sur DVP - Nouveau: Groupe des formateurs - Nouveau: Groupes développeurs QSEA Je ne peux en aucun cas être tenu pour responsable des conséquences de l'utilisation des codes que je fournis dans le cadre des réponses apportées sur les forums, même s'il s'avérait que ces codes sont erronés ou amènent à des dysfonctionnements, de manière manifeste ou non.

19/09/2008, 16h26	#3 (permalink)
viavba Invité régulier Date d'inscription: septembre 2008 Messages: 14	merci beaucoup, apres refonte de mon code de la ma classe etc... ca va mieux. je reviendrais plustard pour les autres question. parce que je vais en avoir d'autre

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Général VBA
Probleme avec les collections

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email