demande de macro

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2014

• #2

Re : demande de macro

Bonsoir mythotem,

Pas sûr d'avoir tout compris, mais voici quand-même une copie de ton fichier modifié.

A +

Cordialement.

 

Pièces jointes

• macro tableau mythotem.xlsm

  16.6 KB · Affichages: 25

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 19 Décembre 2014

• #3

Re : demande de macro

Merci Papou-net,
Mais si je mets plusieurs dates, le tableau ne se déplace pas à la verticale de la colonne H.
Peux-tu voir le pb, et me dire où est ta macro.
Merci encore.
Mythotem.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Décembre 2014

• #4

Re : demande de macro

RE:

Vois si cette nouvelle version te convient.

La macro (événementielle) est dans le module Feuil1:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lg As Long
On Error Resume Next
If Selection.Columns = 3 Then
  lg = Range("C" & Rows.Count).End(xlUp).Row
  Application.EnableEvents = False
  Range("Tableau").Cut Destination:=Range("H" & lg - 5)
  Application.EnableEvents = True
End If
End Sub

Cordialement.

 

Pièces jointes

• macro tableau mythotem V1.xlsm

  17 KB · Affichages: 27

Vote positif 0 Vote négatif

M

mythotem

XLDnaute Junior

• 20 Décembre 2014

• #5

Re : demande de macro

Parfait Papou-net !
Passe de bonnes fêtes.
Mythotem

 

Vote positif 0 Vote négatif