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.