XL 2010 Userform + Croix

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2019

• #2

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

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

VB:

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 5 Septembre 2019

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2019

• #4

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é

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 5 Septembre 2019

• #5

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 5 Septembre 2019

• #6

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2019

• #7

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)

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 5 Septembre 2019

• #8

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

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 5 Septembre 2019

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2019

• #10

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

VB:

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

 

Vote positif 0 Vote négatif