Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

AM-MAN

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

Pièces jointes

  • Test Macro.xlsm
    15.7 KB · Affichages: 21

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 )
 

Pièces jointes

  • Test Macro (1).xlsm
    15.2 KB · Affichages: 14

Staple1600

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…