Bonjour le Forum,
A l'aide d'un USF j'utilise le code suivant pour ajouter un nouveau nom à ma feuille liste.
La TextBox1 ce sont des chiffres, il arrive sur ma feuille liste au format Texte.
J'ai chercher mais pas trouver pour qu'il soit en numérique.
Que faut il que je rajoute pour le transformer.
Merci de votre aide et bonne journée au Forum.
Marcelio
Private Sub CommandButton1_Click()
trouvecolonne (ComboBox1.Value)
col = trouvecolonne(ComboBox1.Value)
DLig = Sheets("liste").Cells(65536, col).End(xlUp).Row + 1
Sheets("liste").Cells(DLig, col) = TextBox1
Sheets("liste").Cells(DLig, col + 1) = TextBox2
Sheets("liste").Cells(DLig, col + 2) = TextBox3
End Sub
A l'aide d'un USF j'utilise le code suivant pour ajouter un nouveau nom à ma feuille liste.
La TextBox1 ce sont des chiffres, il arrive sur ma feuille liste au format Texte.
J'ai chercher mais pas trouver pour qu'il soit en numérique.
Que faut il que je rajoute pour le transformer.
Merci de votre aide et bonne journée au Forum.
Marcelio
Private Sub CommandButton1_Click()
trouvecolonne (ComboBox1.Value)
col = trouvecolonne(ComboBox1.Value)
DLig = Sheets("liste").Cells(65536, col).End(xlUp).Row + 1
Sheets("liste").Cells(DLig, col) = TextBox1
Sheets("liste").Cells(DLig, col + 1) = TextBox2
Sheets("liste").Cells(DLig, col + 2) = TextBox3
End Sub