Erreur de compilattion

Question

J'ai écris lecode du bouton modifier, mais il me marque erreur de compilation (Bloc If sans End If) Pouvez-vous me dire ou se trouve la faute Merci pour votre aide Lucky...

Andre13 · Accepted Answer

Re,

regarde si cela te convient:

'Pour le bouton modifier'
Private Sub btn_modifier_Click()
    Dim no_ligne As Integer
    Sheets("Sources").Select
    no_ligne = ComboBox1.ListIndex + 2
 If ComboBox1.Value = "" Then
       MsgBox " Combo vide !"           ' message d'alerte
          Exit Sub                       ' on sort de la procédure
  On Error Resume Next
  ElseIf MsgBox("Confirmez-vous la modification de cette personne ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
    Cells(no_ligne, 1) = txt_n°.Value
    Cells(no_ligne, 2) = cb_nom.Value
    Cells(no_ligne, 3) = txt_naissance.Value
    Cells(no_ligne, 4) = txt_décès.Value
    Cells(no_ligne, 5) = cb_nom_conjoint.Value
    Cells(no_ligne, 6) = cb_nom.Value
    Cells(no_ligne, 7) = cb_mère.Value
    MsgBox " Opération effectuée avec succès "
End If
End Sub

galopin01 · Answer

Il y a deux If... et un seul End If A+...