Erreur 424

Résolu
Bonjour,

J'ai l'erreur 424 (objet requis). Pourquoi et comment corriger ?

Private Sub UserForm_Initialize()
Worksheets("Feuil1").Activate
ComboBox1.List = Application.WorksheetFunction.Transpose("c2:p2").End(xlToLeft).Value
End Sub

Merci

2 réponses

  1. Contributeur
    Bonjour,

    sans doute que .Transpose(range("c2:p2")) serait mieux.

    eric
    0
    1. Boujour,

      Fonctionne

      Merci beaucoup
      0