Réinitialiser un userform

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion depreux
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

depreux

Guest
Bonjour les génies de BVA,
J'ai dans un Userform un multipage. La page de ce dernier doit changer en fonction de la ligne sélectionnée (soit en sélectionnant la ligne directement sur la feuille excel, soit en créant une nouvelle ligne). La seule méthode que j'ai trouvée pour réactualiser ma feuille est de quitter l'Userform (unload me) et en la réaffichant (userform show). Existe-il un moyen plus "gracieux" de mettre à jour mon userform?

Je profite de mon premier message sur ce site pour remercier toutes les personnes passant bénévolement du temps pour dépanner les nuls en VPA dans mon genre.

Encore merci😎

Fred
 
Trier par date Trier par votes
Re : Réinitialiser un userform

Bonjour Depreux et bienvenue 🙂,
Subtilement, Private Sub UserForm_Initialize() est aussi un sub à part entière, et peux donc être appelée d'une autre sub en mettant simplement
Code: 
UserForm_Initialize
J'espère que ça répond à ta question 😛...
Bonne soirée 😎
Ajout : On ne se quitte plus, Michel 🙂 !
 
Vote positif 0 Vote négatif
Re : Réinitialiser un userform

Re bonjour,
Après avoir tester la variante Userform_Initialize, je me rend compte qu'elle met bien à jour toutes les variables contenues dans le userform, mais elle ne me met pas à jour les pages du multipage (carré vide à la place). Y a-til une solution???
Merci d'avance

Fred
 
Vote positif 0 Vote négatif
Re : Réinitialiser un userform

Re 🙂,
depreux à dit:
je me rend compte qu'elle met bien à jour toutes les variables contenues dans le userform, mais elle ne me met pas à jour les pages du multipage (carré vide à la place).
Cliquez pour agrandir...
Difficile de te répondre sans un fichier exemple 🙄...
Tes pages du multipage sont elles initialisées à l'ouverture de l'USF ? Si ce n'est pas le cas, c'est normal que l'appel à l'initialisation ne donne rien 😛...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Réinitialiser un userform

Bonjour JNP
Je vous transmettrais bien le ficher, mais son poids a pris l'ascensseur (même compressé), et il faudrait sûrement en plus des explication...
Avec les connaissance que j'ai !!! La juste page du multipage est sélectionnée lors de l'ouverture de l'Userform en fonction d'un chiffre donné sur ma feuille de calcul. Si cela peut vous éclairer sur mon problème, voici un bout de mon code, avec son initialisation.
Bonne fin de journée

Fred

Private Sub CommandRC_Click()
ActiveSheet.Unprotect password:="fdp"
Range("réduction").Select
Selection.Copy
DerniereLigne = Range("A65536").End(xlUp).Row + 1
Cells(DerniereLigne, 1).Select
ActiveSheet.Paste
Selection.EntireRow.Hidden = False 'affiche la ligne cachée
Application.CutCopyMode = False 'désélectionne la ligne copiée
unload me
panneau_commande.show 'fonctionne
End Sub

Private Sub CommandSPIRO_Click()
ActiveSheet.Unprotect password:="fdp"
Range("SPIRO").Select
Selection.Copy
DerniereLigne = Range("A65536").End(xlUp).Row + 1
Cells(DerniereLigne, 1).Select
ActiveSheet.Paste
Selection.EntireRow.Hidden = False 'affiche la ligne cachée
Application.CutCopyMode = False 'désélectionne la ligne copiée
UserForm_Initialize 'ne fontionne pas
'ActiveSheet.Protect password:="fdp"

End Sub

Private Sub Commandappliquer_Click()
dd = ActiveCell.Row
test = "bc" + CStr(dd)

If Range(test).Value = "1" Then 'Test qu'il n'y a aucune erreur avant de quitter
UserForm_Initialize 'ne fonctionne pas

Else
MsgBox "CORRIGER LES ERREURS AVANT D'APPLIQUER LES MODIFICATIONS, MERCI"

End If
End Sub



Private Sub Commandappliquer2_Click()
dd = ActiveCell.Row
test = "bc" + CStr(dd)

If Range(test).Value = "1" Then 'Test qu'il n'y a aucune erreur avant de quitter
Unload Me
panneau_commande.Show 'fonctionne

Else
MsgBox "CORRIGER LES ERREURS AVANT D'APPLIQUER LES MODIFICATIONS, MERCI"

End If

End Sub




Private Sub UserForm_Initialize()

'position du userform sur la feuille
With Me
.startUpPosition = 3
.Left = Application.Width - Me.Width

End With

dd = ActiveCell.Row

valmontage = "n" + CStr(dd)
valtype = "bb" + CStr(dd)
vallargeur = "d" + CStr(dd)
valhauteur = "e" + CStr(dd)
vallongueur = "f" + CStr(dd)
valpoids = "T" + CStr(dd)
valprix = "m" + CStr(dd)
valsurface = "L" + CStr(dd)
valtexttype1 = "y" + CStr(dd)
valtexttype2 = "as" + CStr(dd)

vallongspiro = "f" + CStr(dd)
valnombrespiro = "g" + CStr(dd)

panneau_commande.Texttype1.Value = Range(valtexttype1).Value
panneau_commande.Texttype2.Value = Range(valtexttype2).Value


If Range(valtype).Value = "1" Then 'page spiro
panneau_commande.Show
Me.MultiPage1.Value = 1
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(5).Visible = False
Me.MultiPage1.Pages(6).Visible = False

valnombrespiro = "g" + CStr(dd)
valisolation = "aw" + CStr(dd)

panneau_commande.Checkisol1.Value = Range(valisolation).Value

ComboDIAM1.RowSource = "bk1:bk20"
ComboDIAM1.ControlSource = "ab" + CStr(dd)
panneau_commande.Boxlongspiro.Value = Range(vallongspiro).Value
panneau_commande.Boxnombrespiro.Value = Range(valnombrespiro).Value


Else
If Range(valtype).Value = "0" Then 'Page rectangulaire
panneau_commande.Show
Me.MultiPage1.Value = 0
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(5).Visible = False
Me.MultiPage1.Pages(6).Visible = False

Combocadre1.RowSource = "be2:be8"
Combocadre1.ControlSource = "bf" + CStr(dd)
Combocadre2.RowSource = "be2:be8"
Combocadre2.ControlSource = "bg" + CStr(dd)

valnombre = "g" + CStr(dd)
valisolation4 = "aw" + CStr(dd)
positionisol = "ax" + CStr(dd)
positionisol2 = "be" + CStr(dd)
valétanchéité = "ba" + CStr(dd)
valfactmontage = "at" + CStr(dd)

panneau_commande.Checkétanche.Value = Range(valétanchéité).Value
panneau_commande.Optionisol.Value = Range(positionisol).Value
panneau_commande.Optionisol2.Value = Range(positionisol2).Value
panneau_commande.Checkisol4.Value = Range(valisolation4).Value
panneau_commande.boxlargeur.Value = Range(vallargeur).Value
panneau_commande.boxhauteur.Value = Range(valhauteur).Value
panneau_commande.boxlongueur.Value = Range(vallongueur).Value
panneau_commande.boxnombre.Value = Range(valnombre).Value
panneau_commande.Textpoids.Value = Range(valpoids).Value
panneau_commande.textmontage.Value = Range(valmontage).Value
panneau_commande.textprix.Value = Range(valprix).Value
panneau_commande.textsurface.Value = Range(valsurface).Value
panneau_commande.Textfactmontage = Range(valfactmontage).Value

Else
If Range(valtype).Value = "2" Then 'page spiro 2
panneau_commande.Show
Me.MultiPage1.Value = 2
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(5).Visible = False
Me.MultiPage1.Pages(6).Visible = False
valnombrespiro2 = "g" + CStr(dd)
valisolation2 = "aw" + CStr(dd)

panneau_commande.Checkisol2.Value = Range(valisolation2).Value

ComboDiam2.RowSource = "bk1:bk20"
ComboDiam2.ControlSource = "ab" + CStr(dd)

ComboDiam3.RowSource = "bk1:bk20"
ComboDiam3.ControlSource = "ac" + CStr(dd)
panneau_commande.Boxnombrespiro2.Value = Range(valnombrespiro2).Value

Else
If Range(valtype).Value = "3" Then 'page spiro 3
panneau_commande.Show
Me.MultiPage1.Value = 3
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(5).Visible = False
Me.MultiPage1.Pages(6).Visible = False

valnombrespiro3 = "g" + CStr(dd)
valisolation3 = "aw" + CStr(dd)

panneau_commande.Checkisol3.Value = Range(valisolation3).Value

ComboDiam4.RowSource = "bk1:bk20"
ComboDiam4.ControlSource = "ab" + CStr(dd)
panneau_commande.Boxnombrespiro3.Value = Range(valnombrespiro3).Value



Else
If Range(valtype).Value = "4" Then 'page text/position
panneau_commande.Show
Me.MultiPage1.Value = 4
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(5).Visible = False
Me.MultiPage1.Pages(6).Visible = False

valtextposition = "c" + CStr(dd)
valtextposition2 = "d" + CStr(dd)
panneau_commande.Textposition.Value = Range(valtextposition).Value
panneau_commande.Textposition2.Value = Range(valtextposition2).Value

Else
If Range(valtype).Value = "5" Then
panneau_commande.Show 'page pièce divers
Me.MultiPage1.Value = 5
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(6).Visible = False

valdenomination = "y" + CStr(dd)
valprixdivers = "q" + CStr(dd)
valmontagedivers = "s" + CStr(dd)
valsurfdivers = "r" + CStr(dd)
valisolation5 = "aw" + CStr(dd)
valtypedivers = "x" + CStr(dd)

panneau_commande.Texttypedivers = Range(valtypedivers).Value
panneau_commande.Textsurfisoldivers = Range(valsurfdivers).Value
panneau_commande.Textmontagedivers = Range(valmontagedivers).Value
panneau_commande.Textprixdivers = Range(valprixdivers).Value
panneau_commande.Textdenomination = Range(valdenomination).Value
panneau_commande.Boxnombrespiro4.Value = Range(valnombrespiro).Value

panneau_commande.Checkisol5.Value = Range(valisolation5).Value

Combodiam6.RowSource = "bk1:bk21"
Combodiam6.ControlSource = "ab" + CStr(dd)
Combodiam7.RowSource = "bk1:bk21"
Combodiam7.ControlSource = "ac" + CStr(dd)

Else
panneau_commande.Show 'rien de sélectionner
Me.MultiPage1.Value = 6
Me.MultiPage1.Pages(0).Visible = False
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
Me.MultiPage1.Pages(5).Visible = False



End If
End If
End If
End If
End If
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Réinitialiser un userform

Re 🙂,
Sacrée usine à gaz 😛...
Le seul truc marquant, c'est que tout est conditionné par ActiveCell, donc, avant de réinitialiser, es-tu sûr que c'est bien la bonne cellule et la bonne feuille qui sont actives 🙄...
Bon courage 😎
PS : S'il y a bien des choses à éliminer en priorité dans un code VBA, c'est tout ce qui concerne Selection et Active 😉...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
228
vgendron
vgendron
jcf6464
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
2 K
jcf6464
jcf6464
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
328
azzouziwalid
A
ARaul
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
972
TooFatBoy
TooFatBoy
M
  • Question Question
XL 2019 saisie sur 1ère ligne vide depuis un userform
Réponses
6
Affichages
342
vgendron
vgendron
M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
436
Mimi1952
M
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
623
Manon71.
M
cathodique
  • Résolu(e)
XL 2010 Sélectionner et remonter Ligne via Combobox
Réponses
6
Affichages
648
cathodique
cathodique
S
  • Question Question
Microsoft 365 Modifier des données via un Userform
Réponses
3
Affichages
676
youky(BJ)
youky(BJ)
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Renseignement horizontal avec intersections via UserForm
Réponses
4
Affichages
509
chaelie2015
chaelie2015
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
724
patricktoulon
patricktoulon
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
715
ChTi160
ChTi160
E
  • Résolu(e)
Microsoft 365 Userform Modifier une Ligne
Réponses
2
Affichages
441
eric72
E
P
  • Question Question
XL 2019 Modification d'une ligne d'une autre feuille lors d'un echange d'effet dans un userform
Réponses
11
Affichages
1 K
TooFatBoy
TooFatBoy
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
734
tactic6
tactic6
B
  • Résolu(e)
XL 2016 Format date dans un Userform
Réponses
7
Affichages
1 K
patricktoulon
patricktoulon
M
  • Question Question
Microsoft 365 Code listbox
Réponses
4
Affichages
668
Marvin57
M
M
  • Résolu(e)
XL 2013 Affichage onglets multiPage (Userform)
Réponses
10
Affichages
1 K
patricktoulon
patricktoulon
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
942
Liner77
L
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
944
Chatron
C
Retour