Discussion :

[pourinfo]

Ce code doit décaler le contenu des cellules vers la droite :

Code :

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

1
2
3
4
5
6
Sub decaler()
'Dim Range As Cells
Range("V1:BA1").Select
Selection.Cut
Range("W1:BB1").Paste
End Sub

"Propriété ou méthode non gérée par cet objet". Merci d'avance, pour ce petit code

[zyhack]

Bonjour

il vaut mieux ne pas trop utiliser les Select / Selection ..

tel que

Code :

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

1
2
3
Sub decaler()
Range("V1:BA1").Cut Range("W1:BB1")
End Sub

ou si tu n'as pas de cellules qui ne doivent pas être déplacées a droite de cette plage, sans utiliser le couper coller

Code :

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

1
2
3
Sub decaler()
Range("V1").Insert Shift:=xlToRight
End Sub

[Gorfael]

Salut pourinfo et le forum
Paste est une propriété de sheets(), pas de range

Code :

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

1
2
3
4
5
6
Sub decaler()
'Dim Range As Cells
Range("V1:BA1").Cut
Range("W1:BB1").select
Activesheet.Paste
End Sub

Pas envie de tester
A+

[pourinfo]

merci,
c'est drôle car le contraire xlToLeft renvoie "Erreur définie par l'application ou par l'objet" ?


Ceci dit, je me suis compte qu'il s'agit de décaler chaque cellule de 1 seule cellule (car il y a une cellule vide entre chaque cellule ayant du contenu), et donc le code est adapté comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub dec3()
Dim Cells As Range
For Each Cells In Range("V1:BA1")
Cells.Select
Cells.Insert Shift:=xlToRight
Next
End
End Sub
 
'l'activation renvoie "Erreur définie par l'application ou par l'objet

Cells ne doit-il pas être reconnu comme une et une seule cellule ?

[zyhack]

Bonjour

pour faire une insertion de ce type il faut partir de la fin

Code :

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

1
2
3
4
5
6
Sub dec3()
Dim colonne As Integer
For colonne = Columns("BA").Column To Columns("V").Column Step -1
  Cells(1, colonne).Insert Shift:=xlToRight
Next
End Sub

[pourinfo]

renvoie : "Erreur définie par l'application ou par l'objet".

[Gorfael]

Salut pourinfo et le forum

Code :

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

Dim Cells As Range

Pas glop, pas glop ! Utiliser Cells, qui est un mot réservé d'Excel, est un bon moyen pour aller dans le mur

si tu expliquais clairement le but à atteindre ?
D'après ton code d'origine, j'avais cru comprendre que tu voulait couper une plage et la coller à une collone à droite. Mais ça n'a pas l'air d'être ça.
A+

[zyhack]

Bonsoir

Le dernier code que je t'ai donné fonctionne chez moi, à tout hasard essaye

Code :

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

1
2
3
4
5
6
Sub dec3()
Dim colonne As Integer
For colonne = Columns(53).Column To Columns(22).Column Step -1
  Cells(1, colonne).Insert Shift:=xlToRight
Next
End Sub