Décaler plage de cellule par macro

JNP

XLDnaute Barbatruc

• 10 Juin 2010

• #2

Re : Décaler plage de cellule par macro

Bonsoir Thomlau ,
Techniquement

Code:

Sub Test()
Range("G6:K7").Cut Destination:=Range("G4:K5")
Range("V8:Z11").Cut Destination:=Range("V4:Z7")
End Sub

mais je ne suis pas sûr que ça va beaucoup t'avancer ...
Bonne soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juin 2010

• #3

Re : Décaler plage de cellule par macro

Bonjour thomlau, salut JNP,

Ou plus simplement (mais je m'interroge aussi) :

Code:

'Il faudrait que la plage G6:K7 soit décalée en G4,
'idem pour la plage V8:Z11 qu'il faudrait décaler en V4

Sub Decaler()
[G6:K7].Cut [G4]
[V8:Z11].Cut [V4]
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juin 2010

• #4

Re : Décaler plage de cellule par macro

Re,

J'ai compris, il y a des formats (bordures) à ne pas modifier.

Donc utiliser ceci :

Code:

Sub Decaler()
Dim o1, o2
o1 = [G6:K7]
o2 = [V8:Z11]
[G6:K7] = ""
[V8:Z11] = ""
[G4].Resize(UBound(o1), UBound(o1, 2)) = o1
[V4].Resize(UBound(o2), UBound(o2, 2)) = o2
End Sub

 

Vote positif 0 Vote négatif

thomlau

XLDnaute Occasionnel

• 10 Juin 2010

• #5

Re : Décaler plage de cellule par macro

Bonsoir les gars et merci de vous être penché sur le sujet;

J'ai oublié de stipuler dans l'énoncé de mon problème, que les plages à décaler ne sont pas toujours positionnées à partir de la même cellule...en fait, dans le 1er exemple, G4 pourrait être G5...
Dans cet exemple, G4 est la première cellule non vide et K7 est la dernière cellule non vide de la plage G2:G100

Ca complique, je sais....

Merci encore pour votre aide.

job75 : il n'y a pas de style de bordure à prendre en compte.

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juin 2010

• #6

Re : Décaler plage de cellule par macro

Re,

Amusant thomlau, on pose un problème hyperlambda pour attirer le chalant et après on complique au fur et à mesure...

Bonne technique.

A+

 

Vote positif 0 Vote négatif

thomlau

XLDnaute Occasionnel

• 10 Juin 2010

• #7

Re : Décaler plage de cellule par macro

loin de moi cette idée, je ne suis pas une sal..., je galère à fond depuis 48H00 et je ne suis pas parvenu a expliquer mon problème du premier coup.

Sur ce bonne soirée.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 10 Juin 2010

• #8

Re : Décaler plage de cellule par macro

Re ,

thomlau à dit:

Dans cet exemple, G4 est la première cellule non vide et K7 est la dernière cellule non vide de la plage G2:G100

Cliquez pour agrandir...

K7 est dans la colonne G ???
Je dois pas avoir le même Excel ...
Jettes un oeil à ce fil, on m'avait proposé des solutions qui pourrait te convenir, et sans macro en plus ...
Bon courage

 

Vote positif 0 Vote négatif