Microsoft 365 ListView

merim

XLDnaute Nouveau
Hello

j´ai crée une listview et j’aimerai lorsque j’ajoute une ligne elle se mette en premier dans la listview et pas en dernier.
Pouvez vous m’aider s’il vous plaît?
 

merim

XLDnaute Nouveau
Salut BrunoM45,

je te remercie pour la réponse.
En réalité j'ajoute des ligne via un formulaire avec le code suivant.

If MsgBox("Voulez vous valider cet enregistrement?", vbYesNo, "MS©2019") = vbYes Then

Lr = f.Range("K" & Rows.Count).End(xlUp).Row + 1

f.Range("B" & Lr).Value = Me.ComboBox2.Value
f.Range("C" & Lr).Value = Me.txtheure.Value
f.Range("D" & Lr).Value = Me.ComboBox13.Value
f.Range("E" & Lr).Value = Me.txtPlaques.Value
f.Range("F" & Lr).Value = Me.cobAupresde.Value
f.Range("G" & Lr).Value = Me.txtDescription.Value
f.Range("H" & Lr).Value = Me.txtRemarque.Value
f.Range("I" & Lr).Value = Me.txtContact.Value
f.Range("J" & Lr).Value = Me.cobConcérné.Value
f.Range("K" & Lr).Value = Me.cobStatut.Value
f.Range("L" & Lr).Value = Me.cobRealisepar.Value
f.Range("M" & Lr).Value = Me.TextBox7.Value
f.Range("N" & Lr).Value = Me.ComboBox10.Value

mais je souhaite qu'il rajoute une ligne case B3 à chaque fois et qu'il fasse donc descendre les autres déjà saisi
Tu as une idée de comment faire??

Merci d'avance
 

ChTi160

XLDnaute Barbatruc
Bonjour merim
Bonjour le Fil ,le Forum
je n'ai peut être pas compris la demande , mais ici on parle des ListView et de la possibilité d'afficher une ligne en Première position dans la ListView .
II-H. Affichage dans la zone visible
La méthode EnsureVisible fait apparaître la ligne spécifiée dans la fenêtre de la ListView.
La macro suivante déplace le 50eme item dans la partie visible de la Listview.
Vba
Sélectionnez
Listview1.ListItems(50).EnsureVisible Si vous souhaitez afficher le 50eme item de la listView dans la première ligne de la partie visible (l'équivalent de TopIndex dans une ListBox), utilisez.
Vba
Sélectionnez
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).EnsureVisible
'50 est la ligne que vous souhaitez placer dans tout en haut de la zone visible
If 50 = ListView1.GetFirstVisible.Index Then Exit For
Next i
End Sub
voir le Lien :
ListView d'après silkyroad
Bonne Journée
jean marie
 

patricktoulon

XLDnaute Barbatruc
re
je me suis fourvoyer en fait ça existe et c'est exactement comme les tableaux structurés

Listview1.ListItems.Add 1, , "toto"
bien sur sur cette ligne ajouter ensuite les subitems
Listview1.ListItems(1).ListSubItems.Add 1, , "blablabla"
Listview1.ListItems(1).ListSubItems.Add 2, , "bidulechouette"
etc......etc....
 

merim

XLDnaute Nouveau
en fait il veux simplement "AJOUTER" une ligne mais la mettre en premier et donc décaler toutes les autres en gros il veux faire un insert before qui n'existe pas je crois nativement
il faut donc recréer la liste


@ChTi160,@patrickboulon merci bcp pour votre aide

Petit résumé, j'ai un tableau avec des noms de colonnes, B à N, sur la ligne 2, que je rempli via un formulaire qui comporte une listview reprenant les infos du tableau... lorsque je rempli une ligne elle se met à la première ligne vide dans mon tableau donc tout en bas mais je souhaite qu'il rajoute une ligne sur la ligne 3 en faisant descendre les autres et comme ca je verrai dans ma listeview le dernier saisi à chaque fois...voilu

pensez vous que c'est possible?
 

Discussions similaires

Réponses
19
Affichages
1 K

Statistiques des forums

Discussions
312 211
Messages
2 086 286
Membres
103 170
dernier inscrit
HASSEN@45