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

[mjpmjp]

bonjour,
normalement , listindex correspond (voir si décalage 1 ligne) à la ligne de ta plage

vérifier avec un sélect
pour la suppression , voir l'enregistreur de macros , click droit sur ligne à supprimer , supprimer ligne tableau

travaille sur une copie !!!

@+JP

[1357VBA]

bonjour,
normalement , listindex correspond (voir si décalage 1 ligne) à la ligne de ta plage

vérifier avec un sélect
pour la suppression , voir l'enregistreur de macros , click droit sur ligne à supprimer , supprimer ligne tableau

travaille sur une copie !!!

@+JP

Merci, je m'y remets, je commençais à me faire des noeuds au cerveau, je n'avais pas pensé à lancer l'enregistreur de macros

[1357VBA]

bonjour,
normalement , listindex correspond (voir si décalage 1 ligne) à la ligne de ta plage

vérifier avec un sélect
pour la suppression , voir l'enregistreur de macros , click droit sur ligne à supprimer , supprimer ligne tableau

travaille sur une copie !!!

@+JP

Il y a bien un décalage de 1 sur l'indice aussi bien sur le tableau que sur la plage. Merci de m'avoir mis sur la piste, je devenais chèvre.

Eric

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub BtnSupprIntervenant_Click()
 With Liste_Intervenants
       'Application.Goto Reference:="TableauIntervenants"
       'Selection.ListObject.ListRows(.ListIndex + 1).Delete
       Application.Goto Reference:="Plage"
       Selection.ListObject.ListRows(.ListIndex + 1).Delete
  End With
End Sub