Bonsoir,
J'aimerais savoir si il était possible dans le code ci dessous de rajouter un test pour "FichierPres". J'vais prendre un exemple pour expliquer : Si j'ai déjà d'enregistré dans List2 le fichier "index.htm" j'aimerais que si on veut rajouter "Index.htm", ce soit impossible, que FichPres=true....
Merci
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
20
21
22
23
24
25
26
27 Private Sub Ajouter_Click(Index As Integer) Dim FichPres As Boolean Dim mvarModification As Boolean Dim cpte As Integer With mvar_ObjetLié FichPres = False If List1.ListIndex >= 0 Then For cpte = 0 To List2.ListCount - 1 If List1.List(List1.ListIndex) = List2.List(cpte) Then FichPres = True 'Fichier présent dans la List2 End If Next cpte If Not FichPres Then Load SaisieNouveau SaisieNouveau.InitSaisie mFichiers, 0, Trim("") SaisieNouveau.Show vbModal, Me RaiseEvent Change List2.Clear AfficheInfoFichiers End If End If End With End Sub
+++
Partager