Range non définit

Bonjour à toutes et tous,

J'ai un programme qui fonctionne bien, et en voulant l'adapter pour un autre fichier,

J'ai un code qui ne fonctionne plus

voilà le code en question qui me permet de supprimer les données d'une ligne

de la colonne B à G

Private Sub CmbSupprimer_Click()

Dim Ligne As Long

 If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Veuillez choisir un contact"

  Else
    If MsgBox("Voulez-vous supprimer ce contact ?", vbCritical + vbYesNo + vbDefaultButton2, _
            "Opération irréversible") <> vbYes Then Exit Sub
              MsgBox "Cette action est irréversible"
               Range("B" & Ligne).Resize(1, 7).ClearContents      'Effacer colonnes B à G
   Ws.Rows(Me.ListBox1.List(Me.ListBox1.ListIndex, 4)).Delete
    Unload Me
  End If

End Sub

Je joins également le fichier pour tester

Je dois m'absenter pour une séances de chimiothérapie, je reviens cet après-midi.

Merci de bien vouloir m'aider encore une fois

Amicalement

Pierrot

Bonjour,

proposition de correction, j'ai mis en commentaire le code qu'il te faudrait mettre si tu avais un vrai numéro permanent et non une formule pour déterminer le numéro de patient.

Private Sub CmbSupprimer_Click()

Dim ligne, nr

 If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Veuillez choisir un contact"

  Else
    If MsgBox("Voulez-vous supprimer ce contact ?", vbCritical + vbYesNo + vbDefaultButton2, _
            "Opération irréversible") <> vbYes Then Exit Sub
              MsgBox "Cette action est irréversible"
              nr = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
              'Set ligne = Columns("A:A").Find(nr, lookat:=xlWhole, LookIn:=xlValues)
              'nr = ligne.Row
              nr=nr+2 'à supprimer si activation vrai numéro permanent
              Rows(nr).Delete shift:=xlUp
              Cells(nr, 1).FormulaR1C1 = Cells(nr - 1, 1).FormulaR1C1 ' à supprimer si vrai numéro permanent
    Unload Me
  End If

End Sub

Bonjour h2so4,

Je viens de rentrer de ma séance de chimio et je vois ta solution qui me donne entière satisfaction.

Un grand merci pour ton aide, je pense même que ce n'est pas la première fois que tu viens à mon secours.

Un grand merci pour ta réponse et bonne fin de journée à toi

Amitiés

Pierrot

Rebonjour,

j'ai répondu un peu vite, excuses-moi

le N° permanent varie en fonction des entrées et des suppressions, en fait, il ne donne que le nombre d'inscrits.

Bonne fin de journée et encore merci

Amitiés

Pierrot

Rechercher des sujets similaires à "range definit"