Re : Texte non accepté
Bonjour au forum
tout d'abord merci pour l'ensemble de vos réponses. La mienne est un peu tardive face à votre réactivité car j'ai souhaité bien comprendre l'ensemble de vos codes avant d'y répondre.
a) Robert:
- TextBox1 = True va permettre par la suite de tester si dans Textbox1 l'utilisateur a documenté du texte. Si il n'y a rien il y aura un message d'erreur.Pour lemoment elle ne sert à rien
- Ton code ne fonctionne pas. J'ai mis la solution en fin de poste.
b) bebere : Quelle variable ligne = 0 ?
c) Bynabik
Commencant en Vba je ne maîtrise pas encore l'intégralité des commandes. Pour palier à ce manque de connaissances je me sers d'autres languages que j'ai appris et j'ai réalisé une incrémentation de lignes par la variable ligne.
J'initialise mon programme en lui disant tu vas dans la cellule B4 donc ligne = 4 et si tu commences à documenter une ligne donc <>"" alors tu fais ligne=ligne + 1 donc ligne devient ligne =4+1 et cells(4+1,2) et ainsi de suite.
Donc le but de la variable ligne est de servir à incrémenter la ligne de la colonne B.
En conclusion il y a un point important dans le module, il faut déclarer la variable ligne de cette manière:
Public ligne As Integer sinon le programme ne fonctionne pas.
Ensuite et me servant de ce que vous m'avez apporté je vous propose le code suivant:
Private Sub CommandButton1_Click()
If ligne < 4 Then ligne = 4
If Cells(ligne, 2) <> "" Then
ligne = ligne + 1
End If
Cells(ligne, 2).Value = TextBox1 & " "
Sheets("STOCKAGE").Cells(ligne, 2).Value = Val(Range("c13"))
Sheets("STOCKAGE").Cells(ligne, 3).Value = "E"
End Sub
Merci encore pour tout.
Je souheterais pas la suite faire appel à une autre userform pour modifier les datas rentrés ou les effacer. Avez-vous des exemples ou des liens ou je peux
me plonger dans les codes ?
Bonne journée Ludovic