Discussion :

[zandru]

Bonjour,

je cherche à donner l'accès en écriture à une feuille Excel à l'utilisateur par le biais d'une userform.

je m'explique:
mon soft ouvre une feuille Excel préremplie et je souhaite que les utilisateurs puissent remplir cette feuille et que ma userform reprenne la main à la fermeture de cette feuille.

J'ai essayé en utilisant

Code :

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

ActiveWorkbook.ActiveSheet.ShowDataForm

mais cela bloque apparemment à cause de la mise en forme de la feuille Excel ???.

quelqu'un aurait-il une idée ?

[fring]

Bonjour,

Ce n'est pas très clair, si je comprend bien cette phrase

et que ma userform reprenne la main à la fermeture de cette feuille

tu souhaites que ton UserForm s'affiche à la fermeture de la feuille ?

Si c'est ça, tu entends quoi par "fermeture" ?

[zandru]

merci de se pencher sur mon problème.

alors pour répondre à tes questions, je souhaite que ma userform se cache après avoir ouvert la feuille et se rouvre après que l'utilisateur ait fermé la feuille.

Et par fermeture j'entends cliquer sur la croix rouge en haut à droite ou fichier > fermer...

[fring]

Et par fermeture j'entends cliquer sur la croix rouge en haut à droite ou fichier > fermer...

Tu ne dois pas rouler des yeux...tu veux réafficher ton USF à la fermeture d'un autre classeur et pas d'une feuille, voilà pourquoi ma question

Tu peux essayer ceci dans le classeur contenant ton USF

Code à insérer dans l'objet ThisWorkbook :

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

1
2
3
Private Sub Workbook_Activate()
MonUserForm.Show
End Sub

Mais je ne sais pas si ça peut convenir parce que le UserForm va également s'afficher à l'ouverture de ce classeur.

EDIT : finalement cette solution n'est vraiment pas top, le USF s'affichera également si tu bascules simplement d'une fenêtre à l'autre

[zandru]

EDIT : finalement cette solution n'est vraiment pas top, le USF s'affichera également si tu bascules simplement d'une fenêtre à l'autre

Oui, mais cela m'a donner une idée :

j'ai un autre workbook ouvert derrière, je peut donc insérer

Code :

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

1
2
3
4
5
Private Sub Workbook_Activate()
If JeViensDunAutreWorkbook then
 MonUserForm.Show
endif
End Sub

dans celui-ci.

il faut juste que je trouve comment faire JeViensDunAutreWorkbook...
peut-être avec la modification d'une cellule...

je vais essayer et je te dit ce qu'il en est.

[mayekeul]

bonjour,
si c'est à la fermeture et à l'ouverture du fichier..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
private sub Workbook_Open
..
ble bla
 
..
end sub
 
'et aussi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
..
 
bla bla bla
..
End Sub