Discussion :

[stephadm]

Bonjour au forum,

Appliquer le taux validité par rapport à un article
Imaginons que l'on choisisse "beurre", "Pâté" ou ...
alors la catégorie "TxtBoxCategorie" correspondant à cet article dans Feuil3(Listes) s'inscrit
de même pour la validité
Exemple pour : Produit : Beurre ; catégorie : Crémerie et validité : 3
" " Produit : Pâté ; catégorie : Charcuterie et validité : 4

Comment faire ?

Merci

Stephanie

[Philippe Tulliez]

Bonjour,
Utilise une fonction de recherche soit RECHERCHEV soit INDEX combinée à EQUIV.
Tutoriels pour RECHERCHEV et pour INDEX & EQUIV

[stephadm]

bonjour Corona et au forum,

Comment fait-on dans vba userform ?

Merci

Stephanie

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
Dim laplage As Range
Private Sub TextBox1_AfterUpdate()
 Me.TextBox2 = Application.WorksheetFunction.VLookup(TextBox1, laplage, 2, False)
End Sub
Private Sub UserForm_Initialize()
 Set laplage = ThisWorkbook.Worksheets("Feuil1").Range("A2:D20")
End Sub

[stephadm]

bonjour Corona et au forum,

J'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
Dim laplage As Range
Private Sub CBoxProduit_AfterUpdate()
 Me.TxtBoxCategorie = Application.WorksheetFunction.VLookup(CBoxProduit, laplage, 2, False)
End Sub
Private Sub UserForm_Initialize()
 Set laplage = ThisWorkbook.Worksheets("Feuil3").Range("A2:D200")
End Sub

mais hélas, j'ai une erreur à l'ouverture de l'Userform. Il ne reconnait plus Userform1.Show

Ou est le problème ? (voir pièce jointe)

Merci

Stephanie

[Philippe Tulliez]

Bonjour,
Le fichier au format zip si c'est possible merci
L'erreur n'est sans doute pas à l'ouverture mais au cours de l'exécution.
Fais un debug pas à pas.
Sur la ligne Userform1.Show tu places un point d'arrêt (F9) ou clic dans la marge du code.
Ensuite tu lances le programme qui va s'arrêter à cette ligne et ensuite à l'aide de la touche F8, tu vas de ligne en ligne jusqu'à l'erreur.

[stephadm]

bonjour Corona et au forum,

Je renvoie le fichier au format zip

Merci

Stephanie

[mercatog]

PS: Il faudra toujours adapter le code qu'on te propose à ton classeur. Par exemple Feuil3 doit être adaptée à ta feuille Listes et de même pour la plage de recherche.

Sinon et vu la disposition de tes données sources, utilise simplement ListIndex de ta combo pour trouver la bonne ligne.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CBoxProduit_Change()
 
'Imaginons que l'on choisisse "beurre", "Pâté" ou ... dans CBoxProduit
'alors la catégorie "TxtBoxCategorie" correspondant à cet article dans Feuil3(Listes) s'inscrit
'de même pour la validité "TxtBoxValidite"
'Exemple pour : Produit : Beurre ; catégorie : Crémerie et validité : 3
'   "      "    Produit : Pâté ; catégorie : Ccharcuterie et validité : 4
 
If Me.CBoxProduit.ListIndex > -1 Then
    Me.TxtBoxCategorie = Worksheets("Listes").Range("D2").Offset(Me.CBoxProduit.ListIndex)
    If Val(Me.TxtBoxValidite) > 0 Then TxtBoxDLC = DateAdd("m", Me.TxtBoxValidite, Me.TxtBoxDate)
End If
End Sub

[stephadm]

bonjour Corona, Mercatog et au forum,

J'ai effectue les changement pour mon document final et tout fonctionne.

Merci

Stephanie