Déplacer un groupe de cellules

S

Softmama

XLDnaute Accro

• 4 Avril 2011

• #2

Re : Déplacer un groupe de cellules

bonsoir,

tu peux faire ceci :

VB:

Range("B" & Range("B65536").End(xlUp)(0, 1).Row & ":E" & Range("B65536").End(xlUp).Row).Cut Range("B" & Range("B65536").End(xlUp)(3, 1).Row)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2011

• #3

Re : Déplacer un groupe de cellules

Bonsoir David590,

Il est tard, désolé je n'explique rien :

Code:

Sub Deplace()
Dim derlig As Long
derlig = [B65536].End(xlUp).Row
With Range("B" & derlig - 1 & ":E" & derlig)
  .Copy Range("B" & derlig + 2) 'ou => .Copy Range("B" & derlig + 3)
  .ClearContents
End With
End Sub

Edit : bonsoir Softmama 🙂

A+

 

Dernière édition: 4 Avril 2011

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 4 Avril 2011

• #4

Re : Déplacer un groupe de cellules

Les 2 codes fonctionnent

Merci à vous

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2011

• #5

Re : Déplacer un groupe de cellules

Re,

David590 à dit:

Les 2 codes fonctionnent

Cliquez pour agrandir...

Les gens sérieux donnent des codes qu'ils on testés, mais il faut toujours le vérifier en effet.

Edit : Copy et ClearContents conservent les formats de la plage d'origine, contrairement à Cut...

A+

 

Dernière édition: 4 Avril 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2011

• #6

Re : Déplacer un groupe de cellules

Bonjour le forum,

Pour terminer proprement ce fil, avec l'indexation de Softmama :

Code:

Sub Deplace()
With [B65536].End(xlUp)(0).Resize(2, 4)
  .Copy .Offset(3)
  .ClearContents
End With
End Sub

A+

 

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 5 Avril 2011

• #7

Re : Déplacer un groupe de cellules

Bonsoir job75,

Effectivement le Cut copie le format aussi et c'est bien ce qu'il me faut
Par contre j'ai modifié un peu le code pour d'autres boutons et je souhaiterai l’exécuter depuis une autre feuille mais toujours pour les mêmes cellules de la feuille 1
J'ai essayé comme ca, mais ca ne fonctionne pas, je ne comprend pas ou est le problème 😕

Code:

FEUIL1.Range("B" & FEUIL1.Range("B65536").End(xlUp)(-1, 1).Row & ":E" & FEUIL1.Range("B65536").End(xlUp).Row).Cut FEUIL1.Range("B" & FEUIL1.Range("B65536").End(xlUp)(1, 1).Row)

 

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 5 Avril 2011

• #8

Re : Déplacer un groupe de cellules

Bonjour à tous

En fait ça marche, je ne sais pas pourquoi ça n'allait pas, sans doute que j’étais mal réveillé 🙂

Donc plus de problème

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Avril 2011

• #9

Re : Déplacer un groupe de cellules

Bonjour David590,

La méthode donnée au post #6 paraît plus simple non ?

Code:

With [B65536].End(xlUp)(-1).Resize(3, 4)
  .Cut .Offset(2)
End With

A+

 

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 5 Avril 2011

• #10

Re : Déplacer un groupe de cellules

Bonjour job75

C'est vrai, je n'avais pas fait attention que tu avais mis cette méthode aussi
Je vais remplacer ça, plus c'est court, mieux c'est

Merci @+

 

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 6 Avril 2011

• #11

Re : Déplacer un groupe de cellules

Re

Désolé mais j'ai encore un petit souci avec le code, ça copie les 3 lignes avant la dernière cellule écrite de la colonne B, mais est-il possible de copier plutot les 3 lignes avant la dernière cellule ecrite de la colonne B + toutes les lignes après (entre B et E bien sur)

j'ai fais un fichier exemple et j'aimerai que les lignes 25,26,27 ne soit pas effacer mais plutot couper et coller plus bas

Merci d'avance

 

Pièces jointes

• Classeur1.xls

  34.5 KB · Affichages: 71
• Classeur1.xls

  34.5 KB · Affichages: 77
• Classeur1.xls

  34.5 KB · Affichages: 82

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 6 Avril 2011

• #12

Re : Déplacer un groupe de cellules

Bonsoir à tous,

Avec ceci peut-être :

Code:

Private Sub CommandButton1_Click()

maxrow = [B65536].End(xlUp).Row
maxrow = Application.Max(maxrow, [C65536].End(xlUp).Row)
maxrow = Application.Max(maxrow, [D65536].End(xlUp).Row)
maxrow = Application.Max(maxrow, [E65536].End(xlUp).Row)

With Range("B" & maxrow)(-1).Resize(3, 4)
    .Cut .Offset(2)
End With

End Sub

 

Vote positif 0 Vote négatif

D

David590

XLDnaute Occasionnel

• 6 Avril 2011

• #13

Re : Déplacer un groupe de cellules

Bonjour Grand Chaman Excel,

Je viens d'essayer ton code mais il copie tous ce qui est après la dernière cellule de la colonne B mais pas les 3 avant

Je vois pourtant bien Resize(3, 4) sur le code, une autre idée peut être?

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 6 Avril 2011

• #14

Re : Déplacer un groupe de cellules

Bonjour David590,

J'avais mal interprété ce que tu voulais faire. Je pense que c'est ceci que tu recherches :

Code:

Private Sub CommandButton1_Click()

maxrow = [B65536].End(xlUp).Row
rowb = maxrow       'Ligne max de B
maxrow = Application.Max(maxrow, [C65536].End(xlUp).Row)
maxrow = Application.Max(maxrow, [D65536].End(xlUp).Row)
maxrow = Application.Max(maxrow, [E65536].End(xlUp).Row)

With [B65536].End(xlUp)(-1).Resize(maxrow - rowb + 3, 4)
  .Cut .Offset(2)
End With

End Sub

 

Vote positif 0 Vote négatif