Discussion :

[tonyC]

Bonjour,

J'essaie de faire la chose suivante:
Dans une feuille Excel, à partir de la cellule 14 de la colonne A, couper le contenu de cette cellule, le coller 3 cellules plus bas, et recommencer avec un step 11 jusqu'à la millième ligne. J'ai écrit cela ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Intervertir()
 
For i = 14 To 1000 Step 11 ' pour i dont la valeur va de 14 à 1000,
                           ' toutes les 11 lignes
   Range("A & i" ).Select
   Selection.Cut
   Range("A & i + 3" ).Select
   ActiveSheet.Paste
   Next i 'incrémentation
 
End Sub

Ceci donne un message d'erreur 1004, objet Range non reconnu avec la méthode _global.
J'ai également essayé une variante avec Offset, infructueuse elle aussi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Intervertir()
For i = 14 To 1000 Step 11 ' pour i dont la valeur va de 14 à 1000, 
                           ' toutes les 11 lignes
Range("A14" ).Select
Selection.Cut Destination:=Selection.Offset(3, 0).Address
Next i 'incrémentation
End Sub

Voici en somme l'action qui s'enregistre lorsque j'utilise le générateur de macro, et avec laquelle il faudrait faire une boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Macro2()
 Range("A14" ).Select
Selection.Cut
Range("A17" ).Select
ActiveSheet.Paste
Range("A25" ).Select
Selection.Cut
Range("A28" ).Select
ActiveSheet.Paste
Range("A36" ).Select
Selection.Cut
Range("A39" ).Select
ActiveSheet.Paste
Etc juqu'à 1000
End Sub

Merci d'avance pour toute suggestion!!!

[jmfmarques]

Par habitude (quel que soit l'outil, y compris si je ne connais pas VBA) et par prudence, je traite systématiquement ce genre de problème de bas en haut et pas de haut en bas....afin d'éviter des écrasements éventuels)
Si, maintenant, la millième ligne n'est pas la dernière, il faut également y penser.

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Intervertir()
 
For i = 14 To 1000 Step 11 ' pour i dont la valeur va de 14 à 1000, 
                           ' toutes les 11 lignes
   Range("A & i" ).Select
   Selection.Cut
   Range("A & i + 3" ).Select
   ActiveSheet.Paste
   Next i 'incrémentation
 
End Sub

Réfléchi bien a ce que te donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A & i" ).Select

Ce ne serait pas plutot qqch comme ca que tu veux?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & i ).Select

???

[tonyC]

La solution trouvée en tatonnant un peu par hasard...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Intervertir()
For i = 8 To 1000 Step 11
    Cells(i, 1).EntireRow.Select
    Selection.Cut
    Cells(i + 3, 1).EntireRow.Select
    ActiveSheet.Paste
 
 
    Next i
 
    Call Suppression
 
End Sub

Merci pour les suggestions!