Discussion :

[1357VBA]

Bonjour et merci d'avance pour votre aide (je me suis mis au VBA il y a une semaine)



Je voudrais qu'après qu'une valeur ait été préalablement sélectionnée dans le ComboBox et pour le cas où le bouton Supprimer est cliqué, toutes les valeurs qui sont affichées dans les Labels soient supprimées. Pour cela je voudrais que la ligne entière de la plage nommée soit supprimée mais ne sais pas comment m'y prendre.

Ci-dessous mon code :

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
28
29
30
 
Private Sub BtnSupprIntervenant_Click()
Dim Plage As Range
 
 With Liste_Intervenants
       '
  End With
End Sub
 
Private Sub Liste_Intervenants_Change()
  With Liste_Intervenants
    Prenom_Intervenant.Caption = .Column(1, .ListIndex)
    TxH.Caption = .Column(2, .ListIndex)
    TxJ.Caption = .Column(3, .ListIndex)
    Fonction.Caption = .Column(4, .ListIndex)
    eMail.Caption = .Column(5, .ListIndex)
    Tel.Caption = .Column(6, .ListIndex)
    TboNomActualiser.Value = .Column(0, .ListIndex)
    TboPrenomActualiser.Value = .Column(1, .ListIndex)
    TboTxHActualiser.Value = .Column(2, .ListIndex)
    TboTxJActualiser.Value = .Column(3, .ListIndex)
    TboRoleActualiser.Value = .Column(4, .ListIndex)
    TboEmailActualiser.Value = .Column(5, .ListIndex)
    TboTelActualiser.Value = .Column(6, .ListIndex)
  End With
End Sub
 
Private Sub UserForm_Initialize()
  Liste_Intervenants.RowSource = "=Plage"
End Sub

Par avance merci
Eric