Supprimer ligne ComboBox 1 a l'aide de CommandButton1_Click
Résolu
dalton70
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
dalton70 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
dalton70 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis en train de travailler sur un fichier de gestion congés dans une équipe de 34 personnes, et je bloque sur un code VBA:
Feuil1: j'ai une colonne noms/prénoms qui commence en A6.
j'ai un UserForm1 que j'ouvre depuis un bouton en Feuil1.
Mon UserForm1 est constituer d'un ComboBox1 et d'un bouton de validation.
Mon ComoBox1 est alimenter de ma colonne A
Et je souhaite que lorsque je clique sur mon bouton de validation, que la ligne entière sélectionner a l'aide de mon Combobox1 soit supprimer.
j'ai ces code: Alimenter mon Combobox1:
Private Sub UserForm_Activate()
Dim I As Integer
'commence à partir de A6 pour éviter la ligne des titres
Set Plage = Range([A6], [A15].End(xlDown))
'rempli le combobox
For I = 1 To Plage.Count
ComboBox1.AddItem Plage(I)
Next I
End Sub
et CommandButton1_Click:
Private Sub CommandButton1_Click()
'active la cellule selectionner correspondent a la combobox1
Rows.[UserForm1.ComboBox1.ListIndex +1 & ":" & UserForm1.ComboBox1.ListIndex +1].Select
If MsgBox("Etes vous sûr de supprimer cette ligne?", vbYesNo) = vbYes Then
Rows(UserForm1.ComboBox1.ListIndex + 1).Delete
Unload Me
End Sub
et la... message d'erreur, grattage de crane, les gambes qui danses, etc... durant plusieurs heurs, j'ai creuser et creuser sur les forum, mais... je ne parviens pas a trouvé mon bug
je suis en train de travailler sur un fichier de gestion congés dans une équipe de 34 personnes, et je bloque sur un code VBA:
Feuil1: j'ai une colonne noms/prénoms qui commence en A6.
j'ai un UserForm1 que j'ouvre depuis un bouton en Feuil1.
Mon UserForm1 est constituer d'un ComboBox1 et d'un bouton de validation.
Mon ComoBox1 est alimenter de ma colonne A
Et je souhaite que lorsque je clique sur mon bouton de validation, que la ligne entière sélectionner a l'aide de mon Combobox1 soit supprimer.
j'ai ces code: Alimenter mon Combobox1:
Private Sub UserForm_Activate()
Dim I As Integer
'commence à partir de A6 pour éviter la ligne des titres
Set Plage = Range([A6], [A15].End(xlDown))
'rempli le combobox
For I = 1 To Plage.Count
ComboBox1.AddItem Plage(I)
Next I
End Sub
et CommandButton1_Click:
Private Sub CommandButton1_Click()
'active la cellule selectionner correspondent a la combobox1
Rows.[UserForm1.ComboBox1.ListIndex +1 & ":" & UserForm1.ComboBox1.ListIndex +1].Select
If MsgBox("Etes vous sûr de supprimer cette ligne?", vbYesNo) = vbYes Then
Rows(UserForm1.ComboBox1.ListIndex + 1).Delete
Unload Me
End Sub
et la... message d'erreur, grattage de crane, les gambes qui danses, etc... durant plusieurs heurs, j'ai creuser et creuser sur les forum, mais... je ne parviens pas a trouvé mon bug
A voir également:
- Supprimer ligne ComboBox 1 a l'aide de CommandButton1_Click
- Supprimer rond bleu whatsapp - Guide
- Partage de photos en ligne - Guide
- Impossible de supprimer une page word - Guide
- Fichier impossible à supprimer - Guide
- Aller à la ligne excel - Guide
1 réponse
Bonjour,
Essaie comme cela :
A+
Essaie comme cela :
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Range("A6", Range("A6").End(xlDown)).Value
End Sub
Private Sub CommandButton1_Click()
Dim Ligne As Long
Ligne = Me.ComboBox1.ListIndex + 6
If MsgBox("Etes vous sûr de vouloir supprimer " & Range("A" & Ligne).Value & " ?", vbYesNo) = vbYes Then _
Rows(Ligne).Delete
Unload Me
End Sub
A+
dalton70
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
C'est parfait, merci beaucoup!!!