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

pelerin65 · 14 Juin 2023

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

Oneida · 14 Juin 2023

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 · 14 Juin 2023

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 · 14 Juin 2023

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 · 14 Juin 2023

Ci joint le fichier

vgendron · 14 Juin 2023

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

Oneida · 14 Juin 2023

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

vgendron · 14 Juin 2023

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

Oneida · 14 Juin 2023

Bonjour vgendron,

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

vgendron · 14 Juin 2023

Oneida à dit:
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 · 14 Juin 2023

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")

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

pelerin65

XLDnaute Occasionnel

Pièces jointes

Oneida

vgendron

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

pelerin65

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Discussions similaires