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

[Philonce]

Bonjour,

j'ai créer un système de recherche pour des tables d'opérations qui sont dans un feuille BD_Tables.
J'ai créé des Combobox pour chacunes des disciplines pour choisir le type de l'intervention et ensuite dans une autre cellule , il y a une formule index et equiv pour retrouver la table à utiliser.

Tout se passe bien jusque là sauf que lorsque je tape mon texte dans la première combobox. Nickel. Par contre, je tape dans la deuxième combobox mon texte, et là, la première s'ouvre....Je voudrais que seul la combobox concernée soient active lorsque je click dans la cellule liée. J'ai cherché beaucoup, mais tout ce que j'ai testé ne fonctionne pas. C'est le dernier truc qui me bloque pour finaliser, et je ne sais plus ou trouver ma solution.

J'espère que ce forum est toujours actif.

Merci d'avance,

 

[job75]

Bonjour Philonce, le forum,

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

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+

 

[Philonce]

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 !

 

[job75]

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.

 

[Philonce]

Super,

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

 

[patricktoulon]

re
bonjour

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 ?

 

[job75]

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

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

 

[patricktoulon]

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

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

 

[job75]

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.

 

[job75]

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

 

[patricktoulon]

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

 

[job75]

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.

 

[patricktoulon]

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

 

[Philonce]

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,

 

[patricktoulon]

Bonjour
cherche mollette souris avec patricktoulon

 

[Philonce]

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.