boucle conditionnelle

[fudô]

Qu'est ce qui ne va pas dans le test de la condition?

Sub réorganisation_matrice()

Dim i, colonnes, lignes As Integer

colonnes = 4
lignes = 3

For i = 1 To lignes * colonnes

If 1 <= i <= colonnes Then
Cells(i, i).Select
Selection.Cut
Cells(1, i).Select
ActiveSheet.Paste
End If

Next i

End Sub

 

[Rai]

Salut,

Vite vu comme ça, je remplacerais la ligne :
If 1 <= i <= colonnes Then

par
If i>=1 and i<= colonnes Then

Ca devrait correspondre à tes besoins.

Pour info, en VBA (AMHA) on ne peut pas encadrer un test comme tu as souhaité le faire.
Il faut utiliser des combinaisons de tests, liés par AND ou OR (entre autres).

Bon Dimanche