creer une egaliter entre listview1 et listwiew2

[creolia]

Bonsoir à tous existe t'il une macro qui copirais les 6 colonne de ma listview1 dans ma listview2

j'ai tenter betement

Userform1.Listview2 = Userform1.Listview2

mais evidement cela na pas fonctionner

quelqu'un pourais t'il m'aider merci d'avance

 

[Hellboy]

Re : creer une egaliter entre listview1 et listwiew2

For Each Item In Userform1.Listview2.Value
With Userform1.Listview2
.AddItem Item
End With
Next Item

a tester ......

 

[creolia]

Re : creer une egaliter entre listview1 et listwiew2

bonjour hellboy et merci pour ton aide j'essais de comprendre ta macro pour l'adapter mais je comprend pas comment je dois m'y prendre

j'ai fais comme ceci

Private Sub CommandButton8_Click
For Each Item In Userform1.Listview2.Value
With Userform1.Listview2
.AddItem Item
End With 
Next Item 
end sub

le probleme il me dis membre ou methode de donnée introuvable sa me semble logique vue à aucun moment dans ta macro tu fais reference à listview1

peut tu eclairer ma lanterne

 

[Hellboy]

Re : creer une egaliter entre listview1 et listwiew2

Excuse moi, je suis un peu rouillé......

Private Sub CommandButton1_Click()
Dim ItemName As String
For Item = 1 To Me.ListBox1.ListCount
ItemName = Me.ListBox1.List(Item - 1)
With Me.ListBox2
.AddItem ItemName
End With
Next Item
End Sub

Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "D"
End With

End Sub

En ayant deux listbox dans le même userform, ceci te permet de passer chaque élément de un à l'autre

 

[creolia]

Re : creer une egaliter entre listview1 et listwiew2

re hellboy y a pas de mal je voie tu as mis dans ton code listbox alors que moi c'est une listview es ce la meme chose merci

 

[Hellboy]

Re : creer une egaliter entre listview1 et listwiew2

Private Sub CommandButton1_Click()
Dim ItemName As String
    For Each Item In Me.ListView2.ListItems
        With Me.ListView1
            .ListItems.Add , , Item
        End With
    Next Item
End Sub

Private Sub UserForm_Initialize()
 With Me.ListView2
    .ListItems.Add , , "A"
    .ListItems.Add , , "B"
    .ListItems.Add , , "C"
    .ListItems.Add , , "D"
 End With
End Sub

 

[YANN-56]

Re : creer une egaliter entre listview1 et listwiew2

Bonsoir Creolia, Hellboy, et à ceux qui passeront par là,

Je pense avoir une méthode rapide et efficace,
mais je n'ai pas envie de me farcir une base de données pour remplir une ListView!

Si tu pouvais joindre un Classeur, avec l'initialisation de la ListView1,
je pourrais te suggérer une façon simple de le faire.

Amicalement, et à te lire,

Yann

Cf. La dernière ligne de ma signature...

 

[Si...]

Re : creer une egaliter entre listview1 et listwiew2

Salut

et ainSi... ?

Private Sub CommandButton1_Click()
  Dim n As Byte, k as byte
  'de 1 vers 2
  With ListView2
    .ListItems.Clear
    .ColumnHeaders.Clear    
For n = 1 To ListView1.ListItems.Count
      .ListItems.Add , , ListView1.ListItems(n)
      For k = 1 To 5
        .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(n).ListSubItems(k)
      Next
    Next
 End With
End Sub

 

[creolia]

Re : creer une egaliter entre listview1 et listwiew2

Bonjour à tous

et merci pour votre aide hellboy ta solution j'ai eu du mal à le comprendre car en le mettant en pratique il me copias la listview2 vers la 1 sa c'est pas trés grave suffit inverser mais surtout il me le mettais en colonne et non sur la meme ligne .

j'avous je suis dans mon tord car j'aurais du fournir un fichier d'exemple sa aurais aider tous le monde.

en revanche la solution de Si est trés bien le soucis c'est que l'entete de mes colonne disparais j'ai donc fais un fichier join pour vous comprenier mieux en utilisant la solution de Si

je comprend donc pas pourquoi l'entete disparais merci d'avance de votre aide

 

[creolia]

Re : creer une egaliter entre listview1 et listwiew2

dsl le fichier a pas survie

 

[creolia]

Re : creer une egaliter entre listview1 et listwiew2

re a tous solution ttrouver

Dim n As Byte, k As Byte
  'de 1 vers 2
  With ListView2
    '.ListItems.Clear
    '.ColumnHeaders.Clear
For n = 1 To ListView1.ListItems.Count
      .ListItems.Add , , ListView1.ListItems(n)
      For k = 1 To 5
        .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(n).ListSubItems(k)
      Next
    Next
 End With

j'ai enlever
'.ListItems.Clear
'.ColumnHeaders.Clear
et c'est ok merci à tous pour votre aide precieux.

a bientot