USF ne vide pas
Bonsoir,
J'ai un problème avec mes Usf. Ils contiennent des TextBoxs et quand le les remplis, ils vont bien aux endroits voulus mais quand je quitte c'est bien transcrit dans les cellules et mon Usf disparait mais si je l'ouvre à nouveau il a garder les derniers chiffres.
Or j'ai bien mis sur le bouton "Quitter" le code " Private Sub Cmd_Click() Unload UsfLA1 End Sub
Et malgré tout il garde en mémoire les derniers chiffres que j'ai transmis.
merci d'avance
Bonsoir,
Vérifie que ton bouton se nomme bien Cmd et ton Userform UsfLA1.
Et mets Unload Me, tu élimineras un risque d'erreur.
Cordialement.
Salut
J'ai fait Unload Me mais cela ne vide pas l'USF.
Mais le fait d'avoir un Usf pour plusieurs feuilles peut-il avoir une influence?
Peut-être devrais-je faire un bouton pour valider les données?
Merci
Dans ce cas il serait bon que tu mettes ton fichier à examiner, pour un diagnostic plus précis.
Qu'entends-tu par "avoir un Usf pour plusieurs feuilles" ?
Un Userform est un objet autonome, il n'est dépendant d'aucune feuille !
Cordialement.
Bonjour
J'ai 19 Usf qui peuvent alimenter chaque fois la feuille active.
Comme suit:
Private Sub Quitter1_Click()
Unload UsfLA1
End Sub
Private Sub TextBox3_Change()
Sheets(ActiveSheet.Name).Cells(19, 7) = TextBox3
End Sub
Private Sub TextBox4_Change()
Sheets(ActiveSheet.Name).Cells(19, 9) = TextBox4
End Sub
Private Sub TextBox5_Change()
Sheets(ActiveSheet.Name).Cells(19, 11) = TextBox5
End Sub
Private Sub TextBox6_Change()
Sheets(ActiveSheet.Name).Cells(19, 13) = TextBox6
End Sub
Private Sub TextBox7_Change()
Sheets(ActiveSheet.Name).Cells(19, 15) = TextBox7
End Sub
Private Sub TextBox8_Change()
Sheets(ActiveSheet.Name).Cells(19, 17) = TextBox8
End Sub
Private Sub UserForm_Initialize()
TextBox3 = Sheets(ActiveSheet.Name).Cells(19, 7)
TextBox4 = Sheets(ActiveSheet.Name).Cells(19, 9)
TextBox5 = Sheets(ActiveSheet.Name).Cells(19, 11)
TextBox6 = Sheets(ActiveSheet.Name).Cells(19, 13)
TextBox7 = Sheets(ActiveSheet.Name).Cells(19, 15)
TextBox8 = Sheets(ActiveSheet.Name).Cells(19, 17)
End Sub
Je ne comprend pas pourquoi il garde les données?
Ce n'est pas ce qu'on fait de mieux comme code, mais rassure-toi les données sont bien éliminées à la fermeture du Userform !
Il les récupère à l'ouverture parce que tu lui demandes de le faire !!
19 Useforms ! Sans regarder, je gage qu'il y en a au moins 15 ou 16 de trop !...
ça c'est sur car je ne suis pas du tout un pro ni même un débutant confirmé!
"Il les récupère à l'ouverture parce que tu lui demandes de le faire !!
Mais je ne lui ai rien demandé du tout moi
Et je ne vois pas comment je lui ai demandé de le faire
Merci d'avance
C'est bien toi qui a mis ça :
Private Sub UserForm_Initialize()
TextBox3 = Sheets(ActiveSheet.Name).Cells(19, 7)
TextBox4 = Sheets(ActiveSheet.Name).Cells(19, 9)
TextBox5 = Sheets(ActiveSheet.Name).Cells(19, 11)
TextBox6 = Sheets(ActiveSheet.Name).Cells(19, 13)
TextBox7 = Sheets(ActiveSheet.Name).Cells(19, 15)
TextBox8 = Sheets(ActiveSheet.Name).Cells(19, 17)
End Sub
Si tu le mets, c'est pour qu'il le fasse !
MFernand un grand merci!