Une Boucle au Bon endroit

[BERRACHED said]

Salut,le Forum

j'ai pu faire fonctionner une boucle qui me transcrire le contenu d'une listview sur une feuille de calcule seulement pas dans le bon endroit dans mon application je veut qu'elle me transcrire a partire de la cellul A18 mais la boucle le fait en A1

voici le code :

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
    
    'Boucle sur toutes les lignes
    For i = 1 To ListView1.ListItems.Count
        Sheets("Devis").Cells(i, 1) = ListView1.ListItems(i).Text
        
        'Boucle sur les colonnes
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Sheets("Devis").Cells(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
        Next j
    Next i

End Sub

Cordialement

 

[PascalXLD]

Re : Une Boucle au Bon endroit

Bonjour

essaies en remplaçant
Sheets("Devis").Cells(i, 1) = ListView1.ListItems(i).Text
par
Sheets("Devis").Cells(i+17, 1) = ListView1.ListItems(i).Text

 

[TooFatBoy]

Re : Une Boucle au Bon endroit

Et remplace aussi
Sheets("Devis").Cells(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
par
Sheets("Devis").Cells(i+17, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text

 

[BERRACHED said]

Re : Une Boucle au Bon endroit

Salut,PascalXLD

Merci Pascal c'est parfait ça fonctionne

Cordialement

 

[BERRACHED said]

Re : Une Boucle au Bon endroit

salut a tous

le code proposer fonctionne parfaitement mais seulement j'ai voulu simplifier
en faisant ainsi :

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim x As Integer
x = i + 17
    'Boucle sur toutes les lignes
    For i = 1 To ListView1.ListItems.Count
        Sheets("Devis").Cells(x, 1) = ListView1.ListItems(i).Text
        
        'Boucle sur les colonnes
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Sheets("Devis").Cells(x, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
        Next j
    Next i

End Sub

l'inconvenant il me transcris qu'une Seul ligne alors pourquoi ?

Cordialement

 

[TooFatBoy]

Re : Une Boucle au Bon endroit

Parceque ton x=i+17 n'est pas placé au bon endroit.
Il faut le mettre dans la boucle i.

 

[BERRACHED said]

Re : Une Boucle au Bon endroit

Salut,Marcel32

mais il est dans la boucle comme étant "I" logiquement X c'est I plus les 17 lignes
Cordialement

 

[TooFatBoy]

Re : Une Boucle au Bon endroit

Non, tu l'as mis en dehors de la boucle i.
Donc actuellement tu affectes simplement la valeur 17 à x puisque au moment où tu fais x=i+17 i est nul.

Pour que x change de valeur il faut mettre x=i+17 à l'intérieur de la boucle i (juste après le FOR).
Ainsi, à chaque changement de valeur de i, x changera aussi de valeur.

 

[BERRACHED said]

Re : Une Boucle au Bon endroit

Ré,

Merci Marcel32 je me contente de la première solution

Cordialement

 

[TooFatBoy]

Re : Une Boucle au Bon endroit

C'est effectivement aussi simple.


@+