Avertissement déjà encoder

Bonjour à tous,

J'ai deux feuille une saisie et l'autre liste produit

Dans la première il y a une commande qui ouvre un userform nouvel article qui encode ceux-ci dans ma deuxième feuille.

Mon problème est:

J'aimerais réussir, pendant l'encodage de mon userform, si en envoyant dans ma deuxième feuille un article déjà encoder, qu'un message m'aparaisse et m'informe qu'il y a déjà l'article encodé et ne pas prendre l'encodage en considération.

Je joins un modèle, si malheureusement, je ne me saurais mal expliquer

http://www.cijoint.fr/cjlink.php?file=cj200910/cijIcgpqbN.xlsm

En vous remerciant d'avance
Configuration: Windows XP Internet Explorer 7.0

10 réponses

  • Votes
  • Date
  • Date décroissante
  1. bonjour michel,

    ce que tu m'as dis marche très bien

    Cependant, je crois que je me trompe dans l'encodage vba.

    j'aimerais juste que si

    j'ai un produits coca dans fournisseur1
    j'ai un produits fanta dans fournisseur2

    dans liste produits on me marque coca et fanta

    pour ça, pas de prob

    mais lorsque je rajoute par exemple coca qui est dans feuille1 à la feuille2

    j'aimerais juste que coca ce marque dans feuille2 avec les donnée mais qu'il ne ce rajoute pas une deuxième fois dans liste produits.

    En te remerciant
    1. Contributeur
      Bonjour,

      Désolé, mais je ne comprend rien à tes explications.... de plus, après avoir ajouté des quantités, tu ajoutes des fournisseurs, des prix... demain que rajoutes-tu ?
      1. Bonjour michel,

        Je crois je j'ai parlé trop vite

        ce que j'avais trouvé marche à moitié.

        J'ai amiélorer mon petit prog

        Grace à ton intervention, j'arrive à faire ce que je voulais, cependant.
        Je t'explique mon problème:

        si dans fournisseur 1 j'ai
        nom du prod quantité par casier prix
        coca 24 10

        dans fournisseur 2 j'ai
        fanta 24 10

        dans liste produits
        coca 24 10
        fanta 24 10

        Tant que maintenant pas de prob

        mon problème est que si je rajoute fanta à ma feuille 1 qui est déjà à ma feuille 2

        l'avertisseur auquel tu m'as aider me dira article déjà dans liste
        après vérification fanta ce trouveras dans les deux feuille, mais dans la feuille 1 les informations ne seras pas
        complète.

        A mon avis je me plante carrément dans mon encodage vba

        Pourrais tu regarder, stp, je te joinds mon soucis.

        http://www.cijoint.fr/cjlink.php?file=cj200911/cijO85GvOZ.xlsm

        En te remerciant énormément
        1. Re,

          J'ai essaye cela, ça marche.

          Pourrais tu regarder

          http://www.cijoint.fr/cjlink.php?file=cj200911/cijenulhCp.xlsm

          En te remerciant
          1. Slt Michel,

            Ce que j'aimerais, c'est que si j'ai le même article. qu'il n'encode aucun textbox. sais tous.
            1. Bonsoir Michel,

              j'espère que ta journée c'est bien passé.

              En te remerciant
              1. Contributeur
                Bonjour,

                Pourquoi ne l'avoir pas dit AVANT ?

                si ton article existe déjà peux tu changer le nombre de bouteilles ?
                c'est dimanche, donc sois patient pour la réponse car ici il y a encore du soleil donc ballade prévue...
                1. Re,

                  Je te communique la pièce jointe, pour que tu ais plus facile

                  Merci encore

                  http://www.cijoint.fr/cjlink.php?file=cj200911/cijJfEjgdK.xlsm
                  1. Bonjour michel,

                    Je te remercie de ton temps, ce que tu ma proposer marche vraiment bien. C'est ce que je chercher, un grand merci.

                    Si je peux abuser, stp.

                    J'ai rajouter un textbox2, serait il possible de faire:

                    quand j'insère mon produit dans le textbox1 et qu'il y a un produits identique, une alerte me préviens et n'encode pas les données du textbox1 dans ma deuxième feuille (ça marche, grace à toi).

                    Cependant les données du textbox2 est quand même valider et va dans la deuxième feuille.

                    Ce que j'aimerais, c'est dès qu'il y a alerte qu'aucune donnée de tous les textbox ne soit pas prise en considération.

                    En te remerciant d'avance,
                    1. Contributeur
                      bonjour

                      essaies:
                      Private Sub CommandButton1_Click()
                      Dim insmot As Long
                      
                      insmot = Worksheets("Liste produits").Range("a65536").End(xlUp).Row + 1
                      With Worksheets("Liste produits")
                          If Application.CountIf(.Range("a1:a" & insmot), TextBox1) > 0 Then
                              MsgBox "article existant"
                          Else
                              .Range("A" & insmot) = TextBox1
                          End If
                      End With
                      
                      TextBox1 = ""
                      End Sub

                      testée avec XL2003