Problème modification ligne d'un userform

Question

Je viens vers vous pour un problème insoluble à mon niveau, j'ai un petit fichier pour une gestion de stock. Les matériels sont allotis à l'aide de date de péremption. Je me sers d'un userform sur ma page d'accueil afin de modifier mes stocks et inscrire mes mouvements. Je choisis mon matériel, ma quantité , la date de péremption , et mon type de mouvement si c'est une entrée ou une sortie. Ca dervrait me prendre la quantité de mon textbox "nouveau stock" et me modifier celle ci dans la ligne correspondante. Et ben le mystère, c'est que un coup ca me le fait, le coup d 'après sur un autre matériel ça va me créer une nouvelle ligne avec la nouveau stock, mais me laisser l'ancienne ligne en plus avec l'ancien stock, bref je nage en plein flou artistique. Alors je suis pleinement conscient que mes codes ne sont pas catholiques, ça tient plutôt du Frankenstein mon tableau, je prends des codes par ci par là que j'essaye d'adapter. Je vous mets mon tableau si des gens veulent tenter d'y jeter un oeil merci par avance...

d3d9x · Answer

Peux-tu nous donner une suite d'actions qui ne fonctionne pas correctement, ainsi que ce qui devrait se passer si ça fonctionnait correctement Ex: Acceuil modif de stock -&gt; marque = -&gt; designation = etc ......

d3d9x · Answer

Bon j'y perd un peu mon latin, mais j'ai déjà repéré une grosse erreur dans ton code:

Pour trouver la ligne à modifier, tu utilises la formule:

Set Cel = .Columns("A").Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)

En gros, tu check JUSTE LA MARQUE !! Tu ne testes rien d'autre.

Donc ton code te renvoie la PREMIÈRE ligne où la marque est présente !! Si c'est la bonne ligne à modifier, l'erreur serait invisible, mais si c'est la xième ligne à modifier, ça ne marche PAS.

Correction à faire qu'il faut que tu adaptes

Dim numLigne as integer

for numLigne = 2 to Feuil2.Cells(Rows.Count,"A").End(xlUp).Row
   if TEST1 AND TEST2 AND TEST3 etc .... then
   end if
next numLigne

Bon en fait j'ai déjà réécrit, le code

If MsgBox("Voulez-vous modifier les informations de " & Me.ComboBox1 & " ?", vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub

Dim numLigne As Long
For numLigne = 1 To Feuil2.Cells(Rows.Count, "A").End(xlUp).Row
    With Sheets("stock")
        If .Cells(numLigne, "A").Value = Me.ComboBox1 _
        And .Cells(numLigne, "B").Value = Me.ComboBox2 _
        And .Cells(numLigne, "C").Value = Me.ComboBox3 _
        And .Cells(numLigne, "D").Value = Me.ComboBox4 Then
            'ecriture
            '.Range("B" & numLigne) = Me.ComboBox2 -> INUTIL ET MAUVAIS
            '.Range("C" & numLigne) = ComboBox3 -> INUTIL ET MAUVAIS
            '.Range("D" & numLigne) = ComboBox4 -> INUTIL ET MAUVAIS
            .Range("E" & numLigne) = TextBox5
            '.Range("F" & numLigne) = TextBox6 -> INUTIL ET MAUVAIS
            Exit Sub
        End If

    End With
Next numLigne