STOCK et PARC

Bonjour

suite a un projet de réalisation d’entrée de véhicules en stock, je me retrouve avec 4 PARC.

j'aimerais réaliser un fichier qui m'aiderais a savoir ou se trouve le véhicule (et sa date d’entrée), et aussi, après livraison, a qui il a étais livré.

j'ai commencer a faire le fichier et je plante sur quelques petite choses.

je ne sait pas comment faire apparaitre dans ComboBox1 de l'userform1 les nom des different PARC qui sont dans la feuille "STOCK GENERAL 3 de O2 a O5

merci pour votre aide

Bonjour

Essaie ce fichier :

bonjour GMB

avant tous merci pour la solution, qui me correspond bien.

voila, je me suis mal exprimé ......

j'aimerais aussi que quand je choisis dans le combobox1 le parc de destination il s'inscrit dans la case correspondant de la colonne E.

aussi par le biais de la même action que les même données s’inscrive en double dans la feuille correspondante, c'est à dire que automatiquement suivant le choix du parc( COMBOBOX1) il inscrit dans la feuille de même nom au même position de la feuille STOCK GENERAL

je vous remercie d'avant

ps : j'adapte au fur et a mesure depuis d'autres ficher avec des copié collé

Bonjour

Nouvelle version :

encore merci GMB

je vous re-solicite encore une fois

je ne sait pas pourquoi le CommandButton3_Click() ne fonctionne pas

pourriez vous m'aider

je rejoint ce que j'ai fait

cordialement

Salut le Forum

Section corrigée pour le Private Sub CommandButton3_Click() :

'...
    ' livre le chassis et destock
    With Sheets("Stock general")
        For i = 1 To Range("D1000000").End(xlUp).Row
            If Cells(i, 4) = Val(Me.TextBox4.Value) Then
                MsgBox ("Ce châssis existe dans le stock, je vais le destocker")
                Cells(i, 9) = Val(Me.TextBox4.Value)
                Cells(i, 8) = Val(Me.TextBox3.Value)
                Cells(i, 10) = Val(Me.TextBox5.Value)
                Cells(i, 4) = ""

                With Sheets(Cells(i, 5).Value)
                    For j = 1 To .Range("D1000000").End(xlUp).Row
                        If .Cells(j, 4) = Val(Me.TextBox4.Value) Then
                            .Cells(j, 9) = Val(Me.TextBox4.Value)
                            .Cells(j, 8) = Val(Me.TextBox3.Value)
                            .Cells(j, 10) = Val(Me.TextBox5.Value)
                            .Cells(j, 4) = ""
                        End If
                    Next j
                End With

            End If
        Next i
    End With
'...

Mytå

Bonjour

merci a toi MYTA.

j'ai améliore un peu mon fichier mais, j'aimerais le rendre plus agréable.

j’aimerais, si possible, dans ListBox1, il y ai l'affichage de la colonne D sans les vide!!

aussi des l'ouverture du fichier que les TEXTBOX11 12 13 14 et 15 s'affiche tous le temps correcpondant au cellules P2 à P6

merci d'avance

bonjour a tous

pourrais-je avoir une aide s'il vous plais!!!

merci

Bonjour

je suis arrivé a faire quelques améliorations (en puisant des infos depuis excel - pratique, que je remercie d'avance).

mais la question reviens toujours

comment faire pour la listeBox1 se rafraichie tous le temps suivant les infos incréée dans la colonne D, et que les TEXTBOX11 jusqu’à 15 se rafraichissent tous le temps sans atteindre et ré-ouvrir le USERFORM1

merci d'avance pour votre aide

Bonjour

Je ne suis pas sûr d'avoir tout compris. J'ai fait au mieux. A tester

Bonjour GMB et bonjour le forum

Attention ! la formule contenue dans cette cellule ne donne pas le nombe de chassis mais le nombre de cellules qui contiennent une valleur numérique. Ce n'est pas le cas pour les cellules D126 et D127.

Il vaudrait mieux mettre :

= NBVAL('Bab el hadid'!D8:D10000)

merci beaucoup pour la remarque, que j'ai corrigé

Private Sub UserForm_Initialize()
    With Sheets("Stock general")
        ComboBox1.List = .Range("O2:O5").Value
        'ListBox1.List = .Range("D8:D100000").Value
        For Each C In .Range("D8:D" & .Range("D" & Rows.Count).End(xlUp).Row)
            If C.Value <> "" Then
                ListBox1.AddItem C.Value
            End If
        Next C
        TextBox11 = Range("P2")
        TextBox12 = Range("P3")
        TextBox13 = Range("P4")
        TextBox14 = Range("P5")
        TextBox15 = Range("P6")
    End With
End Sub

C'est aussi je que je cherche,

aussi, je me suis fait mal comprendre.

j'aimerais que les textbox11, 12, 13, 14, 15 se rafraichissent apres chaque action faite sur le userform

exemple, si un châssis est livré et destocké, le nombre de véhicule dans le stock varie avec

merci d'avance

ci koint le fichier corrigé

Bonjour

j'aimerais savoir s'il y a une possibilité de faire des mots de pass pour différent utilisateurs, (préalablement choisies) et dans une colonne bien définie, mettre le nom de l'utilisateur qui a fait l'action, bien sur, sur la feuille original "STOCKGENERAL" on ne peu pas toucher.

merci d'avance

bonjour

je poursuis mon sujet pour améliorer mon fichier

je suis coincé dans un probleme de positionnement de stock

dans le USERFORM 3 je pense mettre dans le textbox1 le numéro de châssis et dans le combobox1 la destination pour le changement de parc.

donc dans la feuille STOCKGENERAL c'est les 4 différent stock qui y sont

les autres feuilles c'est les nom des différents parcs avec a quelqu’une son stock.

pour le changement de position avec report sur le stock général je me perd

est ce que je pourrais avoir une aide de votre part

merci d'avance

ci joint le fichier a jour

bonjour

j'y suis pas arrivé!!!

H E L P !!! ( et non pas la chanson des BEATLES )

merci d'avance

Bonjour

Tu écris :

pour le changement de position avec report sur le stock général je me perd

Un essai à tester pour ce changement.

Bye !

Merci GMB(je n'ai pu voir le fichier que maintenant)

c'est super

vive EXCEL PRATIQUE

Rechercher des sujets similaires à "stock parc"