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

pelerin65

XLDnaute Occasionnel
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:p" & [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
 

Pièces jointes

  • Textbox.xlsb
    26.3 KB · Affichages: 2
Solution
Bonjour a tous,

Deux facons de faire
VB:
        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")...

vgendron

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Oneida

XLDnaute Impliqué
Bonjour a tous,

Deux facons de faire
VB:
        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
 

Discussions similaires

Statistiques des forums

Discussions
312 819
Messages
2 092 402
Membres
105 403
dernier inscrit
LouisRYn