XL 2010 suppression de données en listbox

K

KRUG WOO

XLDnaute Nouveau
Bonjour les amis,
J'ai crée un userform et y afficher des données dans listbox, mais j'arrive pas à supprimer ces données quand j'utilise le bouton "Supprimer". C'est que je souhaite c'est d'ouvrir mon UserForm "Suivi des horaires salaries" selectionner une ligne de mon choix et clic sur bouton "Supprimer" pour supprimer la ligne. Voila! C'est souhait si vous trouverez le truc.
Merci les amis,
Woo22
 

Pièces jointes

  • Vba débutant saisie userform1.xlsm
    30.2 KB · Affichages: 5
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
j'ai du mal à comprendre pourquoi en mettant un tableau structuré tu travaille encore comme un range classique
pourquoi on se retrouve avec un tableaux structuré avec une 15 aines de lignes vides

inscrit en Aout 2016, on est en 2023,tu devrais avoir au moins les bases au sujet des tableaux structurés

bref c'etait tellement désordoné et incohérent que j'ai fait un CTRL+A puis touche suppr dans le module du userform
bref j'ai tout viré

pour y mettre ceci
VB: 
'edit All code by patricktoulon

Private Sub BtmAnnuler_Click()
    Raz
End Sub

Sub reliste()
    ComboMatricule.List = Range("SuiviHoraire[Référence]").Value
    ListBox1.List = Range("SuiviHoraire").Value
End Sub

Sub Raz()
    TextReference = ""
    TextDepartement = ""
    TextHA = ""
    TextHD = ""
    TextNom = ""
    TextPrenom = ""
    reliste
End Sub

'Procédure permettant de fermer le formulare.
Private Sub BtnFermer_Click()
    Unload Me
End Sub

Private Sub BtnSupprimer_Click()
    With ListBox1
        rep = MsgBox("êtes vous ur de vouloir supprimer :" & .List(.ListIndex, 1) & " " & .List(ListIndex, 2), vbYesNo)
        If rep = vbYes Then
            Range("SuiviHoraire").ListObject.ListRows(.ListIndex + 1).Delete
        End If
    End With
    TextReference = ""
    TextDepartement = ""
    TextHA = ""
    TextHD = ""
    TextNom = ""
    TextPrenom = ""
    ComboMatricule = ""
    reliste
End Sub

Private Sub BtnValider_Click()
    With Range("SuiviHoraire").ListObject.ListRows.Add.Range
        .Value = Array(TextReference, TextNom, TextPrenom, TextDepartement, CDate(TextDate), TextHA, TextHD)
    End With
    Me.TextReference = ""
    Me.TextDepartement = ""
    Me.TextHA = ""
    Me.TextHD = ""
    Me.TextNom = ""
    Me.TextPrenom = ""
    Me.ComboMatricule = ""
End Sub

Private Sub ComboMatricule_Change()
    Dim Lig As Long
    If ActiveControl.Name <> "ComboMatricule" Then Exit Sub
    With ComboMatricule
        Lig = .ListIndex
        If Lig > -1 Then
            TextNom = Range("SuiviHoraire[Nom]").Cells(Lig + 1)
            TextPrenom = Range("SuiviHoraire[Prenom]").Cells(Lig + 1)
            TextDepartement = Range("SuiviHoraire[Département]").Cells(Lig + 1)
            TextDate = Range("SuiviHoraire[Date]").Cells(Lig + 1)
            TextHA = Range("SuiviHoraire[Heure Arrivée]").Cells(Lig + 1)
            TextHD = Range("SuiviHoraire[Heure Départ]").Cells(Lig + 1)
            ListBox1.ListIndex = ComboMatricule.ListIndex
        Else
            ListBox1.ListIndex = -1
            Raz
        End If
    End With
End Sub

Private Sub UserForm_Activate()
    reliste
End Sub
 

Pièces jointes

  • Vba débutant saisie userform1.xlsm
    30.8 KB · Affichages: 4
Vote positif 0 Vote négatif
K

KRUG WOO

XLDnaute Nouveau
patricktoulon à dit:
Bonjour
j'ai du mal à comprendre pourquoi en mettant un tableau structuré tu travaille encore comme un range classique
pourquoi on se retrouve avec un tableaux structuré avec une 15 aines de lignes vides

inscrit en Aout 2016, on est en 2023,tu devrais avoir au moins les bases au sujet des tableaux structurés

bref c'etait tellement désordoné et incohérent que j'ai fait un CTRL+A puis touche suppr dans le module du userform
bref j'ai tout viré

pour y mettre ceci
VB: 
'edit All code by patricktoulon

Private Sub BtmAnnuler_Click()
    Raz
End Sub

Sub reliste()
    ComboMatricule.List = Range("SuiviHoraire[Référence]").Value
    ListBox1.List = Range("SuiviHoraire").Value
End Sub

Sub Raz()
    TextReference = ""
    TextDepartement = ""
    TextHA = ""
    TextHD = ""
    TextNom = ""
    TextPrenom = ""
    reliste
End Sub

'Procédure permettant de fermer le formulare.
Private Sub BtnFermer_Click()
    Unload Me
End Sub

Private Sub BtnSupprimer_Click()
    With ListBox1
        rep = MsgBox("êtes vous ur de vouloir supprimer :" & .List(.ListIndex, 1) & " " & .List(ListIndex, 2), vbYesNo)
        If rep = vbYes Then
            Range("SuiviHoraire").ListObject.ListRows(.ListIndex + 1).Delete
        End If
    End With
    TextReference = ""
    TextDepartement = ""
    TextHA = ""
    TextHD = ""
    TextNom = ""
    TextPrenom = ""
    ComboMatricule = ""
    reliste
End Sub

Private Sub BtnValider_Click()
    With Range("SuiviHoraire").ListObject.ListRows.Add.Range
        .Value = Array(TextReference, TextNom, TextPrenom, TextDepartement, CDate(TextDate), TextHA, TextHD)
    End With
    Me.TextReference = ""
    Me.TextDepartement = ""
    Me.TextHA = ""
    Me.TextHD = ""
    Me.TextNom = ""
    Me.TextPrenom = ""
    Me.ComboMatricule = ""
End Sub

Private Sub ComboMatricule_Change()
    Dim Lig As Long
    If ActiveControl.Name <> "ComboMatricule" Then Exit Sub
    With ComboMatricule
        Lig = .ListIndex
        If Lig > -1 Then
            TextNom = Range("SuiviHoraire[Nom]").Cells(Lig + 1)
            TextPrenom = Range("SuiviHoraire[Prenom]").Cells(Lig + 1)
            TextDepartement = Range("SuiviHoraire[Département]").Cells(Lig + 1)
            TextDate = Range("SuiviHoraire[Date]").Cells(Lig + 1)
            TextHA = Range("SuiviHoraire[Heure Arrivée]").Cells(Lig + 1)
            TextHD = Range("SuiviHoraire[Heure Départ]").Cells(Lig + 1)
            ListBox1.ListIndex = ComboMatricule.ListIndex
        Else
            ListBox1.ListIndex = -1
            Raz
        End If
    End With
End Sub

Private Sub UserForm_Activate()
    reliste
End Sub
Cliquez pour agrandir...
Bonsoir et merci Patricktoulon,
Oui c'est tellement désordonné, j'etais un peu perdu dans la structuration, mais merci pour le module ça marche, super!.
 
Vote positif 0 Vote négatif
K

KRUG WOO

XLDnaute Nouveau
BrunoM45 à dit:
Bonjour,

Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible) et écrit en minuscules
- Pas de titre du style "URGENT", "A L'AIDE",...
- Votre poste doit être rédigé simplement, en minuscules avec un minumum de formatages, pas de posts tout en gras par exemple.

Merci de respecter cet élément qui contribue à la lisibilité du forum.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne soirée
Cliquez pour agrandir...
Bonsoir,
Bien noté BrunoM45!
 
Vote positif 0 Vote négatif

Discussions similaires

L
  • Résolu(e)
XL 2016 listbox vers uderform
2
Réponses
18
Affichages
625
LJII
L
F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
561
franxy
F
Simbaa
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
267
Simbaa
Simbaa
M
  • Question
Microsoft 365 Code listbox
Réponses
4
Affichages
317
Marvin57
M
N
  • Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
314
Oneida
Oneida
misteryann
  • Question
XL 2016 Additionner et multiplier en VBA
Réponses
4
Affichages
481
misteryann
misteryann
S
  • Résolu(e)
Microsoft 365 Gestion flotte automobile, feuille 1 "accueil" gestion des infos, feuille 2 "tableau" pour consultation"
2
Réponses
15
Affichages
1 K
Phil69970
Phil69970
T
  • Question
Microsoft 365 Suppression Réunion Outlook suite à modification de date sur fichier Excel
Réponses
0
Affichages
261
troki74
T
M
  • Résolu(e)
Microsoft 365 Importer données
Réponses
2
Affichages
559
Marvin57
M
D
  • Question
Autres Modification après recherche dans listbox
Réponses
4
Affichages
543
DIAMANTVERT
D

Membres actuellement en ligne

15 membres et 113 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 207
Messages
2 086 232
Membres
103 161
dernier inscrit
Rogombe bryan