Discussion :

[pelerin65]

bonjour, le forum

je me retrouve avec un problème de code

j'ai un userfrom avec 3 frames

- une frame limitation de vitesse avec des lignes de textbox
- une frame environnement avec des lignes de textboxs
- une frame notes juste une textbox

j'ai voulu modifier le code, étant donne que dans la frame limitations de temporaires de vitesse
il y avait 1 combobox et 4 textboxs
n'étant pas pratique j'ai remplacé les comboboxs par des textboxs
le souci, j'ai voulu modifié le code, problème. ca fait plus le transfert dans la feuille correctement

et sur la frame Notes pas de code crée

et j aimerai savoir
lorsque l(on ferme l 'userfrom avec la croix est- ce que ca vide les données
car lorsque je la rouvre elle est vide

je vous remercie de votre aide par avance
je joins le fichier
cordialement
DANGERS.xlsmDANGERS.xlsm

[deedolith]

Salut,

Problème de pièce jointe (corrompue ?), pas moyen de l'ouvrir (Office 2016).

et j aimerai savoir
lorsque l(on ferme l 'userfrom avec la croix est- ce que ca vide les données
car lorsque je la rouvre elle est vide

Oui, lorsque tu fermes un formulaire, ce dernier est détruit, et toutes les données qu'il contient avec lui.

Tu peux aux choix:
- Initialiser les données du formulaire via le gestionnaire d'évènement UserForm_Initialize().
- Te contenter de masquer le formulaire afin qu'il reste en mémoire, via l'evennement UserForm_queryClose()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Me.Hide    '// Masque le formulaire
    Cancel = True    '// Annule l'évennement
End Sub

[pelerin65]

Bonjour,
je remets le fichier
Cordialement
DANGERS.xlsm

[pelerin65]

Re,

Je viens d'intégrer ton code, c'est fonctionnel et une solution.

J'aimerais garder en mémoire les infos dans une feuille du fichier "Data" par exemple
Cordialement

[deedolith]

J'aimerais garder en mémoire les infos dans une feuille du fichier "Data" par exemple
Cordialement

A ce moment la, il te faut:
"Monter" les données issues de la feuille dans le formulaire, lors du chargement.
"Descendre" les données du formulaire dans la feuille lors de la destruction.
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
    Dim Ws As Excel.Worksheet
    Set Ws = ThisWorkbook.Worksheets("Data")
 
    MonControl.Value = Ws.Range("A1").Value
End Sub
 
Private Sub Form_Terminate()
    Dim Ws As Excel.Worksheet
    Set Ws = ThisWorkbook.Worksheets("Data")
 
    Ws.Range("A1").Value = MonControl.Value
End Sub

Note: L'évènement QueryClose ne te serviras plus.
Et n'oublie d'enregistrer le classeur le moment opportun.

[pelerin65]

Re deedolith

je viens d'essayer ton code, ça bug, dois-je retire le code actuel, déjà présent ou pas ?
Cordialement