Discussion :

[rodrigue62]

Bonjour,
J'execute a partir d'un tableau Excel un code VBA qui lance des boites de dialogues (user forms). Le probleme est que pendant que la boite de dialogue est active j'aimerai pouvoir observer la feuille excel (en utilisant les petits ascenceurs en bas et sur le coté), mais cette feuille est bloquée. Y aurrait il moyen de pouvoir le faire? je ne pense pas a priori, mais je prefere etre sur et poser la question.
Si l'un d'entre vous a la moindre idée ca serait bien de m'en faire part.
Merci d'avance.

[SilkyRoad]

bonjour

Si j'ai bien compris ta demande, tu dois passer ton Userform en non modal:

http://silkyroad.developpez.com/VBA/UserForm/#LIII-A-2


bonne soirée
michel

[rodrigue62]

Oui c'est bien ca qu'il faut faire, merci, j'ai eu raison de poser la question tout compte fait. Du coup je me permets d'en poser une autre, peut on proteger la cellule active, c'est a dire que je peux me deplacer dans la feuille mais la cellule active reste toujours la meme, meme si je clique par megarde sur une autre cellule. Ou par exemple si au moment de l'apparition de mon user forms si j'ai un ligne de selectionnée, que celle ci reste selectionnée. En gros je veux pouvoir explorer la feuille comme je peux le faire desormais grace a Silky, mais sans pouvoir y apporter de modification. J'espere avoir ete assez clair, merci d'avance pour vos reponses.

[SilkyRoad]

bonsoir

Tu peux par exemple protéger la feuille lorsque tu lances l'UserForm, puis tu déprotèges à la fermeture

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    ActiveSheet.Protect
End Sub

Code :

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

1
2
3
Private Sub UserForm_Terminate()
    ActiveSheet.Unprotect
End Sub

michel

[rodrigue62]

Salut,
Je viens d'essayer en protegeant la feuille, on ne peut donc pas faire de modif ce qui est bien, mais par contre on peut deplacer la cellule active, ce qui me pose un problème puisque en fait la suite du programme realise des deplacements par rapport a la cellule active, donc tous est ensuite faussée.
Ou bien il faudrait que je recupere l'adresse de la cellule active avant l'affichage de chaque fenetre et y revenir ensuite avant de faire mes deplacements. Mais si quelqu'un voit une autre solution qu'il n'hesite pas a m'en faire part.
Merci.

[SilkyRoad]

bonjour

Dans ce cas tu peux utiliser:

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
    ActiveSheet.EnableSelection = xlNoSelection
    ActiveSheet.Protect
End Sub

michel