Bonjour le forum,
Pour commencer, je ne sais même pas si c'est possible et je suis rééllement bloqué alors je viens vous demander de l'aide.
Voici mon problème :
Tout d'abord, j'ai créé un UserForm avec une textbox afin d'y renseigner un chiffre, pour l'exemple prenons 50 000.
Une fois cette valeur renseignée, je la place dans une variable, Valeurtext1
Par la suite, voici ce que je voudrais :
Afficher les résultats uniquement supérieur à la valeur renseignée par ma variable, soit tout ce qui est supérieur à 50 000.
Si je voulais afficher uniquement la valeur associée à ma variable, il me suffirait d'écrire ça :
ActiveSheet.PivotTables("PivotTable1").PivotFields("Nom").CurrentPage = Valeurtext1
Mais je veux afficher tout ce qui est supérieur ou égal à ma variable.
Voici le code que j'ai écris, le reste étant confidentiel :
Cordialement,
Hiraishin
Pour commencer, je ne sais même pas si c'est possible et je suis rééllement bloqué alors je viens vous demander de l'aide.
Voici mon problème :
Tout d'abord, j'ai créé un UserForm avec une textbox afin d'y renseigner un chiffre, pour l'exemple prenons 50 000.
Une fois cette valeur renseignée, je la place dans une variable, Valeurtext1
Par la suite, voici ce que je voudrais :
Afficher les résultats uniquement supérieur à la valeur renseignée par ma variable, soit tout ce qui est supérieur à 50 000.
Si je voulais afficher uniquement la valeur associée à ma variable, il me suffirait d'écrire ça :
ActiveSheet.PivotTables("PivotTable1").PivotFields("Nom").CurrentPage = Valeurtext1
Mais je veux afficher tout ce qui est supérieur ou égal à ma variable.
Voici le code que j'ai écris, le reste étant confidentiel :
Code:
Private Sub UserForm_Initialize()
Text1.Value = 0
End Sub
Private Sub BoutonOk_Click()
Msg = "Vous avez sélectionné "
Msg = Msg & Text1.Value
Msg = Msg & "."
MsgBox Msg
Valeurtext1 = Text1.Value
ActiveSheet.PivotTables("PivotTable1").PivotFields("Nom").CurrentPage = Valeurtext1
Unload UserForm2
End Sub
Cordialement,
Hiraishin
Dernière édition: