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

AM-MAN · 21 Janvier 2021

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 · 21 Janvier 2021

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

VB:

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 · 22 Janvier 2021

Bonsoir le fil, AM-MAN, sylvanu

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

VB:

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

AM-MAN · 10 Février 2021

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

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

AM-MAN

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

AM-MAN

XLDnaute Nouveau

Discussions similaires