XL 2016 Macro pour sélectionner valeur dans liste déroulante

[AM-MAN]

Bonjour à tous,
J'aurais besoin de votre aide car je dois développer un outil de calcul pour mon travail.
Pour la partie formule je me débrouille mais pour les macro c'est plus compliqué! Je fais donc appel aux experts
J'ai fouillé plusieurs sujets pour essayer de trouver un problème similaire auquel vous auriez déjà répondu mais je n'ai rien trouvé!

Mon fichier doit posséder une macro qui réinitialise un certain nombre de cellules de 2 façons:

• En effaçant l'info (pas de problème là dessus, j'ai fait un simple "enregistrement" de macro)
• En sélectionnant la valeur d'une liste déroulante de choix créée au préalable

Je vous met une version simplifiée du fichier pour mieux comprendre!

Merci à tous par avance pour votre aide!

AM

 

[sylvanu]

Bonjour An_Man,
Pas tout compris de l'utilité. Mais en PJ avec :

Sub effacer_informations()
' effacer_informations Macro
    Range("B12:C12").ClearContents
End Sub
Sub Selectionner()
    [B15] = [Liste].Cells(1, 1)
    [C15] = [Liste].Cells(1, 2)
End Sub

( Je me suis aussi permis de simplifier la 1ere macro )

 

[Staple1600]

Bonsoir le fil, AM-MAN, sylvanu

Juste pour le fun (et pour me bercer avant le dodo)
Une simplification de la simplification.

Sub effacer_informations()
[B12:C12] = ""
End Sub
Sub Selectionner()
[B15:C15] = Array([Liste].Item(1), [Liste].Item(2))
End Sub

 

[AM-MAN]

Bonjour Sylvanu et Staple1600, désolée pour le retard et merci pour vos réponses, j'ai pu avancer sur mon fichier!