Récupération paramètre contenu dans un comboBox et filtrage
Bonjour,
Voila mon problème:
J'ai un UserForm sur lequel il y a un comboBox. Mon objectif et d'utiliser la valeur en fonction de la sélection et d'y effectuer un filtrage dans la feuille de calcul.
Le code pour le ComboBox est le suivant
Private Sub SelectFourni_Change()
Sheets("Envoi").Select
Dim z As Integer
z = 2
While Cells(z, 1) <> ""
If Cells(z, 1) = SelectFourni Then
MailFourni = Cells(z, 2)
GoTo togo
End If
z = z + 1
Wend
togo:
End SubICI z est la valeur que je souhaiterais pouvoir récupérer et traiter ailleurs.
Pour le filtre je souhaiterais faire ça
Sheets("Comm_Ach_Prod").Range("A1:T" & Range("A65536").End(xlUp).Row).AutoFilter Field:=4, Criteria1:=zEst-il possible de le faire comme je le pense étant donné que ce n'est pas un vrai langage orienté objet ?
Je vous remercie d'avance pour vos réponses.
Bonjour,
Un fichier test est tellement mieux pour comprendre plutôt qu'une image.
Ps Z=Z+1 il explose pas ton excel à ce moment là ?
Je joins le fichier de test. Le bouton d'affichage de la boite de dialogue se trouve dans la sheet "envoi".
Re,
Je ne sais pas si j'ai bien tout compris
Donc en retour de test :
Aprés utilisation du Combobox "SelectFourni' La valeur X reprend le contenu du combo et utilise se contenu
pour appliquer un filtre automatique sur l'onglet Comm_Ach_Prod.
[/quote]
Oui oui exactement
[/quote]
Donc çà te va comme çà
Oui oui exactement
[/quote]
Donc çà te va comme çà
[/quote]
Oh oui désolé je n'avais pas remarqué qu'il y avait le fichier.
Mais du coup l'action de filtrage, je souhaiterai l'effectuer que quand je clique sur le bouton "Afficher le portefeuille de ce fournisseur"
Sinon dans l'idée c'est ça.