[VBA-E]input et visualisation d'une liste

**bricereyem** · 16/03/2006, 13h28

est-ce possible :
je souhaite créer une liste en double cliquant sur une cellule. les valeurs une fois rentrée seraient stockées dans une colonne d'une autre sheet.
si je clique simple sur ma la cellule, celle ci me propose la liste en visualisation.

qu'en pensezvous ?
merci

**jmfmarques** · 16/03/2006, 13h38

commence par dire que tu es sous VBA, s'il te plait (tag ad hoc) ou si tu es sous autre chose (et quoi ?)
puis précise ce que tu entends par Input (dans ton titre)...

**malhivertman1** · 16/03/2006, 14h05

C'est vrai que ce n'est pas simple de comprendre là

**ouskel'n'or** · 16/03/2006, 14h18

Je te suggère de déjà regarder ça

Code :

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

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "coucou"
End Sub

Code que tu places dans la feuille de code de ta feuille de calcul : Outils -> Macros -> Editeur VB -> Deux clics sur le nom de ta feuille, tu affiches la feuille de code vierge... tu colles
Ensuite, vas faire daux click dans n'importe quelle cellule et observe...
Target indique l'adresse de la cellule ou de la plage
Un test sur l'adresse de la cellule et tu fais ce que tu veux... enfin, presque.

Tu dis

A+

**ouskel'n'or** · 16/03/2006, 14h57

Pour la liste, regarde à cette adresse, bbil donne un exemple

http://www.developpez.net/forums/vie...=liste+cellule

Tu te places dans une cellule de la colonne B : affiche une plage de la colonne D

Reste plus qu'à adapter

A+

**bricereyem** · 16/03/2006, 16h23

ce code est bien

Code :

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

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
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