Microsoft 365 ListView

[merim]

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?

 

[patricktoulon]

re
bonjour merim
revoir post 14!!

 

[merim]

re
bonjour merim
revoir post 14!!

Merci pour ta réponse rapide mais je ne comprends pas vraiment...

mon code actuel pour remplir le tableau:

Private Sub CommandButton34_Click()

Dim i As Integer
Dim f As Worksheet
Dim Lr As Long

Set f = ThisWorkbook.Sheets("Appels")

For i = 1 To 12

Next i

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

End If

Set f = Nothing
End Sub


merciiiiiiiiiiiiiii

 

[ChTi160]

re
je pensais qu'il fallait afficher la derniere ligne du tableau , comme premiere ligne de la Listview (arff comprends rien Lol)
bonne journée
prenez soin de vous
jean marie

 

[merim]

re
bonjour merim
revoir post 14!!

je te remercie pour ton aide mais je ne comprends pas comment faire....

 

[merim]

re
je pensais qu'il fallait afficher la derniere ligne du tableau , comme premiere ligne de la Listview (arff comprends rien Lol)
bonne journée
prenez soin de vous
jean marie

Merci quand même pour ton aide

bonne journée et prend soin de toi aussi

 

[ChTi160]

Re
Ok
la procédure que tu joins

CommandButton34_Click

n'a rien a voir avec le chargement de la ListView !
ou alors j'ai rien compris lol
jean marie

 

[merim]

Re
Ok
la procédure que tu joins

CommandButton34_Click

n'a rien a voir avec le chargement de la ListView !
ou alors j'ai rien compris lol
jean marie

c'est sans doute moi qui comprend rien...

CommandButton34_Click me sert a remplir mon tableau qui lui est repris dans la listview....

mais mon ajout est ajouté au tableau a la première ligne vide...je souhaite qu'il ajoute plutôt une nouvelle ligne sur la ligne B3 et qu'il remplisse la ligne avec mes infos comme actuellement

 

[patricktoulon]

re
et oui en fait il faut faire l'inverse
insérer la ligne dans ton tableau sur sheets et réinitialiser le listview
donne un fichier en exemple on va pas tout se taper

 

[merim]

re
et oui en fait il faut faire l'inverse
insérer la ligne dans ton tableau sur sheets et réinitialiser le listview
donne un fichier en exemple on va pas tout se taper

Bien sur ;-)

voici le fichier

 

[patricktoulon]

re
ton fichier me demande un tel je n'en ai pas je n'ai d'ailleurs pas la connection avec ton serveur
de plus ton userform est immense, c'est quoi ce truc et j'ai un écran 107 cm c'est pour te dire
bref fait nous un exemple accessible sinon bonne route

 

[merim]

oui j'ai adapté la taille du formulaire à mon écran...dsl j'ai oublié

Private Sub CommandButton34_Click()

Call listviewfi

Dim i As Integer
Dim f As Worksheet
Dim Lr As Long

Set f = ThisWorkbook.Sheets("Appels")


For i = 1 To 12

Next i

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

Unload Me
ThisWorkbook.Save
frmsaisie.Show

Else

Call listviewfi
Call ColorirComCriterios

End If

Set f = Nothing
End Sub

voici mon code actuel lorsque je saisi quelque chose et que je l'enregistre... tout fonctionne bien
ce que j'aimerai c'est que au lieu de rajouter mes données à la premiere ligne vide qu'il rajoute une ligne vide sur la ligne 3 et reprenne mes infos comme actuellement

 

[eriiic]

Bonjour,

comme indiqué par Bruno dès le post #4, tu te mets en enregistrement de macro, tu insères tes cellules en ligne 3 et tu auras le code à ajouter.
eric