Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

controls d'une frame et fractionnement fenêtre

  • Initiateur de la discussion Initiateur de la discussion Blafi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Blafi

XLDnaute Occasionnel
Bonjour à tous et bon dimanche,

J'ai 2 questions à vous poser :

1/ En VBA et dans un userform, existe-t-il une commande pour faire référence à une frame et à l'ensemble des controles qu'elle contient (il s'agit pour moi de la rendre "Enabled" avec tous ses controles et j'ai essayé "Frame1.controls.enabled=False" mais ça ne marche pas..il semblerait qu'il faille faire une boucle qui rendra Enabled chacun des controles.. Est-ce vrai ?)

2/ toujours en VBA, j'ai une feuille excel que j'ai fractionnée en 2 verticalement. Etant dans une cellule de la fenêtre droite, je voudrais, par une commande VBA dans mon code, revenir à la première cellule sur la gauche et sur la même ligne. Si j'essaye "Activecell.End(xlToLeft).Select ", je reviens à la première cellule au bord de la fenêtre de droite mais pas à la première cellule de la ligne... Comment faire?

Merci d'avance de ce que vous pourrez faire pour m'aider
 
Re : controls d'une frame et fractionnement fenêtre

Bonjour Blafi

pour ta 1ère question, essaye comme ci dessous :

Code:
Dim x As Control
For Each x In Frame1.Controls
    x.Enabled = False
Next x

bonne journée
@+
 
Re : controls d'une frame et fractionnement fenêtre

Re

pour ta 2ème question, si j'ai bien compris, essaye comme ci dessous, code fait avec l'enregistreur.

Code:
ActiveWindow.Panes(1).Activate
    Range("B4").Select

@+
 
Re : controls d'une frame et fractionnement fenêtre

Bonjour,
Re Pierrot,

En complément :
Code:
Sub test()
Cel = ActiveCell.Address
    ActiveWindow.Panes(1).Activate
    Range(Cel).End(xlToLeft).Select
End Sub
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
522
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…