Inputbox qui ne fonctionne pas

Bonjour et Merci,

dans le classeur suivant, j'ai fait un inputbox qui permet de supprimer une inscription d'une BDD mais si je fais OK, ANNULER ou "X" sans entrer de valeur alors il supprime des lignes ce qui détruit la mise en page...avez vous une idée de ce qui ne fonctionne pas dans mon code?

Merci de votre aide

Julie Rose

Bonsoir

Modifier la macro

Sub OUVRE_SUPPRIMER()

Dim i As Long
Dim SUPPRIME_INSCRIPTION As String

SUPPRIME_INSCRIPTION = InputBox("VEUILLEZ INDIQUER LE NUMÉRO D'INSCRIPTION A SUPPRIMER")

    With ThisWorkbook.Sheets("BDD")
    For i = .Range("A" & .Rows.Count).End(xlUp).Row To 3 Step -1
    If .Range("A" & i).Value = SUPPRIME_INSCRIPTION Then

    Rows(i).Delete

    End If

  Next i

End With

End Sub

For i = .Range("A" & .Rows.Count).End(xlUp).Row To 3 Step -1   'a l'origine vous avez mis .Row To 2 Step-1 

Merci beaucoup de votre mais malheureusement le problème persiste

cordialement

Bonsoir le fil,

Comme pour moi, un numéro d'inscription est unique
inutile de parcourir toutes les lignes, ni commencer par la fin

Il suffit de trouver le numéro concerné et de supprimer la ligne

Sub OUVRE_SUPPRIMER()
  Dim CelF As Range
  Dim NumInsc As Integer

  NumInsc = Application.InputBox("Veuillez saisir le numéro à supprimer SVP", "NUMERO d'INSCRIPTION", Type:=1)
  ' Si bouton annuler
  If NumInsc = 0 Then Exit Sub
  ' Sinon
  With ThisWorkbook.Sheets("BDD")
    Set CelF = .Range("A:A").Find(What:=NumInsc, LookIn:=xlValues, LookAt:=xlWhole, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
    ' Si inscription trouvée
    If Not CelF Is Nothing Then
      Rows(CelF.Row).Delete
    End If
  End With
End Sub

Le fichier

A+

Bravo c'est parfait...merci beaucoup de votre aide

salutations

JRD