Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection

[pelerin65]

bonjour le forum,

j'ai un userform,

j'aimerais mettre les valeurs des cellules dans des textbox en fin de code en rouge
mais à chaque fois le résultat est : Erreur d'exécution "9" :L'indice n'appartient pas à la sélection

pourtant j'ai fait l'essai avec un classeur1, ca fonctionne peut être trop de textboxs.
je comprends pas

'*****************************************************

' Initialize de l'ensemble de userform à l'ouverture
'*****************************************************
Private Sub UserForm_Initialize()

Sheets("Extraction").Activate
'Sheets("notes Loc Ng").Select

With Me.ListView1
Me.ListView1.CheckBoxes = True

With .ColumnHeaders
.Clear
.Add , , "ESV", 40, lvwColumnLeft
.Add , , "Sillon", 90, lvwColumnCenter
.Add , , "H Dép", 40, lvwColumnCenter
.Add , , "H Arr", 40, lvwColumnCenter
.Add , , "UIC", 30, lvwColumnCenter
.Add , , "Parcours", 400, lvwColumnCenter
.Add , , "R", 20, lvwColumnCenter
.Add , , "N° LIGNE", 55, lvwColumnCenter
.Add , , "Voie", 55, lvwColumnCenter
.Add , , "PK Départ", 55, lvwColumnCenter
.Add , , "PK Arrivée", 55, lvwColumnCenter
.Add , , "Garage", 120, lvwColumnCenter
End With

.Gridlines = False 'Selectionne le cadriage
.FullRowSelect = False 'Sélection des lignes comlètes
.Font.Bold = True
.Font.Size = 12 'taille 10
.View = lvwReport
Extraction = Range("A2" & [A65000].End(xlUp).Row).Value
ligne = 0

For i = 1 To UBound(Extraction)
ligne = ligne + 1
.ListItems.Add , , Extraction(i, 1)
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 5)
.ListItems(ligne).ListSubItems.Add , , Format(Extraction(i, 6), "hh:mm")
.ListItems(ligne).ListSubItems.Add , , Format(Extraction(i, 7), "hh:mm")
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 8)
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 9)
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 10)
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 11)
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 12)
.ListItems(ligne).ListSubItems.Add , , Format(Extraction(i, 13), "0.000")
.ListItems(ligne).ListSubItems.Add , , Format(Extraction(i, 14), "0.000")
.ListItems(ligne).ListSubItems.Add , , Extraction(i, 16)
If .ListItems(ligne).ListSubItems(4) = "ACH" Then ' si dans la colonne 5 "ACH" alors
Dim j As Byte
.ListItems(i).ForeColor = vbBlue
For j = 1 To 11
.ListItems(i).ListSubItems(j).ForeColor = vbBlue 'on mets en bleu chaque ligne dpnt "ACH" est present dans la colonne 5
Next j
End If
Next i
End With

'TextBox1 = Sheets("Feuil4").Range("A2")
'TextBox2 = Sheets("Feuil4").Range("B2")
'TextBox3 = Sheets("Feuil4").Range("Q2")
'TextBox4 = Sheets("Feuil4").Range("E2")
'TextBox5 = Sheets("Feuil4").Range("R2")
'TextBox6 = Sheets("Feuil4").Range("I2")
'TextBox7 = Sheets("Feuil4").Range("J2")
'TextBox8 = Sheets("Feuil4").Range("K2")
'TextBox9 = Sheets("Feuil4").Range("L2")
'TextBox10 = Sheets("Feuil4").Range("N2")
End Sub

 

[vgendron]

Bonjour

ton fichier ne contient pas le code..? normal??
à quel moment obtiens tu le message d'erreur??

l'erreur indique que le code essaie d'acceder à un élément qui n'existe pas==> Pb de syntaxe, nom de controle qui n'existe pas.....

et meme si on copie le code.. il n'a visiblement rien à voir avec le formulaire sur lequel il n'y a qu'un textbox.. (pas de listview)

 

[pelerin65]

rebonjour

j'ai omis de préciser ca a peut être son importance
pourtant dans l essai ca fonctionne avec une frame dans userform soit avec feuilles 1 ou 2
le textboxs 1et 2 sont dans la frame 1
le textboxs 3et 4 sont dans la frame 2
le textboxs 5 et 6 sont dans la frame 3
le textboxs 7,8 et 9 sont dans la frame 4

 

[pelerin65]

Ci joint le fichier

 

[vgendron]

Je pense que tu t'es trompé de fichier
Vérifie et reposte le

 

[Oneida]

Bonjour a tous,

Deux facons de faire

        With Worksheets("Notes Loc Ng")
            TextBox1 = .Range("A2")
            TextBox2 = .Range("B2")
            TextBox3 = .Range("Q2")
            TextBox4 = .Range("E2")
            TextBox5 = .Range("R2")
            TextBox6 = .Range("I2")
            TextBox7 = .Range("J2")
            TextBox8 = .Range("K2")
            TextBox9 = .Range("L2")
            TextBox10 = .Range("N2")
        End With
        'ou
        With Feuil4
            TextBox1 = .Range("A2")
            TextBox2 = .Range("B2")
            TextBox3 = .Range("Q2")
            TextBox4 = .Range("E2")
            TextBox5 = .Range("R2")
            TextBox6 = .Range("I2")
            TextBox7 = .Range("J2")
            TextBox8 = .Range("K2")
            TextBox9 = .Range("L2")
            TextBox10 = .Range("N2")
        End With

 

[vgendron]

ok, j'ai le fichier
par contre.. je ne vois pas à quel moment ca bug..??

 

[Oneida]

Bonjour vgendron,

Dans le fichier mis a dispo, y a pas de Bug, les lignes sont en commentaire. Ceci explique cela...

 

[vgendron]

Bonjour vgendron,

Dans le fichier mis a dispo, y a pas de Bug, les lignes sont en commentaire. Ceci explique cela...

Encore un jeu de piste quoi..
du code hors fichier, avec la partie buggée désactivée
et un fichier qui n'a rien à voir..

 

[pelerin65]

merci pour cette réponse si rapide

Ah bon, moi ca bogué a chaque fois bizarre bon j avais pas mis "with feuil4 ou With Worksheets("Notes Loc Ng")"
j'ai des textbox comme celle ci "TextBox10 = .Range("N2")" avoir le format"000.000")