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

Version imprimable

16/03/2006, 13h28
bricereyem

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

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
16/03/2006, 13h38
jmfmarques

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)...
16/03/2006, 14h05
malhivertman1

C'est vrai que ce n'est pas simple de comprendre là
16/03/2006, 14h18
ouskel'n'or
Je te suggère de déjà regarder ça
Code:

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+
16/03/2006, 14h57
ouskel'n'or

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+

ce code est bien

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

mais aucun résultat ne s'affiche dans la plage D...

[Balises "Code" ajoutées par AlainTech]
[Merci d'y penser vous-même à l'avenir.]

16/03/2006, 16h39
SfJ5Rpw8

il faut ce placer dans la colonne B ! ... dans la colonne D tu as les données.. de D3àD7... le tout dans la feuil1..
16/03/2006, 16h47
ouskel'n'or

T'as pas écouté, bricereyem, t'as pas écouté ! :evil:
Mais tu as de la chance, tu es en direct avec l'inventeur... :lol:

Bonne chance