Erreur 438 Excel

Bonjour

J'ai une procédure VBA qui plante => erreur 438.

Ce qui est surprenant c'est que selon la machine que j'utilise cela fonctionne alors que j'ai les mêmes versoin excel

le débogueur me signale la fonction active sheet :If ActiveSheet.ComboReg.Value = "TOUTES REGIONS - 9999" ...

Avez vous une idée

D'avance merci

Private Sub Workbook_Open()

    'MsgBox "Open 0"
    ActiveWorkbook.Worksheets("SuiviActivité").Select
    'WRegion = ActiveSheet.ComboReg.Value
    If ActiveSheet.ComboReg.Value = "TOUTES REGIONS - 9999" Then
        ActiveSheet.ComboReg.Value = "9999"
        ActiveSheet.ComboReg.Value = "TOUTES REGIONS - 9999"
    Else
        ActiveSheet.ComboReg.Value = "TOUTES REGIONS - 9999"
    End If
    ActiveSheet.ComboReg.Clear
    For i = 1 To 20
        ActiveSheet.ComboReg.AddItem tRegion(i, 2).Value & " - " & tRegion(i, 1).Value
        If tRegion(i + 1, 1).Value = "" Then
            i = 20
        End If
    Next i
    'ActiveSheet.ComboReg.Value = WRegion
    ActiveSheet.ComboReg.Value = "TOUTES REGIONS - 9999"

    ActiveSheet.Unprotect
    Range("selREG").FormulaR1C1 = Right(ActiveSheet.ComboReg.Value, 4)
    Range("selEDS").FormulaR1C1 = Right(ActiveSheet.ComboReg.Value, 4)
    Range("SelEDSTit").FormulaR1C1 = "Activité de la Caisse"
    Range("SelEDSTab").FormulaR1C1 = "Régions"

    GoTo FinOpen

Bonsoir,

Qu'appelez vous un comboreg?

pouvez vous publier votre fichier?

Cdt,

Bonjour,

Ce qui est surprenant c'est que selon la machine que j'utilise cela fonctionne alors que j'ai les mêmes versoin excel

C'est probablement dû à cela : https://forum.excel-pratique.com/cours-astuces/erreur-438-t60484.html

J'y réponds pour ceux qui se retrouveraient dans la même situation (même si l'auteur de ce post a certainement trouvé une solution depuis longtemps) ...

Cordialement,