OVH Cloud OVH Cloud

pb de refedit

2 réponses
Avatar
Franck
Bonjour à tous
J'utilise un userform sur lequel j'ai placé 5 control refedit:
ref1,ref2,...,ref5
Je l'ai utilise pour la sélection de plage dans mon classeur.Quand on clique
sur un refedit,j'active d'abord une page comme suit

Private Sub refZ1_DropButtonClick()
Sheets("Cas_Zone1").Activate
End Sub

.Mon problème est que quand je clique sur ref1 je n'ai pas les pointillés
alors qu'ils apparaissent toujours avec les autres. A la longue c'est chiant
car j'ai un volume de données assez important à traiter.

Quelqu'un peut il m'aider

2 réponses

Avatar
J-Dan
bonjour Franck,

j'ai teste ton probleme, il semble que ce phenomene se
produit lorsque une page differente est active lorsque le
UserForm est appelle. Ne me demande pas pourquoi !
Les onglets de ta feuille active et de ta feuille
appellee sont "blancs".

une solution, pas tres elegante serait d'activer ta Sheets
("Cas_Zone1") lorsque tu charges ton UserForm.

bon courage


-----Message d'origine-----
Bonjour à tous
J'utilise un userform sur lequel j'ai placé 5 control
refedit:

ref1,ref2,...,ref5
Je l'ai utilise pour la sélection de plage dans mon
classeur.Quand on clique

sur un refedit,j'active d'abord une page comme suit

Private Sub refZ1_DropButtonClick()
Sheets("Cas_Zone1").Activate
End Sub

..Mon problème est que quand je clique sur ref1 je n'ai
pas les pointillés

alors qu'ils apparaissent toujours avec les autres. A la
longue c'est chiant

car j'ai un volume de données assez important à traiter.

Quelqu'un peut il m'aider


.



Avatar
J-Dan
Franck,

j'ai oublie, il faut ajouter une commande : DoEvents

Private Sub UserForm_Activate()
DoEvents
Sheets("Cas_Zone1").Activate
End Sub


-----Message d'origine-----
bonjour Franck,

j'ai teste ton probleme, il semble que ce phenomene se
produit lorsque une page differente est active lorsque
le

UserForm est appelle. Ne me demande pas pourquoi !
Les onglets de ta feuille active et de ta feuille
appellee sont "blancs".

une solution, pas tres elegante serait d'activer ta
Sheets

("Cas_Zone1") lorsque tu charges ton UserForm.

bon courage


-----Message d'origine-----
Bonjour à tous
J'utilise un userform sur lequel j'ai placé 5 control
refedit:

ref1,ref2,...,ref5
Je l'ai utilise pour la sélection de plage dans mon
classeur.Quand on clique

sur un refedit,j'active d'abord une page comme suit

Private Sub refZ1_DropButtonClick()
Sheets("Cas_Zone1").Activate
End Sub

..Mon problème est que quand je clique sur ref1 je n'ai
pas les pointillés

alors qu'ils apparaissent toujours avec les autres. A
la


longue c'est chiant
car j'ai un volume de données assez important à traiter.

Quelqu'un peut il m'aider


.

.