PB dans une boucle avec la propriété Selected !!!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : PB dans une boucle avec la propriété Selected !!!

olivier857

Slt,

Voilà j'ai créé un code qui me permet de copier dans un repertoire les photos que j'ai préalablement selectionnés dans une ListeBox.

Ce code commence par comparer les éléments selectionnés dans ma ListeBox source (File1) avec ceux d'une autre ListeBox (File2) visant le repertoire destinations de mes photos, puis demande a changer de nom si il y a des doublons, puis fait une copie du fichier si il y n'y a pas de boublons.

Le problème est que lorsque je selectionne plusieurs photos (propriété multi select activé), le test : If File1.Selected(i) = True fonctionne mal.

En fait lorsque qu'il passe sur le 1er élément sélectionné (disons i=5) tous ce passe bien, il continu le code est fait la copie, mais quand il arrive au 2ème élément selectionné (disons i=8) il ne le vois pas comme sélectionné car il renvoie un False et non un True.
Voila je comprens pas pourquoi puisque cet élément est bien selectionné

Je m'arrache les cheveux sur ce code depuis des heures, il va bientôt plus beaucoup m'en rester.

Voila mon code :

Code :

Private Sub cmd_ajout_Click()
Dim chemin_fichier As String
Dim i, f As Integer
Dim new_nom As String
File2.Refresh
For i = 0 To File1.ListCount - 1
If File1.Selected(i) = True Then 'Test si l'élement i est sélectionné
chemin_fichier = Dir1.Path & "\" & File1.List(i)
new_nom = File1.List(i)
choix:
For f = 0 To File2.ListCount - 1
If File2.List(f) = new_nom Then 'on test si ce nom existe deja
new_nom = InputBox("Attention le fichier " & "'" & new_nom & "'" & " correspond a une photo déjà présente dans ce thème !" & vbNewLine & "Veuillez entrer un nouveau nom :", "Choix du nom de la photo" )
new_nom = new_nom & ".jpg"
GoTo choix 'on repare en choix pour tester si le nouveau nom existe
End If
Next f
'on copie le fichier
FileCopy chemin_fichier, App.Path & "\multimedia\images\" & patient & "\" & theme & "\" & new_nom
File1.Refresh
End If
Next i
End Sub

J'espère que vous aurez une idée pour moi.

Merci d'avance.
Olivier

Publicité

knakes

Ajoute 2 listbox dans ta form. Caches tes filelistbox (visible=false)
dans ton form_load(), copies ceci

Code :

For i = 0 To Me.File1.ListCount - 1
Me.List1.AddItem Me.File1.List(i)
Next i
For i = 0 To Me.File2.ListCount - 1
Me.List2.AddItem Me.File2.List(i)
Next i

Maintenant cela doit fonctionner. N'oublies pas de modifier dans ton prog 'File1' devient 'List1' ...

le seul souci qui pourrai exister c'est que ta listbox ne se met pas à jour lorsque tu copies le fichier. Deux cas s'offrent à toi :
le premier, tu rajoutes (apres la copie de fichier)

Code :

List2.AddItem new_nom

le second tu rajoutes (même endroit)

Code :

List2.Clear
For i = 0 To Me.File2.ListCount - 1
Me.List2.AddItem Me.File2.List(i)
Next i

Voilà. A toi de voir.

Message édité par knakes le 21-01-2005 à 21:05:06

olivier857

Merci j'ai essayé mais ca ne marche pas non plus.

olivier857

C'est bon j'ai trouvé en fait ca venaot d'une ligne qui na rien a foutre la et qui d'attract le reste :

File1.Refresh

FORUM HardWare.fr

Programmation

VB/VBA/VBS

PB dans une boucle avec la propriété Selected !!!

Sujets relatifs
problème de boucle	Accélérer une boucle
[PHP] Problème avec une boucle	Passage de variable depuis une boucle ???
plusieurs commandes dans une boucle for	[PHP]Récuperation d'une boucle en variable
Boucle : tous les fichiers d'un dossier et non un spécifique	excel cellule colonne vbs boucle
Controler une boucle infinie	touche [TAB] qui boucle uniquement sur input + accessibilite
Plus de sujets relatifs à : PB dans une boucle avec la propriété Selected !!!

Page générée en 0.047 secondes