Contenu récent par Dranreb

Merci de cette précision. Il va donc falloir l'implanter aussi sur tous les contrôles pouvant recevoir le focus … Franchement je préfèrerais avoir à faire un Alt+m.

Bonjour. Et elle était censée correspondre à quoi cette propriété inexistante ?

Vous pouvez peut être aussi terminer tout les Sub du UserForm2 par AppActivate Application.Caption Pas la Sub UserForm_Initialize, s'il y en a une, car ça ne servirait à rien, mais il le faut aussi impérativement dans une Sub UserForm_Activate.

Bonsoir Mettez peut être un CommandButton en dehors de la partie visible du UserForm2, Mettez lui un Accelerator m, et dans sa Private Sub _Click de prise en charge un UserForm1.Show. Ainsi il ne sera plus nécessaire de sélectionner au moins une cellule pour rendre active la fenêtre Excel au...

Bonjour. Essayez les méthodes PointsToScreenPixelsX et PointsToScreenPixelsY de l'objet Pane

Dans ma proposition vous pouvez indiquer à la méthode Plage de l'objet ComboBoxLiées une plage d'un autre classeur. Si ce n'est pas un tableau Excel (non couverte, donc, par un ListObject), vous devez changer les intitulés de colonne par des n° dans les CLs.Add qui suivent.

Non, mais là, il faudrait vraiment un UserForm ! Ça n'empêcherait pas de le positionner au départ sur l'article indiqué dans une ligne sélectionnée d'un bon de commande via une méthode prévue à cet effet …

On peut y taper un début notamment, et même obtenir une sous-sélection de cas contenant quelque part au milieux les caractères tapés.

Une proposition.

Personnellement j'équiperais l'UserForm d'une méthode pour lui communiquer un article sélectionné à afficher.

Pourquoi pas un UserForm qui permettrait d'ajouter, modifier, supprimer ?

Bonjour. Dans la Sub qui positionne l'OLEObject (je suppose que c'est une Private Sub Worksheet_SelectionChange), initialisez la CBxCelActve.Text = Target.Value (CBxCelActive étant le nom supposé de votre ComboBox ActiveX). On est toujours obligé de supposer plein de choses et on ne peut jamais...

Bon, alors il y avait deux sortes de bouton: un bouton de formulaire et un bouton ActiveX, alors moi je vous ai mis deux bouton d'une seule sorte mais un peu intermédiaire entre les deux …

Ah, c'est l'inverse que vous voudriez aussi pouvoir faire. Alors : Private Sub Worksheet_Activate() Dim Rng As Range, M As Integer, T(), Obj As Object, N As Integer Set Rng = Me.[A3].Resize(Me.Cells(2 ^ 20, "A").End(xlUp).Row - 2) M = ThisWorkbook.Sheets.Count - 1: If M > Rng.Rows.Count...

Bonjour. Ajoutez ça dans le module Feuil1 (Synthèse) : Private Sub Worksheet_Activate() Dim T(), Obj As Object, N As Integer ReDim T(1 To ThisWorkbook.Sheets.Count, 1 To 1) For Each Obj In ThisWorkbook.Sheets If Obj.Name <> Me.Name Then N = N + 1: T(N, 1) = Obj.Name Next Obj...