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. Boujour,

    Fonctionne

    Merci beaucoup
    0
    1. Contributeur
      Bonjour,

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

      eric
      0