Suppression ligne d'une feuille non active à l'ouverture

[Résolu/Fermé]
Signaler
-
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
-
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.

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


1 réponse

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 506
Bonjour,

dès que l'utilisateur saisit le numéro de la ligne, l'enregistrement puisse êre supprime

En fait tu ne demandes pas le numéro de la ligne mais apparemment la valeur de la colonne A avec "Suppression" en format String.

Si tu saisis une valeur existante en colonne A elle est bien supprimée.