Incrémenter une valeur VBA

Question

Bonjour, je voudrais avoir un peu d'aide sur mon projet, c'est un éditeur de stock le seul problème comme vous allez le voire, dès que je fait une entré dans mon stock sa incrémente pas si la référence et identique ainsi que la marque. Se que je voudrais si possible, c'est que si le produit existe déja et que je veux faire une entrée de 20 par exemple sa les rajoutes déjà au produit existant en modifiant la date, et non crée dans une ligne différente. Tout cela en pouvant garder la possibilité de rajouter un produit tout nouveau . merci de votre aide...

ddetp88 · Accepted Answer

Ligne = Application.Match(Me.ComboBox1.Value, .&#91;A:A&#93;, 0) And Application.Match(Me.ComboBox2.Value, .&#91;C:C&#93;, 0) And Application.Match(Me.ComboBox3.Value, .&#91;D:D&#93;, 0) ne peut pas fonctionner puisque match va donner le numéro de ligne de la 1ère référence correspondante. Je te propose une autre solution avec une boucle. En revanche il faut tester sur ton fichier original car si les lignes sont nombreuses, la durée de la macro risque de s'allonger. Il faudra passer par des tableaux à ce moment là. Private Sub B_Valid_Click() With Sheets("MIF") ligne = 2 Do While .Cells(ligne, "A") &lt;&gt; "" If .Cells(ligne, "A").Value = Me.ComboBox1.Value _ And .Cells(ligne, "C").Value = UCase(Me.ComboBox2.Value) _ And .Cells(ligne, "D") = Me.ComboBox3.Value Then '--- ref trouvée ajoute à la réf .Cells(ligne, "B") = CDbl(Me.TextBox1) + .Cells(ligne, 2).Value 'ajoute la quantité .Cells(ligne, "G") = Date Call initialise Unload Me Exit Sub End If ligne = ligne + 1 Loop If ligne = .&#91;a65000&#93;.End(xlUp).Row + 1 Then '--- Marque non trouvée va en fin de formulaire '--- Transfert Formulaire dans MIF .Cells(ligne, "A") = Me.ComboBox1 .Cells(ligne, "B") = CDbl(Me.TextBox1) .Cells(ligne, "C") = UCase(Me.ComboBox2) 'met en majuscules .Cells(ligne, "D") = Me.ComboBox3 .Cells(ligne, "G") = Date Unload Me Call initialise End If End With End Sub Cordialement...

ddetp88 · Answer

Je te propose de modifier le code de ton bouton Validation de l'userform USF_C. Comme ceci: Private Sub B_Valid_Click() With Sheets("MIF") ligne = Application.Match(Me.ComboBox1.Value, .&#91;A:A&#93;, 0) If IsError(ligne) Then '--- ref non trouvée va en fin de formulaire ligne = .&#91;a65000&#93;.End(xlUp).Row + 1 '--- Transfert Formulaire dans MIF .Cells(ligne, "A") = Me.ComboBox1 .Cells(ligne, "B") = CDbl(Me.TextBox1) .Cells(ligne, "C") = UCase(Me.ComboBox2) 'met en majuscules .Cells(ligne, "D") = Me.ComboBox3 .Cells(ligne, "G") = Date Call initialise Else ligne = .&#91;C:C&#93;.Find(Me.ComboBox2.Value).Row '--- ref trouvée ajoute à la réf .Cells(ligne, 2) = CDbl(Me.TextBox1) + .Cells(ligne, 2) 'ajoute la quantité .Cells(ligne, 3) = UCase(Me.ComboBox2) 'met en majuscules .Cells(ligne, 7) = Date Call initialise End If End With End Sub @+ ddetp88...

ddetp88 · Answer

Kévin,

En fait je viens de faire des tests et il se trouve que ma réponse est incomplète.

Il faut ajouter un test sur la marque et sur la ligne de la référence.

Voici le nouveau fichier avec le code corrigé.

Private Sub B_Valid_Click()
    With Sheets("MIF")
        ligne = Application.Match(Me.ComboBox1.Value, .[A:A], 0)
        If IsError(ligne) Then
           '--- ref non trouvée va en fin de formulaire
           ligne = .[a65000].End(xlUp).Row + 1
           '--- Transfert Formulaire dans MIF
           .Cells(ligne, "A") = Me.ComboBox1
           .Cells(ligne, "B") = CDbl(Me.TextBox1)
           .Cells(ligne, "C") = UCase(Me.ComboBox2) 'met en majuscules
           .Cells(ligne, "D") = Me.ComboBox3
           .Cells(ligne, "G") = Date
           Call initialise
        ElseIf .Cells(ligne, "C").Value = UCase(Me.ComboBox2.Value) Then
           '--- ref trouvée ajoute à la réf
           .Cells(ligne, "B") = CDbl(Me.TextBox1) + .Cells(ligne, 2) 'ajoute la quantité
           .Cells(ligne, "C") = UCase(Me.ComboBox2) 'met en majuscules
           .Cells(ligne, "G") = Date
           Call initialise
        Else
           '--- Marque non trouvée va en fin de formulaire
           ligne = .[a65000].End(xlUp).Row + 1
           '--- Transfert Formulaire dans MIF
           .Cells(ligne, "A") = Me.ComboBox1
           .Cells(ligne, "B") = CDbl(Me.TextBox1)
           .Cells(ligne, "C") = UCase(Me.ComboBox2) 'met en majuscules
           .Cells(ligne, "D") = Me.ComboBox3
           .Cells(ligne, "G") = Date
           Call initialise
        End If

    End With
End Sub

A bientôt

ddetp88

19ddetp88-gestion-stock-25-04-15.xlsm (118.60 Ko)

ddetp88 · Answer

En fait tu vas devoir fournir des explications supplémentaires. Dans l'onglet base tu as tes: produits avec la référence en première colonne fournisseurs (marque du produit je pense) en deuxième colonne dépôt ou stock en troisième colonne. Ces données alimentent tes différents combobox. Comme ton userform est conçu, tu peux pour une même référence modifier le fournisseur (combobox2). Est-ce bien normal? Tu peux aussi modifier la colonne "Disponible" en dépôt ou en stock avec le combobox3. Est-ce bien normal? Tout cela m'interroge quant au bon fonctionnement du fichier que tu as nommé gestion de stock. Ne faudrait-il pas plutôt des labels en remplacement des combobox 2 et 3? Ensuite, tu dis: D'après les tests que je viens de faire, une nouvelle ligne se créait. cordialement ddetp88...

ddetp88 · Answer

J'ai repris la variable ligne que tu utilises depuis le début. L'astuce étant d'utiliser la même variable partout. Content que tu sois satisfait. Cordialement ddetp88...

ddetp88 · Answer

Comme tu as excel 2010 va dans le menu données/supprimer les doublons. Si tu veux bien, il faut relancer un nouveau fil dès lors que la question n'a plus rien à voir avec la question de base. @+...