F
fudô
Guest
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
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