XL 2010 Userform + Croix

[CATPLUS]

Bonjour à tous
Dans le fichier joint, j'ai créé un Userform pour Entrée les données
Pour fermer l'Userform j'utilise la croix. Aprés utilisation l'Userform reste en bas de la liste.
Comment peut-on revenir en cellule A2? Pour le moment j'ai créé un bouton "Top" mais c'est pas Top!!!
Merci de votre aide
Cordialement

 

[patricktoulon]

bonjour
utilise l’événement queryclose de l'userform

exemple :quand l'userform se ferme la cellule active sera toujours A2

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Sheets("ControleSaisie").Cells(2, 1).Select
End Sub

 

[Eric C]

Bonjour le forum
Bonjour CATPLUS, patricktoulon

@patricktoulon : J'avais essayé aussi cet événement qui ne fonctionne pas (enfin on ne parvient à la case sélectionnée) car ses volets sont figés.
@+ Eric c

 

[patricktoulon]

re
ben les volet figés ne sont pas sélectionnables par VBA il me semble non?
et dans son classeur A2 n'est pas figé

 

[CATPLUS]

Bonjour Patrick
Merci pour la réponse, hélas comme mentionner par Eric, même problématique ne fonctionne pas
@+CATPLUS

 

[Eric C]

Re. Oui, je suis d'accord pour les volets mais je me suis dit que cela venait de là.... mais non car l'action du "bouton Top" exécute l'action qui sélectionne la cellule "A2" donc ???
@+ Eric c

 

[patricktoulon]

re
en effet je viens de tester sur 2007 et 2013 si l'userform et modal en 2013 ca ne fonctionne pas
donc faite un ".show 0" et il n'y aura plus de soucis ( attention en show non modal les cellules reste accessibles)

 

[Eric C]

Ok, ça fonctionne en mode non modal sur 2007 ?? Bizarre ?? Affaire résolue pour notre ami CATPLUS.
@+ Eric c

 

[CATPLUS]

Merci Patrick
Fonctionnement impeccable.
Ce sont ces petits trucs qui prennent la tête. Encore heureux qu'il y a des Patrick & Eric pour nous aider.
Cordialement
CATPLUS

 

[patricktoulon]

attendez resolu si on veut il est possible que le modal soit préféré du développeur pour diverses raison
alors
ben modal alors

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True: Me.Hide: Sheets(1).Range("A2").Select: Unload Me
End Sub