RESOLU - liste déroulante exécutable pour plusieurs cellules

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

La liste déroulante de base dans excel ne permet un affichage (à ma connaissance) qu'en rapport avec la largeur de les colonnes des cellules concernées.

D'autre part, toujours vu de mes petites connaissances, elle n'est pas paramétrable (format etc ...)

J'ai sollicité votre aide il y a quelques temps pour ce sujet et vous m'avez fourni la solution :

à ce moment-là, mon besoin concernait une seule cellule dans une feuille et ça marchait très bien.

Mon besoin a évolué et je n'arrive pas à adapter la macro.

En effet, soit :

- je peux sélectionner dans la macro et dans le code de l'objet, par exemple : les cellules L3 à L1000 et quand je clique sur l'une d'entre elles, ma sélection dans la liste déroulante s'affiche sur toutes les cellules,

- soit, quand j'essaie de modifier, la sélection ne s'affiche que dans la cellule L3, quelque soit la cellule sur laquelle je souhaite afficher la sélection.

C'est pour moi un casse-tête et je ne trouve pas.

Vous le verrez dans le fichier joint, les codes sont les suivants :

Dans le code de la feuille F1
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("L3:L1000")) Is Nothing And Target.Count = 1 Then
Pratique.Show
End If
End Sub

dans le code de l'objet "Pratique"
Code:
Private Sub ComboBox1_Change()
[L3] = ComboBox1.Value
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub

Je vous remercie de votre aide,
Amicalement,
Lionel,
 

Pièces jointes

  • 01 ImmobilierRappelsTest.xlsm
    106.6 KB · Affichages: 26
  • 01 ImmobilierRappelsTest.xlsm
    106.6 KB · Affichages: 39
  • 01 ImmobilierRappelsTest.xlsm
    106.6 KB · Affichages: 36
Dernière édition:

Statistiques des forums

Discussions
284 936
Messages
1 864 339
Membres
155 832
dernier inscrit
NoT
Haut Bas