Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Le 17/08/20 à 11:18, Brat'ac a écrit :Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
Le 17/08/20 à 11:18, Brat'ac a écrit :
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
Le 17/08/20 à 11:18, Brat'ac a écrit :Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
Le 17/08/20 à 11:18, Brat'ac a écrit :Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
Le 17/08/20 à 11:18, Brat'ac a écrit :
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
Le 17/08/20 à 11:18, Brat'ac a écrit :Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même
temps
Merci
Bonjour,
Je ne sais pas pourquoi, tu veux copier ces données dans le presse-papier,
mais il est possible de mettre ces données dans une variable "Tableau -
Array" et de travailler par la suite avec ce tableau.
Mon exemple place les données d'un "listview" dans un tableau et les copie
dans une plage de cellules.
Au besoin, tu peux utiliser la commande "Conversion" pour répartir les
données dans leur colonne respective.
'--------------------------------------
Private Sub CommandButton3_Click()
Dim T(), i As Long, A As Long
For i = 1 To ListView1.ListItems.Count
ReDim Preserve T(1 To i)
A = ListView1.ListItems(i).ListSubItems.Count
For x = 1 To A
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Next
T(i) = Left(T(i), Len(T(i)) - 3)
ListView1.SetFocus
Next i
'Copie le tableau dans une plage de cellules débutant en A1 de la feuille
active.
Range("A1").Resize(UBound(T)) = Application.Transpose(T)
End Sub
'--------------------------------------
MichD
T(i) = Left(T(i), Len(T(i)) - 3)
T(i) = Left(T(i), Len(T(i)) - 3)
T(i) = Left(T(i), Len(T(i)) - 3)
Le 17/08/20 à 13:41, Brat'ac a écrit :T(i) = Left(T(i), Len(T(i)) - 3)
Entre chaque items j'insère le symbole "-" avec cette ligne de code :
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Cette ligne de code ne fait qu'enlever le dernier " - " suivant le dernier
élément.
Modifie comme ceci au cas ou t(i) est vide
If Len(t(1)) > 0 then
T(i) = Left(T(i), Len(T(i)) - 3)
End if
MichD
Le 17/08/20 à 13:41, Brat'ac a écrit :
T(i) = Left(T(i), Len(T(i)) - 3)
Entre chaque items j'insère le symbole "-" avec cette ligne de code :
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Cette ligne de code ne fait qu'enlever le dernier " - " suivant le dernier
élément.
Modifie comme ceci au cas ou t(i) est vide
If Len(t(1)) > 0 then
T(i) = Left(T(i), Len(T(i)) - 3)
End if
MichD
Le 17/08/20 à 13:41, Brat'ac a écrit :T(i) = Left(T(i), Len(T(i)) - 3)
Entre chaque items j'insère le symbole "-" avec cette ligne de code :
T(i) = T(i) & ListView1.ListItems(i).SubItems(x) & " - "
Cette ligne de code ne fait qu'enlever le dernier " - " suivant le dernier
élément.
Modifie comme ceci au cas ou t(i) est vide
If Len(t(1)) > 0 then
T(i) = Left(T(i), Len(T(i)) - 3)
End if
MichD
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même temps
Merci
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même temps
Merci
Bonjour,
Avec le code suivant je sélectionne toutes les lignes d'une listview
-------------------------------------------------------------------
For i = 1 To ListView1.ListItems.count
ListView1.ListItems(i).Selected = True
ListView1.SetFocus
Next i
-------------------------------------------------------------------
Comment faire pour qu'elles soient copiées dans le presse-papier en même temps
Merci
Au boulot pour mes automates j'utilise le code ci-dessous à adapter à ton cas
:
Au boulot pour mes automates j'utilise le code ci-dessous à adapter à ton cas
:
Au boulot pour mes automates j'utilise le code ci-dessous à adapter à ton cas
: