Boucle for qui ne boucle pas

[Niko71]

Bonjour cher forum,

Je suppose que mon code va vous faire mal aux yeux et que mon problème sera sans doute une évidence, aussi je m'excuse par avance, mais après de nombreuses recherches infructueuses, je rends les armes.

Voici un petit code de mon cru, avec une boucle For. J'ai défini plus haut dans la même macro un tableau Equip(5) que j'aimerai utiliser pour aller chercher des infos et les coller ailleurs.
La première boucle fonctionne comme je veux, mais ca s'arrête là et je ne parviens pas à comprendre pourquoi... Y a-t-il une âme généreuse pour m'expliquer ce que j'ai fait de travers?

Dim k As Byte
    
For k = 0 To k = 5

    If Equip(k) <> "" Then
    Sheets("BDD").Activate
    Worksheets("BDD").Cells(80, WorksheetFunction.Match(Equip(k), Worksheets("BDD").Range("A80:ZZ80"), 0)).Offset(1, 0).Select
        If Selection.Offset(-1, 1) = "Permanent" Then
            If Selection.Offset(1, 0) = "" Then
            Range(Selection, Selection.End(xlToRight)).Select
            Else
            Range(Selection, Selection.End(xlDown)).Select
            Range(Selection, Selection.End(xlToRight)).Select
            End If
            Selection.Copy
        End If
    End If


Sheets("Tdb").Activate
Worksheets("Tdb").Cells(52, WorksheetFunction.Match(txtPrenom.Value, Worksheets("Tdb").Range("A52:ZZ52"), 0)).Offset(1, 3).Select
    If ActiveCell.Offset(1, 0) = "" Then
    ActiveCell.Offset(1, 0).Select
    Else
    Selection.End(xlDown).Offset(1, 0).Select
    End If
ActiveSheet.Paste

Next k

Je vous remercie par avance.

 

[pierrejean]

Bonjour Niko

For k = 0 To 5 'k varie de 0 à 5
au lieu de
For k = 0 To k = 5
K=5 est soit vrai et =1 soit faux et =0

 

[Staple1600]

Bonjour le fil, Niko71

Niko71

J'ai défini plus haut dans la même macro un tableau Equip(5)

On a pas l'escalier pour aller à ton plus haut
Si tu joignais tout le code de la macro et/ou un fichier exemple, ce serait plus simple pour t'aider.

EDITION: Bonjour pierrejean (oeil de lynx )

 

[danielco]

Bonjour,

Mets :

For k = 0 To 5

Cordialement.

Daniel

Edit : @pierrejean: désolé !

 

[Niko71]

J'admire la réactivité de ce forum!

Messieurs un grand merci, dire que j'essaie depuis des heures de trouver le pourquoi du comment...