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?
Je vous remercie par avance.
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?
VB:
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.