enquetedusavoir
XLDnaute Nouveau
bonjour,
voici mon problème:
je cherche a concevoir un paramétrage d'excel affin d'être le plus intuitif pour celui qui l'utilisera et affin que le fichier ne soit pas trop lourd j'aurais souhaité séparer le fichier qui faisait 3 feuilles en 3 fichiers lié.
pour ce faire j'aurais besoin de créer un menu déroulant (pas de prob sur une même feuil) mais venant d'un autre classeur. n'étant pas un pro j'ai enregistrer une macro automatiquement et je l'ai modifier. est il possible de faire en sorte qu'une saisie semi automatique se fasse?
Private Sub Workbook_Open()
With Range("a10:a20").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=[dégustation.xls]Feuil1!$A$9:$A$6000"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
bien a vous
voici mon problème:
je cherche a concevoir un paramétrage d'excel affin d'être le plus intuitif pour celui qui l'utilisera et affin que le fichier ne soit pas trop lourd j'aurais souhaité séparer le fichier qui faisait 3 feuilles en 3 fichiers lié.
pour ce faire j'aurais besoin de créer un menu déroulant (pas de prob sur une même feuil) mais venant d'un autre classeur. n'étant pas un pro j'ai enregistrer une macro automatiquement et je l'ai modifier. est il possible de faire en sorte qu'une saisie semi automatique se fasse?
Private Sub Workbook_Open()
With Range("a10:a20").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=[dégustation.xls]Feuil1!$A$9:$A$6000"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
bien a vous