Explication sur un problème VBA

bonjour,

problème résolu avec beaucoup de recherche de ma part et grace à votre silence.

merci

Bonsoir,

Ton code pourrait, peut-être, être simplifié ainsi :

Private Sub CommandButton1_Click()
Dim LeMois As Byte
If Me.ListBox1.Value = "" Then Exit Sub
With Worksheets("graphiquetravail")
    LeMois = Month("01/" & Me.ListBox1.Value & "/" & Year(Date)) + 3
    .Cells(19, 3) = txtan.Text
    .Cells(LeMois, 2) = txtnb.Text: txtnb.Text = ""
    .Cells(LeMois, 3) = txtco.Text: txtco.Text = ""
    .Cells(LeMois, 4) = txtat.Text: txtat.Text = ""
    .Cells(LeMois, 5) = txttr.Text: txttr.Text = ""
    .Cells(LeMois, 6) = txtamp.Text: txtamp.Text = ""
    .Cells(LeMois, 7) = txthn.Text: txthn.Text = ""
    .Cells(LeMois, 8) = txtton.Text: txtton.Text = ""
    .Cells(LeMois, 9) = txtcons.Text: txtcons.Text = ""
    .Cells(LeMois, 10) = txtfr.Text: txtfr.Text = ""
    .Cells(LeMois, 11) = txtkm.Text: txtkm.Text = ""
End With
txtan.SetFocus
Unload Me
End Sub

Bonne soirée (et essaie de garder ta rancœur pour toi....)

bonjour, cousinhub,

je n'ai aucune rencoeur avec qui que se soit,

c'est vrai que je suis quelqu'un d'impatient quand je pose une question mais cela m'oblige à ne pas rester les deux pieds dans le même sabot,

du coup d'essai toujours de trouver la solution à mon problème tout seul.

Mais quand je bloque et que je ne trouve pas dans le forum une solution pour mon problème,

je fais appel à vous tous, en espérant avoir une solution rapide et avec une explication clair pour bien comprendre mes erreurs et ne plus les recommencer.

je suis novice dans l'informatique, et je n'ai que les week end pour avoir internet du coup je suis impatient de vos réponses les amis,

afin que je puisse finir mon programme et l'utiliser rapidement.

j'adore ce forum car il est très réactif pour preuve j'ai laisser un problème hier apès midi et la réponse à été trés rapide.

merci à tous et désolé si mon phraser à put blésser quelqu'un .