Je me mets aux Userforms.
Je voudrais activer le champ de page d'un USF avec un "OptionButton"
avec :
Private Sub AnneeMobile_Click()
Sheets("TdB1").Activate
ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage = _
"Annee mobile"
End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique
sur le OptionButton.
Comment faire ??
Merci par avance de vos éclairages
François
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour François Supprime la ligne Sheets("TdB1").Activate Et modifie ta deuxième ligne de cette façon : Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile"
Cordialement Pascal
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
Bonjour François
Supprime la ligne Sheets("TdB1").Activate
Et modifie ta deuxième ligne de cette façon :
Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _
"Annee mobile"
Cordialement
Pascal
"François" <NoSpam@NoSpam> a écrit dans le message de
news:e5OLRQs1DHA.2896@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Je me mets aux Userforms.
Je voudrais activer le champ de page d'un USF avec un "OptionButton"
avec :
Private Sub AnneeMobile_Click()
Sheets("TdB1").Activate
ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _
"Annee mobile"
End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique
sur le OptionButton.
Comment faire ??
Merci par avance de vos éclairages
François
Bonjour François Supprime la ligne Sheets("TdB1").Activate Et modifie ta deuxième ligne de cette façon : Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile"
Cordialement Pascal
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
michdenis
Bonjour François,
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible : Userform1.Hide Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu voudras afficher de nouveau ton formulaire par Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" a écrit dans le message de news: Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
Bonjour François,
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible : Userform1.Hide
Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu voudras afficher de nouveau ton formulaire par
Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me
Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" <NoSpam@NoSpam> a écrit dans le message de news:e5OLRQs1DHA.2896@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Je me mets aux Userforms.
Je voudrais activer le champ de page d'un USF avec un "OptionButton"
avec :
Private Sub AnneeMobile_Click()
Sheets("TdB1").Activate
ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage = _
"Annee mobile"
End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique
sur le OptionButton.
Comment faire ??
Merci par avance de vos éclairages
François
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible : Userform1.Hide Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu voudras afficher de nouveau ton formulaire par Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" a écrit dans le message de news: Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
François
Bonjour Pascal,
C'est effectivement mieux ainsi. En fait je souhaite paramètrer mon Tcd avec plusieurs conditions. Je vais donc charger mes variables des réponses successives et ensuite cliquer sur un bouton pour valider le résultat. Merci pour ton aide et très bon WE. François ------------------------------ "papou" <nspm> a écrit dans le message news:
Bonjour François Supprime la ligne Sheets("TdB1").Activate Et modifie ta deuxième ligne de cette façon : Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile"
Cordialement Pascal
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _
"Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
Bonjour Pascal,
C'est effectivement mieux ainsi.
En fait je souhaite paramètrer mon Tcd avec plusieurs conditions.
Je vais donc charger mes variables des réponses successives
et ensuite cliquer sur un bouton pour valider le résultat.
Merci pour ton aide et très bon WE.
François
------------------------------
"papou" <nspm> a écrit dans le message news:
epXqqUs1DHA.2872@TK2MSFTNGP09.phx.gbl...
Bonjour François
Supprime la ligne Sheets("TdB1").Activate
Et modifie ta deuxième ligne de cette façon :
Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _
"Annee mobile"
Cordialement
Pascal
"François" <NoSpam@NoSpam> a écrit dans le message de
news:e5OLRQs1DHA.2896@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Je me mets aux Userforms.
Je voudrais activer le champ de page d'un USF avec un "OptionButton"
avec :
Private Sub AnneeMobile_Click()
Sheets("TdB1").Activate
ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage
_
"Annee mobile"
End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique
sur le OptionButton.
Comment faire ??
Merci par avance de vos éclairages
François
C'est effectivement mieux ainsi. En fait je souhaite paramètrer mon Tcd avec plusieurs conditions. Je vais donc charger mes variables des réponses successives et ensuite cliquer sur un bouton pour valider le résultat. Merci pour ton aide et très bon WE. François ------------------------------ "papou" <nspm> a écrit dans le message news:
Bonjour François Supprime la ligne Sheets("TdB1").Activate Et modifie ta deuxième ligne de cette façon : Sheets("TdB1").PivotTables("TcD01").PivotFields("analyse").CurrentPage = _ "Annee mobile"
Cordialement Pascal
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _
"Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
François
Bonsoir michdenis,
En fait non, je voulais au contraire qu'il reste affiché tant que je n'ai pas répondu à toutes les questions, mais je viens de comprendre mon erreur. Je te remercie de tes infos :-) Très bon WE François ----------------------------------- "michdenis" a écrit dans le message news:
Bonjour François,
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible : Userform1.Hide
Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu voudras afficher de nouveau ton formulaire par
Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
Bonsoir michdenis,
En fait non, je voulais au contraire qu'il reste affiché tant que je n'ai
pas répondu à toutes les questions, mais je viens de comprendre
mon erreur.
Je te remercie de tes infos :-)
Très bon WE
François
-----------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
e7VgFXs1DHA.2412@TK2MSFTNGP10.phx.gbl...
Bonjour François,
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible
: Userform1.Hide
Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu
voudras afficher de nouveau ton formulaire par
Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me
Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement
de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" <NoSpam@NoSpam> a écrit dans le message de
news:e5OLRQs1DHA.2896@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Je me mets aux Userforms.
Je voudrais activer le champ de page d'un USF avec un "OptionButton"
avec :
Private Sub AnneeMobile_Click()
Sheets("TdB1").Activate
ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _
"Annee mobile"
End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique
sur le OptionButton.
Comment faire ??
Merci par avance de vos éclairages
François
En fait non, je voulais au contraire qu'il reste affiché tant que je n'ai pas répondu à toutes les questions, mais je viens de comprendre mon erreur. Je te remercie de tes infos :-) Très bon WE François ----------------------------------- "michdenis" a écrit dans le message news:
Bonjour François,
"Userform s'efface dès que je clique sur le OptionButton."
Si cela veut dire que tu voudrais que ton formulaire devienne non-visible : Userform1.Hide
Ici, tous tes contrôles conserveront leur valeur jusqu'au moment où tu voudras afficher de nouveau ton formulaire par
Userform1.show
Si tu veux décharger de la mémoire vive ton formulaire :
UnLoad Me Ici, tous tes contrôles retrouveront leur valeur d'origine au chargement de ton formulaire
Désires-tu autre chose ?
Salutations!
"François" a écrit dans le message de news:
Bonjour à tous,
Je me mets aux Userforms. Je voudrais activer le champ de page d'un USF avec un "OptionButton" avec : Private Sub AnneeMobile_Click() Sheets("TdB1").Activate ActiveSheet.PivotTables("TcD01").PivotFields("analyse").CurrentPage _ "Annee mobile" End Sub
mais je ne voudrais pas que le Userform s'efface dès que je clique sur le OptionButton. Comment faire ?? Merci par avance de vos éclairages François
