Suppression ligne d'une feuille non active à l'ouverture
Résolu
Freddyfbb
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je dispose d'une feuille Acceuil avec plusieurs boutons. J'aimerai qu'en cliquant sur le bouton "Supprimer un enregistrement", la feuille "Détails" puisse s'affiche derrière l'Inputbox et dès que l'utilisateur saisit le numéro de la ligne, l'enregistrement puisse êre supprimer et la feuille "Détails" se ferme.
Avec mon code, seule la partie de la suppression de la ligne qui ne marche pas.
Je dispose d'une feuille Acceuil avec plusieurs boutons. J'aimerai qu'en cliquant sur le bouton "Supprimer un enregistrement", la feuille "Détails" puisse s'affiche derrière l'Inputbox et dès que l'utilisateur saisit le numéro de la ligne, l'enregistrement puisse êre supprimer et la feuille "Détails" se ferme.
Avec mon code, seule la partie de la suppression de la ligne qui ne marche pas.
Private Sub cmdSuppression_Click()
Dim i As Integer
Dim Suppression As String
With Worksheets("Détails")
Worksheets("Détails").Visible = True
Sheets("Détails").Activate
Suppression = InputBox("Veuillez entrer l'ID à supprimer", "Suppression d'enregistrement")
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & i).Value = Suppression Then
Rows(i).Delete
End If
Next i
End With
Worksheets("Détails").Visible = xlSheetVeryHidden
Sheets("Acceuil").Activate
End Sub
A voir également:
- Suppression ligne d'une feuille non active à l'ouverture
- Forcer suppression fichier - Guide
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Bruler une feuille de laurier - Guide
