Bonjour à tous,
Après avoir importé des données sur le web, celles ci ne se mettent pas comme il faut dans Excel : les 1ères données se mettent en A2 : D2, les 2ème en A10 : D10, les 3èmes en A18 : D18 et ainsi de suite. J'aimerai qu'elle se mettent en A2 : D2, A3 : D3, A4 : D4 et ainsi de suite. C'est assez simple à l'aide d'une macro :
Range("A10 : D10").Select
Selection.Cut Destination:=Range("A3 : D3")
Range("A18 : D18").Select
Selection.Cut Destination:=Range("A4 : D4")
Range("A26 : D26").Select
Selection.Cut Destination:=Range("A5 : D5")
Cette macro fonctionne pour un nombre de données prédéfini mais le problème c'est qu'il peut y avoir 5 données comme 20. Il faudrait donc remplacé les chiffres par des variables. J'ai essayé ceci :
Dim i, j, k, l As Integer
For i = 10 To 80 Step 8
For j = 10 To 80 Step 8
For k = 3 To 10
For l = 3 To 10
Range("A" & i " : D " & j).Select
Selection.Cut Destination:=Range("A" & k " : D " & l)
Next l
Next k
Next j
Next i
Mais ça ne fonctionne pas au niveau des concaténations. Est ce que quelqu'un saurez me dire ce qui ne va pas ?
Merci d'avance
Après avoir importé des données sur le web, celles ci ne se mettent pas comme il faut dans Excel : les 1ères données se mettent en A2 : D2, les 2ème en A10 : D10, les 3èmes en A18 : D18 et ainsi de suite. J'aimerai qu'elle se mettent en A2 : D2, A3 : D3, A4 : D4 et ainsi de suite. C'est assez simple à l'aide d'une macro :
Range("A10 : D10").Select
Selection.Cut Destination:=Range("A3 : D3")
Range("A18 : D18").Select
Selection.Cut Destination:=Range("A4 : D4")
Range("A26 : D26").Select
Selection.Cut Destination:=Range("A5 : D5")
Cette macro fonctionne pour un nombre de données prédéfini mais le problème c'est qu'il peut y avoir 5 données comme 20. Il faudrait donc remplacé les chiffres par des variables. J'ai essayé ceci :
Dim i, j, k, l As Integer
For i = 10 To 80 Step 8
For j = 10 To 80 Step 8
For k = 3 To 10
For l = 3 To 10
Range("A" & i " : D " & j).Select
Selection.Cut Destination:=Range("A" & k " : D " & l)
Next l
Next k
Next j
Next i
Mais ça ne fonctionne pas au niveau des concaténations. Est ce que quelqu'un saurez me dire ce qui ne va pas ?
Merci d'avance
Dernière édition: