Discussion :

[stéphane_ais2]

Bonjour,

Je voudrais modifier la cellule liée d'une liste déroulante et notamment attribuer la valeur renvoyée par la liste à la cellule sélectionnée par l'utilisateur.


Merci pour votre aide

SE

[Megaxel]

Je ne sais pas si c'est pareil pour tout le monde, mais moi, je n'ai rien compris à ce que tu veux...

[stéphane_ais2]

Je pensais pourtant avoir été clair mais apparement non...

Je tente de reformuler :
- dans une feuille de calcul, il y a une liste déroulante ;
- dans le format de contrôle, j'ai attribué une valeur à la plage d'entrée ;
- il ya également une valeur attribuée pour la cellule liée.

Je souhaiterais savoir s'il est possible de modifier par le code la cellule liée de la liste de telle sorte que la cellule liée soit la cellule active ou selectionnée par l'utilisateur.
Si oui comment faire et sur quel évenement appliquer le code?

Merci pour vos éclaircissements...en espérant avoir été plus clair...

SE

[chmod777]

et que dit le createur de macro auto?

[Megaxel]

Regarde ça:

Code :

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

ActiveSheet.Shapes("Drop Down 3").LinkedCell = ActiveCell

Maintenant, à quel moment veux-tu que le changement se fasse? Je n'arrive pas trop à m'imaginer...

[stéphane_ais2]

Bonjour,

Merci pour vos réponses.

et que dit le createur de macro auto?

L'enregistreur de Macro renvoie ça :

Code :

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

1
2
3
4
5
6
7
8
Range("B12").Select
    ActiveSheet.Shapes("Drop Down 4").Select
    With Selection
        .ListFillRange = "Feuil3!$B$2:$B$340"
        .LinkedCell = "$B$7"
        .DropDownLines = 8
        .Display3DShading = False
    End With

Ce qui ne permet pas d'attacher la cellule liée à la cellule selctionnée...

Code :

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

ActiveSheet.Shapes("Drop Down 3").LinkedCell = ActiveCell

renvoie une erreur de "propriété ou méthode non gérée par cet objet"
...en précisant que j'ai affecté la Macro à la liste déroulante...

SE[/code]

[Megaxel]

Heuu... Tu as bien remplacé "Drop Down 3" par "Drop Down 4", dans le code que je t'ai envoyé?

[stéphane_ais2]

Heuu...Oui...

SE

[Megaxel]

Ok, autant pour moi:

Code :

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

1
2
3
4
    ActiveSheet.Shapes("Drop Down 1").Select
    With Selection
        .LinkedCell = ActiveCell.Address
    End With

Attention, il y a encore un piège sur le nom du Drop Down...

[stéphane_ais2]

Code :

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

1
2
3
4
ActiveSheet.Shapes("Drop Down 4").Select
    With Selection
        .LinkedCell = ActiveCell.Address
    End With

Effectivement, ce code "attache" la cellule liée à la cellule active...donc j'obtiens bien la valeur voulue en fonction du choix fait avec la liste sur cette cellule.
Je sélectionne ensuite une autre cellule, fais un choix dans la liste : la valeur est renvoyée sur la cellule en cours (active) mais...aussi sur la cellule précédement sélectionnée...

J'ai regardé dans le format de contrôle et je constate que dans le champ Cellule liée la référence de la cellule précédement sélectionnée est présente d'où peut-être la nécessité de vider par le code ce champ de propriété du contrôle?

SE