Listes déroulantes dans une feuille avec des colonnes très étroites

**Kernelok** · 02/11/2017, 05h58

Bonjour

J’ai mis en place une feuille xl avec 40 colonnes étroites , affichage à 90° Pour lire le texte, et chaque cellule associées à une une liste déroulante.

Mon souci est que la liste déroulante affiche avec la largeur de la colonne.... donc illisible et inexploitable !

Avez vous été confronté au même problèmes. Quelles solutions auriez vous ?
je ne peux mettre ma ligne en colonne (ce qui résoudrais le problème d affichage avec une colonne large) car j utilise les lignes pour d autres fonctionnalités.

Merci de votre aide
K

**unparia** · 02/11/2017, 08h55

Bonjour

Difficile de te proposer quelque-chose d'adéquat sans connaître tous tes besoins d'affichage.

Utilise peut-être une listbox activex en lieu et place de ta liste déroulante actuelle.

**Daranc** · 02/11/2017, 09h01

passer ta liste de validation en USF sur la cellule active, mais c'est du VBA

**unparia** · 02/11/2017, 09h11

Bonjour Daranc
Pourquoi un userform (bien plus compliqué que de placer un contrôle activex Listbox) ?

**Daranc** · 02/11/2017, 09h23

Envoyé par unparia

Bonjour Daranc
Pourquoi un userform (bien plus compliqué que de placer un contrôle activex Listbox) ?

effectivement, mais il semble avoir un problème de largeur pour ses listes de validation. L'USF reste à la largeur donné au départ. C'est un poil lourd comme solution,

je ne le nie pas
mais ça devient ...lisible. Après c'est ce que je signalais , c'est du VBA . (et aussi j'ai une aversion pour les activeX ...c'est viscérale ) donc comme je n'utilise pas. J'ai pas l'ouverture
/ connaissance de leur fonctionnement

**boisgontierjacques** · 02/11/2017, 12h40

Bonjour,

Exemple de formulaire pour remplacer Données/Validation

Le comboBox est alimenté par la propriété RowSource

Boisgontier
http://boisgontierjacques.free.fr

**Kernelok** · 02/11/2017, 17h04

Bonjour
Merci à tous de vos retours
Je vais explorer,car c’est nouveau pour moi ces “listbox activex” et “combo box”

Pour apporter plus d’info sur mon sujet, je travaille sur des matrices de polyvalence avec 40 voire 80 colonnes qui sont de 10 à 15 points de large et qui ont une hauteur de ligne de 80 points pour afficher chaque activité à 90°. Je recherche à présenter une liste identique d’activités pour chacune des 40 voire 80 cellules.
Si vous avez d’autres idées ou des exemples de matrices de polyvalence, merci de vos conseils et liens que vous connaîtriez.

Je vous tiendrai au courant de mes avancées sur ces listes avant de clore le sujet
Cordialement
K

**Kernelok** · 02/11/2017, 22h39

@boisgontierjacques

Merci pour le fichier joint, cela est exactement ce qui devrait m'aider pour afficher des listes.
J'ai copié l'onglet dans mon classeur mais rencontre quelques difficultés pour l'intégrer, comme par exemple:
- dans mon classeur, le double clic ne fonctionne plus et m'affiche une erreur. J'ai affiché le code mais ne vois pas où changer "peut être" le nom du classeur...
- comment affecter à une cellule ou plage de cellules le fait de faire référence au menu déroulant ?
- comment affecter à mes cellules la référence au menu déroulant dans l'onglet contenant les listes ?
- comment élargir la boite de dialogue qui présente la liste ? (j'ai trouvé les valeurs pour positionner la boite de dialogue mais pas la largeur)

J'ai compris comment afficher le code vba
Je pense comprendre que la boite en bas à gauche du code fait référence à une active box ou combo box au regard des rubriques
Cependant vous le comprenez, je pars de très loin... même si j'ai il y a longtemps pratiqué des macro et actuellement du swift

si vous pouvez prendre un peu de temps ou me donner des liens de tuto pour intégrer, cela m'aidera bien
par avance merci
k

**Daranc** · 03/11/2017, 11h27

@boisgontierjacques
vrai que le code est d'une simplicité surprenante (dans le sens ou le nombre de lignes est succinct) par contre je ne vois pas comment tu alimentes le Combobox

**Marc-L** · 03/11/2017, 18h25

Bonjour,

via le B-A-BA, sans code ‼ Juste ouvrir les propriétés de ce ComboBox …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**boisgontierjacques** · 03/11/2017, 20h14

Bonsoir,

>je ne vois pas comment tu alimentes le Combobox

Regarder la propriété RowSource du ComboBox.
Ceci pourrait être fait dans Initiliaze du formulaire par Me.comboBox1.List=Range("H2:H26").value

Boisgontier

**Kernelok** · 04/11/2017, 15h26

Bonjour
J’ai avancé dans la compréhension du code de boisgontierjacques mais bloque sur un point
Je voudrais spécifier une plage précise dans un autre onglet
J ai tenté de remplacer «*target.column = 1*» par «*target.cells = range(«A10:B20*»)*» et quelques autres variantes mais le code plante et je ne m’en sors pas....
Pouvez vous m’aider en me donnant la bonne formulation pour cibler une plage dans un autre onglet
Merci
K

**boisgontierjacques** · 04/11/2017, 16h54

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("A2:A20"), Target) Is Nothing And Target.Count = 1 Then
    UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
    UserForm1.Left = 150
    UserForm1.Show
  End If
  Cancel = True
End Sub

Si la liste est longue, on peut faire une recherche intuitive type Google en frappant les premières lettres.

Boisgontier

**unparia** · 04/11/2017, 17h30

Bonjour
-relire mon message (N° 4)
- je ne sais pas où vous allez ainsi, avec un userform. Je vous rappelle que les coordonnées d'un userform ne sont pas déterminées en points, mais en PIXELS et par rapport non à l'angle supérieur gauche de la feuille de calcul (activeWindow), mais par rapport à l'angle supérieur gauche de l'ECRAN, alors que les coordonnées d'une cellule sont déterminées en POINTS, par rapport à l'angle supérieur gauche de la feuille active.

Pourquoi se mettre dans un tel enfer alors que :
- une listbox activex est insérable sur la feuille de calcul
- que le positionnement d'un tel contrôle (ses coordonnées) est déterminé en POINTS
- et donc que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
listbox1.left = range("B4").left
listbox1.top = range("B4").top

placera par exemple Listbox1 à l'angle supérieur gauche de la cellule B4, tout simplement.

Rien n'est dès lors plus simple que :
- de jouer avec la propriété visible de cette listbox
- de l'alimenter des articles que l'ont veut qu'elle affiche en fonction de la cellule concernée (expressions conditionnelles éventuelles si différentes listes)
- de faire ces deux choses lors de l'évènement selection_change (ou autre si l'on y tient)
- de donner à la cellule concernée la valeur du choix dans la listbox.

**Kernelok** · 05/11/2017, 11h18

@boisgontierjacques
Merci pour ta réponse qui m’aide bien
J’ai un ultime besoin avant de clore qui est de désigner dans le code un autre onglet où le menu déroulant apparaîtrait de telle sorte à avoir les listes sur un onglet dédié.
J ai essayé en mettant “worksheet(“Feuil2”).intersec....” mais là encore, je manque de connaissances sur vba

Merci encore de ton aide pour me dépanner
Apres cela, je vais prendre un vrai temps d apprentissage
Cordialement
K

**boisgontierjacques** · 05/11/2017, 13h13

Bonjour,

Rowsource a été supprimé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("A2:A20"), Target) Is Nothing And Target.Count = 1 Then
    UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
    UserForm1.Left = 150
    UserForm1.Show
  End If
  Cancel = True
End Sub

Code du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
  Dim f
  Set f = Sheets("listes")
  Me.ComboBox1.List = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  If Val(Application.Version) > 10 Then SendKeys "{F4}"
End Su
 
Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1
  Unload Me
End Sub

Boisgontier
http://boisgontierjacques.free.fr

**Daranc** · 05/11/2017, 20h58

Envoyé par boisgontierjacques

Bonsoir,

>je ne vois pas comment tu alimentes le Combobox

Regarder la propriété RowSource du ComboBox.
Ceci pourrait être fait dans Initiliaze du formulaire par Me.comboBox1.List=Range("H2:H26").value

Boisgontier

merci je regarde ceci des que je suis sur le pc boulot

je fais toujours du .add item

**Daranc** · 06/11/2017, 09h27

@Unparia
je vois ce que tu veux dire, en regardant avec des fenêtre réduite pour suivre les explication de Jacques, effectivement le combobox se positionne hors feuille ( d'habje travaille toujours en plein écran, ce qui fait qu'au ça ne m'a au final jamais gêné

)
@JacquesBoigondier Vu effectivement c'est rapide (ça m'apprendra à pas tout regarder sur les objets

)

**unparia** · 06/11/2017, 10h46

d'habje travaille toujours en plein écran, ce qui fait qu'au ça ne m'a au final jamais gêné

Ah ? Tu crois ?
Tu te trompes. Il suffit que le DPI de l'écran soit modifié pour tout chambouler

Tu crois vraiment que tout le monde reste en 96 ppp ? --->> Patricktoulon, par exemple et entre autres, a configuré en 120 ppp. Et moi-même en encore un autre DPI