Liste validation 3 critères

[azerty67]

Bonsoir à tous,


J'essaie de construire un fichier avec trois critères de validation mai je sèche

J'aimerais qu' en fonction d'un produit sélectionné dans une liste de validation 1, s'affiche une "désignation" correspondante dans une liste de validation 2 et qu'en choisissant une désignation dans celle-ci cela m'affiche une référence dans une liste de validation 3. En validant cette dernière j'aimerais que s'affiche le "Stock actuel", le "Mouvement, le "Stock après mouvement" et le stock critique

Exemple pour un produit sachant qu'il y en aura d'autres

J'ai cherché dans le forum mais je n'ai pas trouvé avec trois critères

Fichier joint, plus clair

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[jp14]

Re : Liste validation 3 critères

Bonjour

Ci joint le fichier avec les modifications demandées.

Il faut dans l'éditeur VBA importer les userform qui sont dans le deuxième fichier.

A tester

JP

 

[KIM]

Re : Liste validation 3 critères

Bonjour le fil,
@JP14, Merci. En testant j'ai remarqué que tous les champs dans Nouvelle reference sont obligatoires.
1- comment limiter ce USF à 5 Champs.
2- Il y a 2 personnes qui interviennent sur ce fichier. Le demandeur de fournitures et le gestionnaire des achats. Le gestionnaire des achats peut inserer, modifier et supprimer des articles avec ses 5 champs. Quand je clique sur Nouvelle reference tous les champs sont obligatoires. En rajoutant une nouvelle reference, le demandeur ne connait que le produit et sa designation. comment rendre les autres champs Reference, PU et fournisseurs non obligatoire.
Merci d'avance
KIM

 

[jp14]

Re : Liste validation 3 critères

Bonjour

Ci joint le fichier avec les modifications demandées.
J'ai remplacé les boutons par un menu.

A tester

JP

 

[KIM]

Re : Liste validation 3 critères

Bonjour le fil,
@JP14, Merci pour tes modifs. J'ai essayé de modifier la macro mais je n'ai pas reussi.
Lors de la modif de la base ou creation, comment rendre tous les champs facultatifs à remplir sauf les champs "Produit" et Designation" les laisser obligatoire.
merci d'avance et Bonne soirée
KIM

 

[jp14]

Re : Liste validation 3 critères

Bonsoir

Le contrôle des zones est réalisé par

'les zones ne doivent pas être vide
For i = 1 To nbcolonne
     If Me.Controls(control1(i) & i).Value = "" Then
        Call MsgBox("La zone " & Me.Controls("Label" & i).Caption & " doit être renseignée",   vbCritical, "Zone non remplie")
        Me.Controls(control1(i) & i).SetFocus
        Exit Sub
    End If
  
Next i

Pour traiter uniquement les deux premières colonnes il faut mettre 2 à la place de nbcolonne.
Pour traiter des colonnes non adjacente on peut écrire

'les zones ne doivent pas être vide
For i = 1 To nbcolonne

select case i
    case 1,2,5 ' controle pour les colonnes 1, 2 , 5

        If Me.Controls(control1(i) & i).Value = "" Then
            Call MsgBox("La zone " & Me.Controls("Label" & i).Caption & " doit être renseignée", vbCritical, "Zone non remplie")
        Me.Controls(control1(i) & i).SetFocus
        Exit Sub
    End If

 end select  
Next i

Pour trouver facilement les modif à réaliser il faut mettre un point d'arrêt dans la procédure associée au bouton qui lance l'opération. Ensuite faire évoluer la macro avec la touche F8 et avec la souris regarder les valeurs prises par les variables.
Modifier le code en conséquence
Tester

JP

 

[KIM]

Re : Liste validation 3 critères

Bonjour le fil,
@JP, Merci de ton aide et ta patience, cela repond à mes attentes.
Merci le forum et Bonne journée
Bien amicalement
KIM

 

[azerty67]

Re : Liste validation 3 critères

Bonsoir JP, le forum,

Merci beaucoup pour l'info, je voudrais également créer un feuille récap qui me donnerais les produits arrivant en limite de stock. Quelle méthode me conseilles-tu ? Merci

Jmarc

Bonjour JP, Kim, le forum,

J'aimerais rajouter une date de saisie sur l'userform 2 afin de garder une trace lors de manipulation de la base. J'aimerais que cette date se reporte également sur la feuil1, j'ai essayé de rajouter des colones dans la listview mais ça ne marche pas? Je ne vois pas les valeurs associées à la colonne ajoutée? Quelle méthode me conseilles tu pour créer une feuille récap de l'ensemble des mouvements ?

Merci pour ton aide
Jmarc

fichier: Cijoint.fr - Service gratuit de dépôt de fichiers

 

[azerty67]

Re : Liste validation 3 critères

Bonjour JP, Kim, le forum,

J'aimerais rajouter une date de saisie sur l'userform 2 afin de garder une trace lors de manipulation de la base. J'aimerais que cette date se reporte également sur la feuil1, j'ai essayé de rajouter des colones dans la listview mais ça ne marche pas? Je ne vois pas les valeurs associées à la colonne ajoutée? Quelle méthode me conseilles tu pour créer une feuille récap de l'ensemble des mouvements ?

Merci pour ton aide
Jmarc

fichier: Cijoint.fr - Service gratuit de dépôt de fichiers

PS: Sinon pour simplifier, y-a-t-il un moyen de modifier le classeur qui suit. Explication à l'intérieur, merci beaucoup

 

[azerty67]

Re : Liste validation 3 critères

PS: Sinon pour simplifier, y-a-t-il un moyen de modifier le classeur qui suit. Explication à l'intérieur, merci beaucoup

Une idée ? Merci

Jm

 

[jp14]

Re : Liste validation 3 critères

Bonsoir

Ci joint le fichier avec l'userform modifié.

(Les macros sont dans le deuxième fichier)
A tester

JP

 

[azerty67]

Re : Liste validation 3 critères

Bonsoir

Ci joint le fichier avec l'userform modifié.

(Les macros sont dans le deuxième fichier)
A tester

JP

Bonsoir JP, le forum,

Jete remercie JP mais j'ai une erreur avec le calendrier, "l'objet n'est pas disponible sur cette machine"

Comment charger cet objet ? Merci encore

Cordialement,
Jm

 

[jp14]

Re : Liste validation 3 critères

Bonjour

Il faut rajouter le contrôle suivant dans les "contrôles supplémentaires".
'"Microsoft MonthView Control 6.0"

Editeur VBA
sélectionner un Userform
Afficher la boite à outils "contrôles"
menu "outils"

JP