Re : passer une cellule texte en nombre
Bonjour,
renvoie ton dernier fichiers en mettant un commentaire en face de tes modifications car je ne suis pas persuadé que nous parlions de la même chose
Private Sub CommandButton6_Click()
If résultat.TextBox1.Value = "" Then
MsgBox " Le champ SOCIETE est obligatoire . "
Exit Sub
Else
'modification
Dim réponse
réponse = MsgBox(" Etes vous sur de vouloir modifier cette fiche ? ", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then Exit Sub
ActiveCell.EntireRow.Select
ActiveCell.Value = résultat.TextBox1.Value
ActiveCell.Offset(0, 1).Value = résultat.TextBox10.Value
ActiveCell.Offset(0, 2).Value = "'" & résultat.TextBox2.Value
ActiveCell.Offset(0, 3).Value = "'" & résultat.TextBox3.Value
ActiveCell.Offset(0, 4).Value = résultat.TextBox4.Value
ActiveCell.Offset(0, 5).Value = résultat.TextBox9.Value '<========ligne a modifier
ActiveCell.Offset(0, 6).Value = résultat.TextBox11.Value
ActiveCell.Offset(0, 8).Value = résultat.TextBox6.Value
MsgBox " La fiche est modifiée . "
End If
End Sub
GIBI
PS : au fait j'espère que tu as viré "Private Sub Workbook_Open()" qui plante