Re : lancement boite de dialogue puis renvoi des données dans cellules
bonjour boudu le forum as tu essaye de rajoute val ou CDbl ???
Private Sub CommandButton1_Click()
Sheets(ActiveSheet.Name).Unprotect Password:="toto"
i = 1
For Each s In Array([c4], [c5], [c12], [c13], [i7], [c8])
s.Value = CDbl(Controls("Textbox" & (i)).Value)
i = i + 1
Next s: Beep
Sheets(ActiveSheet.Name).Protect Password:="toto"
End Sub
SALUTATIONS
attention val ne reconnait que le point comme separateur