XL 2016 Activer Combobox seulement quand je click sur la cellule liée

job75

XLDnaute Barbatruc

• 8 Février 2022

• #31

Bonjour Philonce, le forum,

Pour dimensionner les ComboBoxes le plus simple est ce code dans ThisWorkbook du fichier (4) :

VB:

Private Sub Workbook_Open()
Dim i As Byte, c As Range
For i = 1 To 9
    With Sheets("Recherche").OLEObjects("ComboBox" & i)
        Set c = .Parent.Range(.LinkedCell) 'cellule liée
        .Top = c.Top
        .Left = c.Left
        .Height = c.Height
        .Width = c.Resize(, 6).Width
    End With
Next
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Il s'exécute quand on ouvre le classeur donc si vous modifiez les tailles des cellules liées fermez et rouvrez le classeur.

Edit : ajouté Me.Saved = True

Pour ce qui est du Module de classe proposé par patricktoulon vous avez intérêt à l'oublier.

A+

 

Pièces jointes

• Listes ComboBox(4).xlsm

  178.3 KB · Affichages: 4

Dernière édition: 8 Février 2022

Vote positif 0 Vote négatif

P

Philonce

XLDnaute Nouveau

• 8 Février 2022

• #32

PARFAIT,

J'ai absolument ce que je cherchais. Je vous remercie infiniment !!!!

Je commence un peu plus à comprendre le code que vous avez utilisé. J'espère me perfectionner petit à petit.

Encore merci !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2022

• #33

Notez que j'ai édité mon post précédent avec Me.Saved = True.

C'est un détail mais qui a son intérêt pour éviter les messages Excel inutiles.

 

Vote positif 0 Vote négatif

P

Philonce

XLDnaute Nouveau

• 8 Février 2022

• #34

Super,

merci encore. J'ai modifié le code. GG à vous,

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Février 2022

• #35

re
bonjour

VB:

pour ce qui est du Module de classe proposé par patricktoulon vous avez intérêt à l'oublier.

@job75
heu c'est un peu rêche ça quand même
c'est quand même toi et non le demandeur qui est venu me le demander non ?

 

Dernière modification par un modérateur: 8 Février 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2022

• #36

patricktoulon à dit:

c'est quand même toi et non le demandeur qui est venu me le demander non ?

Cliquez pour agrandir...

Je n'ai rien demandé du tout parce que je l'avais fait avant toi et bien vu que ça n'allait pas.

 

Dernière modification par un modérateur: 8 Février 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Février 2022

• #37

Je n'ai rien demandé du tout parce que je l'avais fait avant toi et bien vu que ça n'allait pas.

Cliquez pour agrandir...

oui tu dis ça par ce que tu a supprimé la demande sur l'autre post
en plus c'est toi qui a vais mis le lien sinon je ne serais pas venu

 

Dernière modification par un modérateur: 8 Février 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2022

• #38

Sois honnête et rappelle-toi, sur l'autre fil j'avais dit que j'allais créer le Module de classe avec MouseDown.

Comme ça n'a pas marché j'ai supprimé ce message qui polluait le fil.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2022

• #39

Cela dit je demande à notre modérateur Bernard XLD ce qu'il pense de ce propos :

 

Dernière modification par un modérateur: 8 Février 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Février 2022

• #40

re
non!! tu m'invitais a en créer un c'est pas la même chose
je t'assure que je ne serais pas venu sinon car je l'avais déjà survolé cette discussion
après tu fait toutes les demandes que tu veux à @Bernard XLD la vérité c'est la vérité
perso j'y attache une très grande importance

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Février 2022

• #41

Sur l'autre fil je suis intervenu hier à 22:45 après avoir testé le module de classe que j'avais créé ici :

https://www.excel-downloads.com/thr...-classe-avec-gotfocus.20060674/#post-20488048

Ici au post #21 à 23:12 tu m'as demandé si je voulais un module de classe.

Je t'ai répondu au post #22 à 23:18 qu'un module de classe n'allait pas du tout ici.

Il y a peut-être une mauvaise interprétation de ta part sur cet échange mais ce n'est pas une raison pour tenir des propos injurieux.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Février 2022

• #42

Injurieux de quoi
entre
pour ce qui est du Module de classe proposé par patricktoulon vous avez intérêt à l'oublier.
sans compter ceux qui ont été modifiés voir supprimer

le quel de nous deux est injurieux ? out irrespectueux
de quel droit tu te permet de dire " vous avez intérêt à l'oublier"
et entre parenthèses je l'ai jamais vu moi la tienne de classe
bref on va pas continuer , ça sert a rien on va appliquer un proverbe bien connu

 

Dernière modification par un modérateur: 8 Février 2022

Vote positif 0 Vote négatif

P

Philonce

XLDnaute Nouveau

• 23 Février 2022

• #43

Bonjour à tous,

je reviens sur ce sujet pour savoir si une solution existe à ce "petit" problème qui est plus praticopratique que bloquant.
Dans les combobox ici qui fonctionne à merveille, lorsqu''une combobox s'ouvre et que l'on désire roller avec la souris vers le bas, c'est la page qui défile et non la liste dans le menu qui s'ouvre. Existe-t-il un code à insérer pour cela ou c'est impossible ?

Merci d'avance,

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2022

• #44

Bonjour
cherche mollette souris avec patricktoulon

 

Vote positif 0 Vote négatif

P

Philonce

XLDnaute Nouveau

• 23 Février 2022

• #45

J'ai trouvé plusieurs sujet sur le roll dans combobox, mais je viens de tester sur un de mes fichiers et cela n'a pas fonctionné. Je pense vraiment qu'il faut que j'apprenne le VBA.

 

Vote positif 0 Vote négatif