Discussion :

[dec3003]

Bonjour a tous et merci pour vos intervention eventuelles
comme le dit le titre dans mon petit programme de compta lorsque j'uttilise un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

commandbutton_click()

le programme s arrete et j ai l erreur sub non definie qui s'affiche je ne comprend pas pour quoi on me demande la definir alors que j ai les meme code sur mon autre programme compta test qui me sert de test pour mes commande vba

enfin voici mon code et explication

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub UserForm_initialize() 'initialisation user form
 
CB_Type.RowSource = "Feuil1!F1:F33" 'initialisation liste deroulante combobox alias CB_Type
CB_jour.RowSource = "Feuil1!D1:D31" 'initialisation liste deroulante combobox alias CB_jour
CB_Mois.RowSource = "Feuil1!A1:A12" 'initialisation liste deroulante combobox alias CB_Mois
CB_Année.RowSource = "Feuil1!B1:B72" 'initialisation liste deroulante combobox alias CB_Année
 
End Sub
 
 
Private Sub CMBAjouter_Click() 'action quand clic sur CommandeButton alias CMB_Ajouter
 
 Dim Classeur As String 'introduction variable classeur comme chaine de caractere
 Dim Ligne As Double 'introduction variable ligne comme nombre entier double
 
 If CB_Type.Text <> "" And CB_jour.Text <> "" And CB_Mois <> "" And CB_Année.Text <> "" And TB_Montant <> "" Then 'introduction condition pour ajouter frais ou entrée via commandbutton ajouter
 
    Select Case CB_Type.Text 'Selection Text dans combobox type
    End Select
 
    Classeur = CB_Type.Text 'donne la valeur de la combobox type a la variable classeur
    Ligne = Worksheets(Classeur).Range("A1").CurrentRegion.Rows.Count 'compte le nombre de case pleine
 
    Worksheets(Classeur).Cells(Ligne + 1, 1) = "Le" & CB_jour.Text & "" & CB_Mois.Text & "" & CB_Année.Text 'ajoute la date a la premiere case vide du classeur du nom CB_Type
    Worksheets(Classeur).Cells(Ligne + 1, 2) = TB_Montant.Text 'ajoute le montant a la 2eme case vide du classeur du nom CB_Type
 
    worsheets(Classeur).Cells(Ligne + 1, 3) = TB_Description.Text 'ajoute la description a la 2eme case vide du classeur du nom CB_Type
 
 Else
 MsgBox "Veuillez completer les rubrique Type , Date et Montant"
 
 End If
 
End Sub

je ne vois rien de problematique dans la synthaxe je ne comprend pas poruquoi j ai une erreur



ps pour ceux qui sont interressé je join le fichier au format 97-03 pourqu'il puisse en juger par eux meme

merci d'avance Cédric