Ajouter à la dernière ligne du tableau

Bonjour à tous,

Je souhaiterai pouvoir ajouter l'ensemble des informations renseignées dans la textbox/combobox dans la dernière ligne de mon tableau de la deuxième feuille.

Pourriez-vous m'aider s'il vous plaît?

En vous remerciant par avance.

Bonjour,

colle ce code dans le code du bouton Valider

A tester

Private Sub CommandButton2_Click()
          '**********Modif
       Dim Ligne As Long

         With Ws
        Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1  'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        .Range("A" & Ligne).Value = TextBox1
        .Range("B" & Ligne).Value = ComboBox1
        .Range("C" & Ligne).Value = TextBox2
        .Range("D" & Ligne).Value = TextBox3
        .Range("E" & Ligne).Value = TextBox4
        .Range("F" & Ligne).Value = TextBox5

        '' Effectue un tri avec deux clés sur les Dates et les catégories
        .Range("A2:F" & Ligne).Sort _
            key1:=.Range("A2"), order1:=xlAscending, dataoption1:=xlSortNormal, _
            key2:=.Range("C2"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes

End Sub

amicalement

Pierrot

Bonsoir, ton fichier modifié

a tester

Pierrot

Bonjour @Cappe Pierre,

Je vous remercie pour votre aide.

C'est exactement ce que je voulais.

Pourrie-vous me dire s'il vous plaît si c'est possible que la textbox "total" calcul directement le produit entre quantité et prix unitaire?

Merci d'avance

Bonjour, Black_Hole

ton fichier fonctionne bien chez moi, mais j'ai du en créer un nouveau , car j'avais toujours un msg d'erreur" DLL manquante"

en ouvrant ton fichier

j'aurais bien voulu, créer un ComboBox pour le 2ème choix, mais je n'y arrive pas

le formulaire s'ouvre avec un double-clic 1ère ligne de n'importe quelle feuille

A Tester

Amicalement

Pierrot

Bonjour

tien pierre pour tes comboxbox

  • Private Sub UserForm_Initialize()
    Set Sh = Feuil3
    With ComboBox1
    .Clear
    .List = Sh.Range("A2:A" & Sh.Range("A" & Rows.Count).End(xlUp).Row).Value
    End With
    With ComboBox2
    .Clear
    .List = Sh.Range("B2:B" & Sh.Range("B" & Rows.Count).End(xlUp).Row).Value
    End With
    TextBox5.Locked = True
    End Sub

A+

Maurice

Bonjour, Maurice,

excellent travail, c'est tellement bien que je voudrais bien un supplément,y il a sur la feuille 3 que j'ai renommé BD, en colonne C

les prix unitaires des libellés de la colonne B, est-il possible que lors du choix d'un libellé du comboBox2, son prix unitaire correspondant

soit affiché dans son TextBox4 Prix unitaire ?

merci d'avance de ce boulot supplémentaire

Ce matin, j'ai de la kiné (chute de ma chaise à roulette à l'ordinateur qui à provoqué un gros hématome à l'épaule et dans la gorge

Demain, c'est séance de chimio pour mon cancer du poumon

j'ai le bras droit bloqué qui ne me permet pas beaucoup de mouvements

je te souhaite une excellente journée

amitiés

Pierrot

bonjour

aller bon courage

modification de la comboxbox a voir

pense a mettre le KeyPress sur la QUANTITE

A+

Maurice

Bonjour Maurice,

cela fonctionne très bien, mais les nombres dans la feuille ventes s'affichent en Texte ( "12.50 €) par exemple

je dois retaper manuellement chaque nombre, alors ça marche

Que peux-tu faire pour ça ?

un grand merci

Amitiés

Pierrot

Bonjour

tu a déjà la réponse sur un fichier que tu a reçu sur une autre question voir le fichier Classeur_TestCp.xlsm

A+

Maurice

Maurice,

effectivement, j'ai un fichier qui fonctionne bien avec les nombres

j'ai fait des copier coller, mais cela ne marche pas

peux-tu jeter un oeil sur le fichier joint ?

je dois me servir de la main gauche, mais j'ai beaucoup de mal,

je suis obligé d'arrêter

Merci pour tout ce que tu fais

amitiés

Pierrot

Bonjour ,Pierre

et moi je ne voie presque plus rien

A part ca j'ais tout changer

a toi de voir HI

A+

Maurice

18archertestcp.xlsm (45.25 Ko)

Salut, Maurice

c'est tout simplement parfait

Merci beaucoup

amitiés

Pierrot

re Pierre

et voila avec un peux de couleur

A+

Maurice

16archertestcp.xlsm (64.29 Ko)
merci

Pierrot

bonjour

après tes test jais fait une modife voir la modification

A+

Maurice

52archertestcp.xlsm (65.82 Ko)

Bonsoir, Maurice,

De mieux en mieux,

je viens de rentrer d'une séance de chimio

un tout grand merci pour le boulot réalisé

sincères amitiés

Pierrot

Bonjour @Capper Pierre et @archer

Je tiens tout d'abord à m'excuser pour le retard, j'étais en plein déménagement c'est trois derniers jours (et cela continue encore toute cette semaine).

Mille mercis pour le travail fourni !!

Bonne semaine à vous.

Bonjour, si cela te conviens, n'oublies pas de cocher la case verte comme étant résolu

Pierrot

resolu4
Rechercher des sujets similaires à "ajouter derniere ligne tableau"