deplacer colonnes à la fermeture

[obyone]

bonjour,

je voudrais déplacer des colonnes à la fermeture, j'ai essayé:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
Range("c2:c3").Cut
Range("d2:d3").Paste
DoEvents
End With
End Sub

ca copie mais ca colle pas.

merci d'avance

 

[Lone-wolf]

Re : deplacer colonnes à la fermeture

Bonjour obyone,

tu as omis les . avant chaque Range. Enlève DoEvents, et après With tu rajoute

Application.DisplayAlerts = False
ActiveWorkbook.Save

EDIT: Une autre alternative

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
.Range("c2:c3").Copy .Range("d2")
.Range("c2:c3").ClearContents
End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub

 

[pierrejean]

Re : deplacer colonnes à la fermeture

Bonjour obyone

Salut Lon-wolf

Autre solution:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
.Range("c2:c3").Copy Destination:=.Range("D2")
.Range("C2:C3").ClearContents
DoEvents
End With
End Sub

 

[Lone-wolf]

Re : deplacer colonnes à la fermeture

Bonjour pierrejean

 

[obyone]

Re : deplacer colonnes à la fermeture

bonjour,
merci la version de pierrejean fonctionne.
mais j'ai un petit soucis la colonne à un nombre de lignes variables, j'ai essayé

.Range("c2:c").Copy Destination:=.Range("D2")
.Range("C2:C").ClearContents

mais ca bug sur la premiere ligne.

 

[pierrejean]

Re : deplacer colonnes à la fermeture

Re

A tester:

derlin=.range("C" & rows.count).end(xlup).row
.Range("c2:c" & derlin).Copy Destination:=.Range("D2")
.Range("C2:C" & derlin).ClearContents

 

[obyone]

Re : deplacer colonnes à la fermeture

merci ca foctionne à merveille
à bientot