Bonjour à tous,
Je n'arrive pas à sortir de ma msgbox sans bug sur la ligne numligne, qui passe bien si on rentre un chiffre:
Dim numligne As Integer
Dim fin_BD As Integer
numligne = InputBox("l'insertion d'une ligne sert à imputer 2 types de dépense à un paiement CB." & Chr(10) & "Vous pouvez modifier les 2 montants directement " & Chr(10) & Chr(10) & " Aprés quelle ligne CB (col.N°) " & Chr(10) & "voulez-vous insérer une ligne ?")
If numligne = "" Then
'If IsEmpty(numligne) Then
Exit Sub
End If
merci
Fronck