Bonsoir,
une cellule vide sous Excel est considérée comme vide par défaut, le simple fait d'y mettre une valeur puis de l'effacer fait qu'elle n'est plus vide mais égale à rien...
Votre modifié, cela semble fonctionner puisqu'au lieu d'effacer en ne mettant rien (= à rien ="") on la vide = Empty
Private Sub b_valid_Click() 'bouton modif
If Me.Enreg <> "" And Me.TextBox1 <> "" Then
NoEnreg = Me.Enreg
For k = 4 To Ncol 'k = decalage de colone
x = Replace(Me("textBox" & k), " ", "")
If IsNumeric(x) Then
f.Cells(NoEnreg, k) = Val(x)
Else
If Me("textbox" & k) <> "" Then
f.Cells(NoEnreg, k) = Me("textBox" & k)
Else
f.Cells(NoEnreg, k) = Empty
End If
End If
Next k
End If
End Sub
@ voir si cela est bon
@ bientôt
LouReeD