Aide pour formulaire et listbox

[Mr GT]

Trouvé - Aide pour formulaire et listbox

Bonjour à tous!

Dans mon formulaire j'ai créé un bouton pour ajouter des fichiers dans un listebox. Le code est plus bas.

J'aimerais savoir quel code je dois mettre dans le bouton supprimer. Ce que je voudrais faire : cliquer sur le fichier dans le listbox, ensuite cliquer sur le bouton supprimer fichier. Le code que je recherche pourrait reconnaitre le fichier sur lequel j'ai cliqué dans le listbox et l'effacer dans la feuille Excel.

Mon liste box est lié à une feuille Excel ou les noms de fichiers sont enregistrés

Private Sub BoutonAjoutFichiers_Click()
Dim fichiers As String
FormulaireBackup.CommonDialog1.CancelError = True
On Error GoTo Annulé
FormulaireBackup.CommonDialog1.ShowOpen
fichiers = FormulaireBackup.CommonDialog1.Filename
Worksheets("ListeFichiers").Cells(Range("NoligneFile").Value + 1, 1) = fichiers
BoxListeFichiers.RowSource = "ListeFichiers!A2:A" & Trim(Range("NoligneFile").Value + 1)
Range("NoligneFile").Value = Range("NoligneFile").Value + 1
Annulé:
Exit Sub


End Sub


Merci à l'avance 😉

 

[Hulk]

Re : Aide pour formulaire et listbox

Bonjour,

Merci.

Au revoir.

Cdt, Hulk.

 

[Compte Supprimé 979]

Re : Aide pour formulaire et listbox

Bonjour Hulk 😀
Surtout, surtout, ne te fachhheeee paaasss, j'aurais peru des dégats 😛

De tout coeur avec toi 😉

Mr GT
Bonjour,
Merci.
Au revoir.

 

[Mr GT]

Re : Aide pour formulaire et listbox

Bonjour Hulk 😀
Surtout, surtout, ne te fachhheeee paaasss, j'aurais peru des dégats 😛

De tout coeur avec toi 😉

Mr GT
Bonjour,
Merci.
Au revoir.

Bonjour,

Vous avez parfaitement raison pour les marques de politesses. J'ai posté ce message tard hier soir, et je crois que j'y suis allé un peu rapidement. J'étais complètement dépassé et je ne trouvais pas la solution à mon problème.

J'ai corrigé la situation, c'est mieux de cette façon! 😀


Merci encore!

 

[Mr GT]

Re : Aide pour formulaire et listbox

J'ai trouvé par moi même.

Merci quand même! 🙂

Si ca peut aider quelqu'un

Private Sub BoutonEnleveFichier_Click()
Dim sEffacerFichier As String
Dim R As Range
Dim FindAddress As String

On Error GoTo ChoisirFichier 'Erreur si un utilisateur ne choisit pas de fichier.

sEffacerFichier = BoxListeFichiers.Value

With Worksheets("ListeFichiers").Range("A1:A1048576") 'Spécifie la plage où chercher
Set R = .Find(sEffacerFichier) 'Cherche la première occurence
If Not R Is Nothing Then 'Si une correspondence est trouvé alors
FindAddress = R.Row 'Mettre dans une variable l'adresse de la cellule ou l'occurence est trouvé
Rows(FindAddress).Select
Selection.Delete Shift:=xlUp
End If
End With

Set R = Nothing 'Effacer la mémoire
Range("NoligneFile").Value = Range("NoligneFile").Value - 1
Exit Sub

ChoisirFichier:
MsgBox "SVP, sélectionner un fichier.", vbOKOnly 'Oblige l'utilisateur à spécifier un fichier

End Sub