Boucle For ne s'exécute pas correctement

BobODEVIL -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour la communauté

J'ai créé la macro suivante

Sub CopierCollé()

Dim WS5 as WorkSheet : Dim WS6 as WorkSheet

Set WS5 = Feuil5

Set WS = Feuil6

Dim Derligne5 as long

Derligne5 = WS5.Cells(Rows.Count, 1).End(xlup).Row

For i = 2 to Derligne

If WS5.Cells(i, 1) ;value = 26 Then

WS5.Range(WS5.Cells(i,1), WS5.Cells(i,9)). Copy WS6.Cells(2,1)

End if

Next

End sub

La macro s'exécute bien. Sauf que la boucle ne colle qu'une ligne dans la Feuille WS6, là où elle devrait, selon la base de données(WS5), en coller 6.

Il se trouve que le copié coller fonctionne bien sans la boucle.

Qu'est ce qui cloche ?


Windows / Firefox 126.0

A voir également:

4 réponses

Réponse 1 / 4
jee pee Messages postés 41562 Date d'inscription   Statut Modérateur Dernière intervention   9 730
 

Bonjour,

Je ne pratique pas VB mais tu définis la variable Derligne5 et la boucke for elle utilise Derligne.
1
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 

Bonjour JP,

Merci ça pourrait être la réponse, mais en fait il s'agit juste d'une erreur de rédaction sur CCM.

Sur ma page Macro la procédure est correctement écrite.

0
Réponse 2 / 4
jee pee Messages postés 41562 Date d'inscription   Statut Modérateur Dernière intervention   9 730
 

Et dans le copy il ne devrait pas y avoir i,1 à la place de 2,1 ?
0
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 

Merci pour ta proposition, mais non 

"i" Scanne la première feuille WS5.

Je prévois en effet autre variable pour désigner l'emplacement final. Mais d'abord. Régler le problème de la boucle

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 

bonjour, comme chaque copie efface la copie précédente, comment sais-tu que la boucle ne fait qu'une seule copie?

0
Réponse 3 / 4
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

As-tu vérifié la valeur de Derligne5?

cette instruction me semble incorrecte:

Derligne5 = WS5.Cells(Rows.Count, 1).End(xlup).Row

moi j'écrirais

Derligne5 = WS5.Cells(WS5.Rows.Count, 1).End(xlup).Row
0
bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 

Derligne5 Correspond bien à la dernière ligne de la colonne des données.

Quand à  l'instruction, je l'ai testé à l'instant. C'est sans incidence sur la procédure, et çà ne change rien  au niveau du résultat

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > bobodevil Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 

comme chaque copie efface la copie précédente, comment sais-tu que la boucle ne fait qu'une seule copie?

0
Réponse 4 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 

Bonjour a tous

Si j'ai bien compris, copier/coller chaque ligne dont Ai=26 Feuil5 vers Feuil6

Il faut un pointeur de ligne pour Feuil6

Sub CopierCollé()
    Dim WS5 As Worksheet: Dim WS6 As Worksheet
    Dim Derligne5 As Long
    
    Set WS5 = Feuil5
    Set WS6 = Feuil6
    Derligne5 = WS5.Cells(WS5.Rows.Count, 1).End(xlUp).Row
    Rng = 2
    For i = 2 To Derligne5
        If WS5.Cells(i, 1).Value = 26 Then
            WS5.Range(WS5.Cells(i, 1), WS5.Cells(i, 9)).Copy WS6.Cells(Rng, 1)
            Rng = Rng + 1
        End If
    Next i
End Sub
0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
Mon PC marque press the esc key for startup menu
Jonas2022 -
SATS_fr -

5 réponses