Problème Userform

Bonjour,

j'ai encore besoin de votre aide !

J'ai un fichier de facturation pour lequel j'ai créé un premier UserForm comme "accueil" celui ci me permet de choisir 3 "itinéraires" : Stock - Factures Pneus - Factures Autres.

Lorsque je clique sur Stock (dans cet USF) j'ai un autre USF qui apparait et celui ci représente un formulaire avec toutes les indications concernant le stock (ici des pneus) - là, j'ai un bouton "Enregistrer" avec lequel je veux envoyer toutes les données de cet USF vers ma feuille "Stock"

J'essaie et je n'y arrive pas ! Pourtant lorsque je suis sur la FACTURE, tout fonctionne, après avoir terminé ma facture, elle enregistre dans Historique facture les données principales et elle me fait une copie en xlsm sur ma Dropbox (ceci pour pouvoir retrouver une facture)

je reste bloqué avec le stock ! le même procédé que pour la facture ne fonctionne pas. Pourquoi ??

Si vous pouvez m'aider, j'en serais très heureux.

merci

13essaieric1507.zip (403.92 Ko)

Bonjour,

Les données sont enregistrées mais tout en bas de votre tableau (ligne 102) car vous définissez la dernière ligne en vous basant sur la colonne A et je suppose que vous vouliez vous baser sur la colonne B. Dans ce cas, même si le code reste optimisable si vous avez les bons numéros de textbox en fonction des numéros de colonnes :

Private Sub CommandButton1_Click()
'entrer le nouveau stock dans la feuille Stock
With Worksheets("Stock")
    ligne = .Range("B" & Rows.Count).End(xlUp).Row + 1
    If IsDate(TextBox1) Then
        .Range("P" & ligne) = CDate(Me.TextBox1) 'mise de la date en version française
        .Range("B" & ligne) = Me.TextBox2 'fournisseur
        .Range("C" & ligne) = Me.TextBox3 'marque
        .Range("D" & ligne) = Me.TextBox4 'type
        .Range("E" & ligne) = Me.TextBox5 'taille
        .Range("F" & ligne) = Me.TextBox6 'quantité
        .Range("G" & ligne) = Me.TextBox7 'PABrut
        .Range("H" & ligne) = Me.TextBox8 'Mon PA
        .Range("M" & ligne) = Me.TextBox10 'Prix vente
        'vider l'Userform
        Me.TextBox1 = ""
        Me.TextBox2 = "" 'fournisseur
        Me.TextBox3 = "" 'marque
        Me.TextBox4 = "" 'type
        Me.TextBox5 = "" 'fournisseur
        Me.TextBox6 = "" 'marque
        Me.TextBox7 = "" 'type
        Me.TextBox8 = "" 'fournisseur
        Me.TextBox10 = "" 'marque
    End If
End With
End Sub

Cdlt,

Bonjour

Revois ligne = etc ... Pas A mais B car en A tu as des nos d'entrée

Private Sub CommandButton1_Click()

'entrer le nouveau stock dans la feuille Stock

ligne = Sheets("Stock").Range("B" & Rows.Count).End(xlUp).Row + 1

If IsDate(TextBox1.Value) Then Sheets("Stock").Range("P" & ligne).Value = CDate(TextBox1.Value) 'mise de la date en version française

Sheets("Stock").Range("B" & ligne).Value = UserForm1.TextBox2.Value 'fournisseur
Sheets("Stock").Range("C" & ligne).Value = UserForm1.TextBox3.Value 'marque
Sheets("Stock").Range("D" & ligne).Value = UserForm1.TextBox4.Value 'type
Sheets("Stock").Range("E" & ligne).Value = UserForm1.TextBox5.Value 'taille
Sheets("Stock").Range("F" & ligne).Value = UserForm1.TextBox6.Value 'quantité
Sheets("Stock").Range("G" & ligne).Value = UserForm1.TextBox7.Value 'PABrut
Sheets("Stock").Range("H" & ligne).Value = UserForm1.TextBox8.Value 'Mon PA
Sheets("Stock").Range("M" & ligne).Value = UserForm1.TextBox10.Value 'Prix vente

'vider l'Userform

UserForm1.TextBox1.Value = ""

UserForm1.TextBox2.Value = "" 'fournisseur
UserForm1.TextBox3.Value = "" 'marque
UserForm1.TextBox4.Value = "" 'type
UserForm1.TextBox5.Value = "" 'fournisseur
UserForm1.TextBox6.Value = "" 'marque
UserForm1.TextBox7.Value = "" 'type
UserForm1.TextBox8.Value = "" 'fournisseur
UserForm1.TextBox10.Value = "" 'marque

End Sub

Bonne continuation

Merci beaucoup pour toutes vos informations. Je vais essayer cela demain matin et je vous tiens au courant (mais je suis certain que ça va fonctionner)

Bonne soirée et encore merci

SUPER !

les deux solutions fonctionnent à merveille !

seul petit problème, dans la solution d'Ergotamine, les chiffres s'inscrivent à gauche (sous forme alphanumérique) alors que la solution de Patty5046 les chiffres s'inscrivent bien sous forme numérique. J'ai donc choisi cette formule. Mais je le redis : les deux fonctionnent très bien.

Je vous remercie .

Bonjour

Enchantée pour toi

Bonne continuation

bye

Bonjour,

j'ai donc résolu mon dernier problème grâce à votre aide. Super.

Maintenant je voudrais encore aller un peu plus loin dans mon automatisation.

Lorsque je choisi un n° de stock sur ma facture, viennent automatiquement la désignation, le type et le prix unitaire.

Il me reste à entrer la quantité pour avoir le total de la ligne. J'aimerais que cette quantité (en B) s'inscrive à ce moment en O de la feuille Stock. MAIS sur la ligne correspondant à mon numéro de stock !

exemple : j'ai choisi le n° 4, sur ma facture arrive : Michelin ... 125 €. J'entre la quantité (2) et le total de la ligne s'affiche; je voudrais qu'en même temps inscrire le chiffre (2) dans ma colonne O de la feuille Stock (et ici en ligne 5)

c'est sur le fait de choisir la ligne que je bloque !

encore une fois, merci de votre aide.

et belle journée

evidemment si je joins le fichier ce serait peut etre mieux !

Rechercher des sujets similaires à "probleme userform"