Bonjour,
J'aimerais savoir s'il était possible de creer une liste déroulante par code?
Je sais comment la faire a partir de visual basic, mais j'aurais besoin de la coder moi même car je fais une macro pour mon stage et en fait il faudrait que je fasse quelquechose de trés généraliste et qui puisse s'adapter à toute les situations.
En faisant l'enregistrement de macro, voila ce que j'ai reussi à faire, cependant cela me parait un peu bizare.
Aprés je ne sais pas comment récupérer l'info sélectionner mais aussi affecter une nouvelle macro à cette liste.
Vu que cela parait un peu brouillon, je vais mieux m'expliquer, en fet dans ma liste déroulante j'aurais plusieurs nom et en fonction du nom sélectionné j'aimerais construire un tableau avec les informations relatives a ce nom.
Je vous met un petit exemple et je vous remercie pour l'aide.
ActiveSheet.ListBoxes.Add(168.75, 419.25, 72, 71.25).Select
ActiveWindow.SmallScroll Down:=2
Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -1.5
Selection.ShapeRange.IncrementTop -10.25
With Selection
.ListFillRange = "Synt_charge!$AA$1:$AA$100"
.LinkedCell = ""
.MultiSelect = xlNone
.Display3DShading = False
.Name = "liste_inge"
End With
J'aimerais savoir s'il était possible de creer une liste déroulante par code?
Je sais comment la faire a partir de visual basic, mais j'aurais besoin de la coder moi même car je fais une macro pour mon stage et en fait il faudrait que je fasse quelquechose de trés généraliste et qui puisse s'adapter à toute les situations.
En faisant l'enregistrement de macro, voila ce que j'ai reussi à faire, cependant cela me parait un peu bizare.
Aprés je ne sais pas comment récupérer l'info sélectionner mais aussi affecter une nouvelle macro à cette liste.
Vu que cela parait un peu brouillon, je vais mieux m'expliquer, en fet dans ma liste déroulante j'aurais plusieurs nom et en fonction du nom sélectionné j'aimerais construire un tableau avec les informations relatives a ce nom.
Je vous met un petit exemple et je vous remercie pour l'aide.
ActiveSheet.ListBoxes.Add(168.75, 419.25, 72, 71.25).Select
ActiveWindow.SmallScroll Down:=2
Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -1.5
Selection.ShapeRange.IncrementTop -10.25
With Selection
.ListFillRange = "Synt_charge!$AA$1:$AA$100"
.LinkedCell = ""
.MultiSelect = xlNone
.Display3DShading = False
.Name = "liste_inge"
End With
