L'indice n'appartien pas a la selection

[creolia]

Bonjour à tous je reviens vers vous pour une erreur dans mon USF que j'arrive pas comprendre.


mon problème est le suivant j'ai voulu ajouter dans ma listview une colonne supplémentaire appeler ici commentaire 2 quand je sélectionne dans mon combobox le nom la pas de soucis elle est bien renseigner je double clic sur un item sa me renseigne également les textbox.

le soucis viens quant je tente de modifier item je clique sur mise a jour et la erreur 9 "L'indice n'appartiens pas a la sélection"

pour information pour avoir la nouvelle colonne j'ai ajouter sa

Private Sub UserForm_Initialize()
 With ListView1
        With .ColumnHeaders
            .Clear 'Supprime les anciens entêtes
            'Ajout des colonnes
            .Add , , "Nom fichier", 200
            .Add , , "Taille", 40, lvwColumnRight
            .Add , , "Créé le", 60, lvwColumnCenter
            .Add , , "Modifié le", 60, lvwColumnCenter
            .Add , , "Commentaires", 200, lvwColumnLeft
             .Add , , "Commentaires2", 200, lvwColumnLeft
        End With
           End With

et sa

.ListItems(£item).ListSubItems(5).Text = Worksheets(£nomfeuille2).Cells(£lig, 9) '5

depuis j'arrive plus a modifier les information en cliquant sur mise a jour


j'ai vraiment besoin de vous s'il vous plait mon niveau est très bas en VBA et pire en listview

merci pour votre aide

 

[creolia]

Re : L'indice n'appartien pas a la selection

re YOU MY HEROS oui c'est tout a fais sa merci merci merci

les premier test sont concluant je l'adapte et je le teste en toute situation mais je crois c'est super

autrement si tu pouvais avoir la gentillesse de m'expliquer comment ta fais les grande ligne ne serais se pour ajouter la colonne se serais sympa merci bonne nuit

 

[Roland_M]

Re : L'indice n'appartien pas a la selection

alors vraiment les grandes lignes !

Dans l’userform :
Dans les propriétés de ListView il y a (personnalisé) et dedans il y a Entêtes de colonnes
(à savoir, qu'il y a 8 col mais que la 1'col n'a pas d'index et que les suivantes commencent à 1 2 . . . 7
c'est parfois fois perturbant dans le code !)

Donc il y en avait déjà 7 au départ !
Mais le problème était que la 6’ et la 7’ était =NomDesFeuilFormation et =AuNoDeLig
J’ai dû créer une 8’colonne et décaler la 6et7 en 7et8 pour libérer la 6’ pour Jour Restant
Et puis créer sous ListView un TextBoxJourRestant

Dans le code il fallait décaler les colonnes pour insérer la nouvelle :

Private Sub RemplirListView1()
. . .
.ListItems(.ListItems.Count).ListSubItems.Add , , "" '5 Col Jour Restant
.ListItems(.ListItems.Count).ListSubItems.Add , , Cellule.Offset(0, 1) '6 Col(invisible) NomFeuilFormation
.ListItems(.ListItems.Count).ListSubItems.Add , , "" '7 Col(invisible) Lig

Private Sub RemplirListView1_2(£item As Long, £NomDeLaFeuilFormation As String, £lig As Long)
With ListView1
. . .
.ListItems(£item).ListSubItems(5).Text = Worksheets(£NomDeLaFeuilFormation).Cells(£lig, 9) '5 Col Jour Restant
'.ListItems(£item).ListSubItems(6).Text est = Col £NomDeLaFeuilFormation
.ListItems(£item).ListSubItems(7).Text = £lig

Private Sub ListView1_DblClick() ' double clic sur listview rempli les textbox
With ListView1.SelectedItem 'les textbox en bas
. . .
TextBoxJourRestant = .ListSubItems(5).Text

Private Sub ButtonMaJ_Click() ' mise à jour recopi contenu TextBox dans la feuille FormationNo
With Sheets(NomDeLaFeuilFormation)
. . .
.Cells(Lig, 9) = TextBoxJourRestant

j'en oubli probablement mais c'est bien sûr dans tout ça que ça se passe !
le plus de temps que l'on passe c'est de lire et interpréter le code déjà fait car on chacun sa façon de faire !

PS: je n'ai pas essayé et je n'ai pas touché au adresses range de données comme par exemple :
For Each Cellule In Sheets(NomDeLaFeuilBase).Range("B2:B" & Sheets(NomDeLaFeuilBase).Range("B65536").End(xlUp).Row)

je suppose qu'au départ c'était correcte !
toutefois si tu as un problème tu peux fais signe !

Je ne t’explique pas pour l’indice n’appartient pas à la sélection, titre de ton fil, ce serait un peu pénible !
a+

 

[creolia]

Re : L'indice n'appartien pas a la selection

Bonjour a tous et un grand bonjour a Roland_M


Alors j'ai tester toute la matinée en l'adaptant au mieux a mon projet je dirais un grand genial de plus j'arrive a pigée plus ou moin les different module du code

en revanche je voulais s'avoir si c'etait possible de mettre a jour les textbox au moment ou ont appuis sur valider car actuelement faut reinitialiser la form pour quelle se mette a jour j'ai bien eu ce code par JP14 a mettre dans le bouton mise a jour mais j'arrive pas a le faire fonctionner meme en changeant les nom des textbox et feuille

pourais tu y jeter un oeil stp

merci a bientot

Private Sub CommandButton2_Click()
With Sheets(nomfeuille2)
 ...................................
With Me.ListView1.ListItems(index1)
    .ListSubItems(1).Text = Me.TextBox5
    .ListSubItems(2).Text = Me.TextBox6
    .ListSubItems(3).Text = Me.TextBox7
    .ListSubItems(4).Text = Me.TextBox8
End With
index1=0
................................
End Sub


Private Sub ListView1_DblClick()
With ListView1.SelectedItem
        index1 = .Index
        nomfeuille2 = .ListSubItems(5).Text
        lig = .ListSubItems(6).Text
....................................
End With
End Sub

 

[creolia]

Re : L'indice n'appartien pas a la selection

RE en fais j'ai une seconde question peut t'on adapter ce code donné par paritec dans se que tu ma donnée

Dim i As Long
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Nom", 60
       .Add , , "Type", 60, 2
       .Add , , "Valeur", 60, 2
    End With
 .View = lvwReport
 .FullRowSelect = False
 .Gridlines = True
        For i = 2 To Sheet1.Range("A65536").End(xlUp).Row
        
           .ListItems.Add , , Sheet1.Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 3)
           
           If Sheets("Sheet1").Cells(i, 3) > 3 Then
               .ListItems(.ListItems.Count).ForeColor = &HFF00&
               .ListItems(.ListItems.Count).ListSubItems(1).ForeColor = &HFF00&               ' '&HFF0000
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF00&
             Else
               .ListItems(.ListItems.Count).ForeColor = &HFF
               .ListItems(.ListItems.Count).ListSubItems(1).ForeColor = &HFF
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF
             End If
        Next
End With
End Sub

en gros sa me servirais comme suit:


si la valeur de mon item(c'est a dire la derniere colonne nb de jour restant)

est inferieure a par exemple 10 couleur du item de la meme ligne devien rouge

si inferieure a 5 couleur item de la meme ligne orange .

pense tu ont peut l'adapter si oui peut tu me l'expliquer stp


merci

a bientot en attendant je cherche aussi

 

[Roland_M]

Re : L'indice n'appartien pas a la selection

bonjour

je ne comprends pas très bien ! je n'ai pas de bouton valider sur mon modèle !?

il faut d'abord sélectionner dans la combobox
puis double clic sur une ligne de la listview
et là apparait le bouton mise à jour avec les textbox rempli !

ci-joint le classeur avec les couleurs !

 

[creolia]

Re : L'indice n'appartien pas a la selection

re bonsoir et merci pour ton classeur tu me sauve une fois de plus

alors c'est pas valide effectivement mais bien mise a jour

ce que j'aurais aimer se serais quand je met a jour un item que la modif apparaisse de suite sans re demarer l USF en tous cas encore un grand merci j'ai grâce a toi bien avancer d'aujourd'hui dans mon projet

 

[Roland_M]

Re : L'indice n'appartien pas a la selection

salut creolia

ci-joint le ton classeur avec ta demande !
re-init la listview après mise à jour !

EDIT

remise à jour !

 

[creolia]

Re : L'indice n'appartien pas a la selection

Re bonjour ecoute genial vraiment merci les couleur et la MaJ fonctionne au top je te remercie sincerement.

une derniere question es ce que je peut utiliser un bouton suprimer pour suprimer une des fiches en cas ou si dans ma formation j'ai un agent qui s'en va ceci es ce possible de le faire

et encore merci pour ton aide a bientot

 

[Roland_M]

Re : L'indice n'appartien pas a la selection

bonjour tout le monde,

Creolia, utiliser un bouton ? OUI sans problème !

Plus sérieusement !
à moins que tu joignes à chaque fois le classeur avec ses dernières modifications à jour
(et ça va pas être facile vu le nombre de fil ouvert)
il est impossible de te faire une fonction FIABLE pour faire cela !
il faudrait déjà connaitre le déroulement de tes formations !
ça devient trop laborieux !

Pour faire une gestion de base de données il faut :
bien connaitre la programmation (élémentaire)
bien préparer et surtout bien organiser son travail selon les besoins !
bien structurer et anticiper afin de pouvoir l'améliorer dans le temps !
etc . . .
et cela demande un minimum d'expérience !
et seulement là, si tu as besoin d'une aide tu viens sur le forum !
mais on ne peu pas à chacun son tour amener sa touche perso !
ça devient ingérable et le code indigeste !

j'espère que tu m'en voudras pas !

et rappels toi,
ce n'est pas quand la construction de la maison est terminée
qu'il faut penser rajouter une cave sous la cuisine.

 

[creolia]

Re : L'indice n'appartien pas a la selection

bonjour Oui je comprend bien je prendrais en compte tous tes conseil en tous cas je t'en veut pas tu ma deja bien aider c'était juste des chose en suplement sans grande importance en tous cas encore merci pour tous à bientôt