Discussion :

[fabrice57100]

Bonjour,

J' ai mis un contrôle de formulaire zone de liste directement sur ma feuille de calcul afin de renseigner des cellules d' un tableau.

je voudrais que la valeur cliquée de la zone de liste renvoie sa valeur vers une cellule active quelconque.

A première vue, les paramètres au niveau des propriétés d'une zone de liste ne peuvent renvoyer que dans vers une cellule liée fixe.je me trompe?

Sinon quel serait le code VBA pour cela?

J ai essayé avec cela mais çà ne fonctionne pas bien ... pas bien du tout même! j' ai des msg d' erreur à chaque essai de modif du code, le dernier en date est : l' élément portant ce nom n' existe pas

Code :

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

1
2
3
4
5
6
7
8
9
10
MsgBox ActiveCell.Address
 
 
With Worksheets("EVALUATIONDESRISQUESTF")
 
	.Cells(ActiveCell.Address).Value = .Shapes("Zonedeliste2").OLEFormat.Object.Value
 
End With
 
End Sub

Merci d' avance

[Néroxi]

tu peux test :

Code :

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

1
2
3
4
 
L = ActiveCell.Row
C = ActiveCell.Column
Cells(L, C) = Zonedeliste2.Value

ou

Code :

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

1
2
 
Cells(ActiveCell.Row, ActiveCell.Column) = "ta valeur"

[fabrice57100]

j'ai un message d'erreur "Objet requis"

[Theze]

Bonjour,

Voici une Sub() que tu vas lier à ta liste issue des outils "Formulaire" (clic droit --> Affecter une macro...), elle inscrira automatiquement la valeur cliqué dans la cellule active :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub InscrireValeur()
 
    Dim S As Shape
 
    Set S = Worksheets("EVALUATIONDESRISQUESTF").Shapes(Application.Caller)
    ActiveCell.Value = S.ControlFormat.List(S.ControlFormat.ListIndex)
 
End Sub

Maintenant, par rapport à ton code :

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
 
Sub Test()
 
 Dim S As Shape
 
    With Worksheets("EVALUATIONDESRISQUESTF")
 
        Set S = .Shapes("Zonedeliste2")
 
        'dans la cellule active inscrit l'index...
        ActiveCell.Value = S.OLEFormat.Object.Value
 
        'de la même manière que :
        'S.ControlFormat.ListIndex
 
        'sous la cellule active, inscrit la valeur choisie
        ActiveCell.Offset(1).Value = S.ControlFormat.List(S.ControlFormat.ListIndex)
 
    End With
 
End Sub

[fabrice57100]

J ai utilisé cela sur le code de ma zone de liste çà fonctionne impéc !
Dire que je cherche depuis très tôt ce matin .....j' avais testé ta solution mais j' ai du faire un bidouillage et ca n' avait pas marché pfffffffff.
Merci beaucoup.
En fait je n' ai utilisé que la première partie de ce que tu as montré.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Zonedeliste5_QuandChangement()
 
Dim S As Shape
 
    Set S = Worksheets("EVALUATIONDESRISQUESTF").Shapes(Application.Caller)
 
    ActiveCell.Value = S.ControlFormat.List(S.ControlFormat.ListIndex)
 
 
End Sub