Re : erreur d exécution 70
re jecherche
merci pour ton denier code mais entre temps j ai trouver la solution
il fallait mettre
Private Sub CmdModifier_Click()
Dim cel As Range
' on enlève la protection de la feuille
ActiveSheet.Unprotect
'--- Transfert Formulaire dans Feuille active
With ActiveSheet
Set cel = Range("b" & ligne) 'ici on trouve la bonne ligne du tableau
If Not cel Is Nothing Then
cel.Offset(0, 0) = Format(Me.TxtJours, "00")
cel.Offset(0, 1) = Me.TxtCatégorie
cel.Offset(0, 2) = Me.TxtEtablissement
cel.Offset(0, 3) = Me.TxtQuiQuoi
cel.Offset(0, 4) = Me.TxtType
cel.Offset(0, 5) = Format(Me.TxtNChèque, "0")
cel.Offset(0, 6) = Format(Me.TxtCrédit, "0")
cel.Offset(0, 7) = Format(Me.TxtDébit, "0")
RAZ
End If
End With
End Sub
car avant ca me mettais la cellule en valeur texte et non en valeur nombre
un grand merci a tous pour votre aide
cordialement
Snoopy 07