Dans le code suivant le programme s'arrête au moment où je demande
d'inscrire les valeurs d'un Userform dans un tableau Excel. Je voulais qu'en
fonction de la valeur d'un Combo il enregistre dans la feuille "CCP" ou
"Caisse d'épargne" ou dans la feuille "BNP". Ce Userforme contient un
ComboBox qui me permet de choisir ma banque ; un TxtBox (date) ; un TxtBox
(somme) ; un TxtBox "catégorie de dépense"
Private Sub BoutonValider_Click()
If ComboBanque.Value = "CCP" Then
Sheets("CCP").Activate
Nligne = Sheets("CCP").Range("A65536").End(xlUp).Row + 1
End If
If ComboBanque.Value = "Caisse Épargne" Then
Sheets("Caisse épargne").Activate
Nligne = Sheets("Caisse épargne").Range("A65536").End(xlUp).Row + 1
End If
If ComboBanque.Value = "BNP" Then
Sheets("BNP").Activate
Nligne = Sheets("BNP").Range("A65536").End(xlUp).Row + 1
End If
'le code a été fourni par Missange - il bloque à la ligne suivante
Range("A" & Nligne).Value = TxtboxDate.Value
Range("C" & Nligne).Value = TxtBoxSomme.Value
Range("D" & Nligne).Value = Combocategorie.Value
Range("E" & Nligne).Value = TxtBoxCommentaires.Value
