Formulaire compta

[Polosmus]

Bonjour!
Je cherche à "simplifier" le visuel d'un fichier de compta et j'ai donc entrepris d'y insérer des combobox etc...
Le but était d'entrer les données, de les visualiser et éventuellement d'en tirer quelques statistiques sans avoir à modifier manuellement les cellules mais plutôt en "jouant" avec les boxes et autres.
J'ai parcourus de nombreux posts et tutos mais certains problèmes demeurent...
J'aimerais extraire les valeurs saisies des différentes boxes vers un formulaire.
Après avoir sélectionné et introduit les valeurs, un bouton "valider" exporte tout ça dans les différentes colonnes.
Seul problème c'est que ces valeurs sont évidemment relatives entre elles mais ne sont pas retranscrites sur la même ligne et écrasent les précédentes! Pourriez-vous m'aider à ce sujet SVP?
J'ai utilisé cette commande mais je dois oublier quelque chose : 😕

Cells(Range("a65536").End(xlUp).Row + 1, 2) = TextBox1.Value

Merci d'avance!
PS : si d'autres questions me venaient (pour ce projet), pourrais-je continuer ce topic ou dois-je en créer d'autres?

 

[Isab]

Re : Formulaire compta

Bonjour

Dans l'exemple que tu donnes...

tu cherches la derniere ligne +1 dans colonne A et en même temps tu écris en colonne B !!!!

par ailleurs cette formule te trouve la dernière ligne de la colonne que tu cibles uniquement !!!!
------
utilise plutôt :

Lg= Cells.Find("*", , , , xlByRows, xlPrevious).Row +1
utilise ensuite la variable Lg dans tes formules
cells(Lg, 2)...



bon codage

 

[Polosmus]

Re : Formulaire compta

Merci beaucoup pour cette réponse rapide!
Et oui je suis encore débutant... 😱 Mais j'apprends vite! 😀
Je vais essayer ça de suite!

 

[Polosmus]

Re : Formulaire compta

Si je veux faire ça pour 12 feuilles (mois) est-ce que je dois absolument faire comme ça?

If ComboBox6.Value = "Janvier" Then
        Sheets("JANVIER").Activate
        'ActiveCell.Value = TextBox1.Value
        Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        Worksheets("JANVIER").Cells(Lg, 1) = TextBox1.Value
        Worksheets("JANVIER").Cells(Lg, 3) = TextBox4.Value
        Worksheets("JANVIER").Cells(Lg, 2) = ComboBox1.Value
    ElseIf ComboBox6.Value = "Février" Then
        Sheets("FEVRIER").Activate
        Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        Sheets("FEVRIER").Cells(Lg, 1) = TextBox1.Value
        Worksheets("FEVRIER").Cells(Lg, 1) = TextBox1.Value
        Worksheets("FEVRIER").Cells(Lg, 3) = TextBox4.Value
        Worksheets("FEVRIER").Cells(Lg, 2) = ComboBox1.Value

etc...

Ou n'y a-t-il pas une façon plus simple? 😕
J'ai manqué un cours?... 😛