[VBA-E]Liste de choix

Version imprimable

02/03/2006, 11h01
sat478

[VBA-E]Liste de choix

Je dispose dans une feuille Excel d'une liste de choix pour une cellule définie par l'option : Données - Validation - Autoriser selon liste (Excel 2000).

Je souhaiterai avoir une liste de choix que je puisse appeller sur plusieurs feuilles différentes en VBA en reprenant par exemples des données qui se trouverait sur une feuille paramètres ou directement dans du code VBA mais je ne sais pas comment faire.

Une idée ? Merci d'avance
02/03/2006, 11h12
Megaxel

Hello!
Fais le en enregistrant une macro: tu auras le code VBA sans effort, tu pourras créer autant de cellule "Liste" que tu veux, partout où tu en as envie.
02/03/2006, 12h45
sat478

cela ne résoudra pas mon problème, puisque la validation avec la liste de choix ne permet de sélectionner des valeurs qui se trouvent uniquement dans la feuille de calcul. Mais comment faire si je veux pouvoir récupérer des données provenant d'une autre feuille ?

tiens un début de réponse...:

à mettre dans le code à ThisWorkBook :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim MyDD
 Sub MaSelection()
 On Error GoTo Fin
  Debug.Print MyDD
  Range(MyDD.LinkedCell) = Range(MyDD.ListFillRange).Cells(MyDD)
  MyDD.Delete
Fin:
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  On Error Resume Next
  If Not MyDD Is Nothing Then MyDD.Delete
  On Error GoTo 0
  If Target.Column <> 2 Then Exit Sub
 
  If Target.Cells.Count = 1 Then
    Debug.Print Target.Left
    Debug.Print Target.Top
    Debug.Print Target.Height
    Debug.Print Target.Width
    Set MyDD = ActiveSheet.DropDowns.Add(Target.Left, Target.Top, Target.Width, Target.Height)
 
    With MyDD
        .ListFillRange = "Feuil1!$D$3:$D$7"
        .Display3DShading = False
        .OnAction = ThisWorkbook.Name & "!ThisWorkbook.MaSelection"
        .LinkedCell = Target.Address
    End With
 
  End If
 
End Sub