Bonjour!
 
J'essaie de créer une interface utilisateur, et je sèches déjà sur le menu déroulant. Celui ci doit permettre d'extraire un barrage d'après la liste entrée dans la base de données (Début à partir de B2 avec entête en B1 qui s'appelle "NomBarrage" ). J'ai essayé le code suivant mais ça ne fonctionne pas..  
 
Private Sub Barrage1_Change()
    Dim Barrage As String, NomBarrage$
    Dim f As Worksheet
    Dim c As Range
          Barrage = Barrage1.Text
          Set f = ThisWorkbook.Sheets(2).Rows(1).Find("NomBarrage" )
          Set c = Range(f.Offset(2).Address, f.End(xlDown))
          NomBarrage = f.Rows(1).Find("NomBarrage" ).Offset(2).Value
          UserForm1.Barrage = NomBarrage          
 
End Sub
 
Quelqu'un pourrait-il me le corriger svp? Là je trouves po..(Débutant inside)