Excel VBA Listebox dans une feuille

Question

Bonjour la gang,

         J'ai un problem  qui est le suivant. Quand je copie une feuille dans un autre workbook, les liens des cellules nommées reste avec l'ancien workbook même si dans le nouveau workbook, j'ai les même noms. Pour parlier à ce problème, j'ai enregistrer une marco qui renomme les noms des cellules et qui mets à jours les listebox. Toutefois, le code de l'enregistrement de la macro ne s'excécute pas. Le bug se situe à la ligne en rouge.

J'attends vos commentaire.

Merci

Karl

    Wb.Sheets("Data").Select
    Range("A27:A28").Select
    Wb.Names.Add Name:="Data_Cond_Type", RefersToR1C1:= _
        "=Data!R27C1:R28C1"
    Wb.Names("Data_Cond_Type").Comment = ""
    Wb.Sheets("Z Neu table").Select
    Range("G11").Select
    ActiveCell.SpecialCells(xlCellTypeSameValidation).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Data_Cond_Type"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

cs_MPi · Answer

Tu devrais éviter de donner des noms à tes plages.
Ce n'est pas vraiment pratique côté VBA.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Excel VBA Listebox dans une feuille

1 réponse

Votre réponse

Discussions similaires