Erreur 381

Bonjour,

J'arrive à la fin de la création de mon tableau mais je ne comprends pas pourquoi cette erreur apparaît lorsque je tente d'ouvrir le formulaire dans l'onglet arrivée quelqu'un peut il m'apporter son aide s'il vous plait.

Merci à vous tous.

Kahina.

Bonjour

Essaie comme ça :

Private Sub UserForm_initialize()

    TextBox1 = Date
    Set fa = Sheets("Arrivées")
    ComboBox1.List = fa.Range("B2:B" & Application.Max(3, fa.Range("B" & Rows.Count).End(xlUp).Row)).Value

End Sub

Bye !

Bonjour,

Merci à toi le problème est réglé mais ce présente maintenant sur le USF2 dans l'onglet départ.

Une question : à quoi sert le ‘’Numéro de départ’’ que tu as, écrit en rouge, en L1 ?

Si on doit le retrouver dans la colonne B, il est préférable de remplacer ton ComboBox1 par un TextBox.

Non ?

Bye !

Bah en faite je voulais qu'apparaisse EN L1 a chaque fois le prochain numéro de départ exemple : si le dernier numéro de départ en colonne B est le 4 m'afficher 5 en L1 mais la formule ne fonctionne pas aurais tu une proposition.

Merci.