Range non définit Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 7 août 2015, 10:05

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
French Titi avec ListBox V001.xlsm
(53.86 Kio) Téléchargé 6 fois
Pierrot
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'151
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 7 août 2015, 14:09

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
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 7 août 2015, 14:18

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
Pierrot
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 7 août 2015, 14:34

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
Pierrot
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message