Erreur sur listindex d'une combobx

[treza88]

Bonjour,

Je cherche de l'aide sur une erreur de listindex sur une combobox, je tourne en rond, j'ai une erreur comme si je demandais a la combobox d'afficher par exemple la 4 eme ligne (derniere ligne) alors quelle nexiste pas, cependant elle existe vraiment.
Est ce un probleme de timing dans la procédure?
Je ne sais pas, je ne sais plus, jene comprend plus ...

Je vous joins les deux pprocedure concerné si vous voyé quelque chose de suspect. L'erreur se situe a la ligne""NomFeuille.ListIndex = Num""

Procedure d'initialisation de userform :

Private Sub UserForm_Initialize()
Dim Feuille As String
    Dim NbFeuil As Integer
    
    On Error Resume Next
    'affichage de la premiere ligne de le combo Reference
    Reference.Value = ""
    Reference.ListIndex = 0
    'Remplissage de la combo sensfil
    With SensFil
        .AddItem ("L")
        .AddItem ("T")
        .AddItem ("S")
    End With
    With Dim_surcote_Long
        .AddItem ("20")
        .AddItem ("15")
        .AddItem ("10")
        .AddItem ("5")
        .AddItem ("0")
    End With
    With Dim_Surcote_larg
        .AddItem ("20")
        .AddItem ("15")
        .AddItem ("10")
        .AddItem ("5")
        .AddItem ("0")
    End With
    'Call Liste_Feuilles
    
    NbFeuil = Worksheets.Count
    
    For i = 5 To (NbFeuil - 1) 'Step 2
        Feuille = Sheets(i).Name
        NomFeuille.AddItem Feuille
    Next i
    
End Sub

Procedure d'activation de la procedure :

Private Sub UserForm_Activate()
    If ActiveSheet.Index < 4 Or Worksheets.Count = ActiveSheet.Index Then
        MsgBox "Attention mauvaise selection, aucune saisie ne peut se faire sur cette feuille!"
        zone1.Hide
        Exit Sub
        
    End If
    
    Num = NomFeuille.ListCount - 1
    NomFeuille.ListIndex = Num
    
    Reference.ListIndex = ind
    Reference.SetFocus
    Set lastCell = Range("D65536").End(xlUp)
    lastCell.Select
    ActiveCell.Offset(1, -1).Select
    Application.Calculation = xlCalculationAutomatic
    Dim Ligne As Integer, Colonne As Integer
Dim Posit As Integer
    
    Posit = lastCell.Row
    If Posit < 10 Then
    zone1.Top = 265
    Else
    zone1.Top = 0
    End If
    
    Ligne = lastCell.Row - 29
    If Ligne >= 0 Then
        With ActiveWindow
            .ScrollRow = Ligne + 1
        End With
    End If

End Sub

D'avance merci

 

[treza88]

Re : Erreur sur listindex d'une combobx

Je vous joins un fichier un peu epuré pour faire des essaies cliquer sur ajouter une feuille remplir les deux textbox et valider

 

[Pierrot93]

Re : Erreur sur listindex d'une combobx

Bonjour,

regarde l'aide vba, mais le 1er élément d'un "listindex" est 0 et le dernier est "listcount" - 1.... en espérant que cela puisse t'aider...

bonne journée
@+

 

[ChTi160]

Re : Erreur sur listindex d'une combobx

bonjour
bonjour le fil
bonjour le forum

en complement de ce qu'a dit pierrot

ComboBox1.List(0) Correspond au premier element du Combobox , 1 Le deuxieme etc etc
je n'ai rien pour tester lol
bonne journee
amicalement
jean marie

 

[treza88]

Re : Erreur sur listindex d'une combobx

Ok merci a vous deux pour ces infos, mais le probleme et je pense plus subtile que ça, car si je met -1 ça fonctionne mais il ne m'affiche dans la combobox pas le bon nom de feuille par rapport à la feuille afiché, il doit y avoir une subtilité que je passe a coté entre initialise est activate du userform qui fait que la combo ne se met pas a jour au moment ou je lui demande d'afficher dans la combo le derniere item de la liste.
Mais je pense qu'il faut tester avec le fichier et aussi comprendre ma logique d'utilisation de cette combo.

De toute façon je cherche encore de mon coté en esperant tomber sur le probleme.

 

[Pierrot93]

Re : Erreur sur listindex d'une combobx

Re, bonjour Jean-Marie🙂

regarde peut être ceci si cela peut t'éclairer...

Private Sub UserForm_Click()
Dim i As Byte
For i = 0 To ComboBox1.ListCount - 1
    MsgBox ComboBox1.List(i)
Next i
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A10").Value
End Sub

@+

 

[treza88]

Re : Erreur sur listindex d'une combobx

Bonjour à tous

Merci Jean marie je pense que maintenant pour le fonctionnement de listcount et listindex il n'y a aucun soucis, j'ai meme remodifier le fichier joint, car j'avais fait tellement de test que je ne me suis pas aperçu que le code de mon fichier n'était pas correct, mais mon probleme ne venait pas de là.
Par contre j'ai fait des esssais chez moi avec unExcel 2003 et là le fichier fonctionne sans soucis.
Par contre à mon boulot avec un excel 2002 ça plantait, alors je vais revoir lundi car peut etre que c'était excell qui bugait et comme je n'ai redémarré ni Excell ni mon PC pour tester, car borné je voulais trouver l'erreur alors qu'il n'y en avait peut etre pas.

Je vous tiens au courant lundi si j'ai toujours des soucis avec excel 2002

 

[treza88]

Re : Erreur sur listindex d'une combobx

Bonjour à tous,

Comme je l'ai dit juste au dessus je pense que je me suis bien pris la tete sur un bug d'Excel car aujourd'hui tous fonctionne apparemment correctement, donc j'aurais du redemarré Excel ou le pc ce qui m'aurait evité de d'ouvrir cette discution.
Cela m'a quand meme permis de clarifier ListCount et Listindex, et pour cela encore merci pour vos explications