piga25
XLDnaute Barbatruc
Bonjour le Forum
Je n'arrive pas à comprendre pourquoi j'ai cette erreur lors de l'ouverture de l'UserForm8
J'ai le code d'erreur suivant qui se produit :
Dans le code de l'UserForm8 , j'ai l'erreur, je pense à cette ligne : Set f = Sheets("feuil12")
Je ne comprends pas ma feuille est bien déclarée avec son nom natif ("feuil12") et non le nom de son onglet "Mouvement"
Je n'arrive pas à comprendre pourquoi j'ai cette erreur lors de l'ouverture de l'UserForm8
J'ai le code d'erreur suivant qui se produit :
Dans le code de l'UserForm8 , j'ai l'erreur, je pense à cette ligne : Set f = Sheets("feuil12")
Je ne comprends pas ma feuille est bien déclarée avec son nom natif ("feuil12") et non le nom de son onglet "Mouvement"
VB:
Private Sub UserForm_Initialize()
Dim f As Feuil12
Me.Source.MultiSelect = fmMultiSelectMulti
Set f = Sheets("feuil12")
Me.ListBox1.List = Array("Inscription sur listing", "Départ PC pour effectuer mission", "Entrée dans la cavité", "Sortie de la cavité", "Retour PC pour signaler fin mission", "Quitte le site")
Me.ListBox1.ListIndex = 0
Me.Destination.Caption = Me.ListBox1.List(0)
Me.Destination.TextAlign = fmTextAlignRight
p = Me.ListBox1.ListIndex
n = f.[A65000].Offset(, p * 3).End(xlUp).Row
If n > 1 Then Me.Source.List = f.Range("A2:B" & n).Offset(, p * 3).Value Else Me.Source.Clear
n = f.[D65000].Offset(, p * 3).End(xlUp).Row
If n > 1 Then Me.Dest.List = f.Range("D2:E" & n).Offset(, p * 3).Value Else Me.Dest.Clear
'---histo
n = f.[V65000].End(xlUp).Row
If n > 1 Then Me.Historique.List = f.Range("V2:Y" & n).Value Else Me.Historique.Clear
Me.Source.Visible = False
Me.b_prend.Visible = False
End Sub