bonsoir le forum,
lors du transfert de données, récuperés dans des textbox, pour renseigné un autre classeur, j'utilise le code suivant :
If IsDate(TextBox41) Then
j = Wb.Sheets(Month(TextBox41)).Range('B65536').End(xlUp).Row + 1
With Wb.Sheets(Month(TextBox41)) 'transfert les donnees dans la feuille
.Range('B' & j) = TextBox40.Value
.Range('C' & j) = Format(TextBox41, 'MM/DD/YYYY')
.Range('D' & j) = TextBox42.Value
.Range('F' & j) = TextBox43.Value
.Range('G' & j) = TextBox44.Value
.Range('E' & j) = TextBox45.Value
.Range('H' & j) = Format(TextBox46, 'MM/DD/YYYY')
End With
End If
Le probleme est sur la textbox44 qui contient un prix.
meme si mon format de cellule de destination est parametré en nombre, lors du transfert la cellule de destination perd ses caracteristiques initiales ! et comme je me sert de ces données pour faire du calcul derriere .... ça ne marche pas.
une ame charitable à t'elle la solution ?
merci et @+
lors du transfert de données, récuperés dans des textbox, pour renseigné un autre classeur, j'utilise le code suivant :
If IsDate(TextBox41) Then
j = Wb.Sheets(Month(TextBox41)).Range('B65536').End(xlUp).Row + 1
With Wb.Sheets(Month(TextBox41)) 'transfert les donnees dans la feuille
.Range('B' & j) = TextBox40.Value
.Range('C' & j) = Format(TextBox41, 'MM/DD/YYYY')
.Range('D' & j) = TextBox42.Value
.Range('F' & j) = TextBox43.Value
.Range('G' & j) = TextBox44.Value
.Range('E' & j) = TextBox45.Value
.Range('H' & j) = Format(TextBox46, 'MM/DD/YYYY')
End With
End If
Le probleme est sur la textbox44 qui contient un prix.
meme si mon format de cellule de destination est parametré en nombre, lors du transfert la cellule de destination perd ses caracteristiques initiales ! et comme je me sert de ces données pour faire du calcul derriere .... ça ne marche pas.
une ame charitable à t'elle la solution ?
merci et @+