Déplacer un groupe de cellules

[David590]

Bonsoir,

J'ai besoin de déplacer les 2 dernières lignes écrite des colonnes B à E pour les mettre 3 lignes plus bas
Pouvez vous m'expliquer le code à écrire?

 

[Softmama]

Re : Déplacer un groupe de cellules

bonsoir,

tu peux faire ceci :

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)

 

[job75]

Re : Déplacer un groupe de cellules

Bonsoir David590,

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

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+

 

[David590]

Re : Déplacer un groupe de cellules

Les 2 codes fonctionnent

Merci à vous

@+

 

[job75]

Re : Déplacer un groupe de cellules

Re,

Les 2 codes fonctionnent

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+

 

[job75]

Re : Déplacer un groupe de cellules

Bonjour le forum,

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

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

A+

 

[David590]

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 😕

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)

 

[David590]

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

@+

 

[job75]

Re : Déplacer un groupe de cellules

Bonjour David590,

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

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

A+

 

[David590]

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 @+

 

[David590]

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

 

[Grand Chaman Excel]

Re : Déplacer un groupe de cellules

Bonsoir à tous,

Avec ceci peut-être :

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

 

[David590]

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?

 

[Grand Chaman Excel]

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 :

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