Supprimer une ligne avec un bouton
Fermé
SOSO
-
25 janv. 2017 à 10:32
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 7 févr. 2017 à 18:43
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 7 févr. 2017 à 18:43
A voir également:
- Supprimer une ligne avec un bouton
- Supprimer compte instagram - Guide
- Supprimer une page word - Guide
- Supprimer compte facebook - Guide
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Apparaitre hors ligne whatsapp - Guide
2 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
25 janv. 2017 à 15:23
25 janv. 2017 à 15:23
Bonjour,
Pourquoi compliquer ?
Avec cette macro dans le code de la feuille et un double clic sur la ligne à supprimer, cela fonctionne.
Pourquoi compliquer ?
Avec cette macro dans le code de la feuille et un double clic sur la ligne à supprimer, cela fonctionne.
Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
If vbYes = MsgBox("Voulez-vous supprimer " & sel.Value, vbYesNo, "Suppression matricule") Then
Rows(sel.Row).Delete
End If
End Sub
Private Sub CommandButton1_Click()
result= MsgBox("Saisissez le matricule à supprimer", ,"Suppression matricule")
If rep = "" Then Exit Sub
Set cel = ActiveSheet.Columns(1).Find(rep, [A1], xlValues, xlWhole)
If cel Is Nothing Then
MsgBox "Matricule absent"
Else
Rows(cel.Row).Delete
MsgBox "Matricule supprimé : " & rep
End If
'on peut passer par la fonction find
Sub exemple()
'Activation de la feuille 1
Sheets("Feuil1").Activate
'Sélection de la cellule A8
'Range("A8").Select
Cells.Find(What:="result", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub
Ce ne sont juste que des pistes
result= MsgBox("Saisissez le matricule à supprimer", ,"Suppression matricule")
If rep = "" Then Exit Sub
Set cel = ActiveSheet.Columns(1).Find(rep, [A1], xlValues, xlWhole)
If cel Is Nothing Then
MsgBox "Matricule absent"
Else
Rows(cel.Row).Delete
MsgBox "Matricule supprimé : " & rep
End If
'on peut passer par la fonction find
Sub exemple()
'Activation de la feuille 1
Sheets("Feuil1").Activate
'Sélection de la cellule A8
'Range("A8").Select
Cells.Find(What:="result", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub
Ce ne sont juste que des pistes
27 janv. 2017 à 09:16
Merci pour votre réponse, effectivement ca pourrait marcher comme ca. Le soucis c'est que pour l'usage prévu de ce fichier il serait plus simple de procéder avec un bouton.
Ou bien alors peut être une case où on saisirait le matricule et ensuite un bouton supprimer ?
27 janv. 2017 à 19:01
Si tu tiens à compliquer, tu crées un bouton avec ce code :
Private Sub CommandButton1_Click() Dim rep As Variant, cel As Range rep = InputBox("Saisissez le matricule à supprimer", "Suppression matricule") If rep = "" Then Exit Sub Set cel = ActiveSheet.Columns(1).Find(rep, [A1], xlValues, xlWhole) If cel Is Nothing Then MsgBox "Matricule absent" Else Rows(cel.Row).Delete MsgBox "Matricule supprimé : " & rep End If End Sub7 févr. 2017 à 14:45
Ca a marché nickel, juste ce que je voulais, merci beaucoup
7 févr. 2017 à 15:59
7 févr. 2017 à 18:43
tu remplaces par