demande de macro

[mythotem]

Bonjour,
Suivant ma PJ, je voudrais que mon tableau (de formules) jaune se déplace en bas de la dernière date ajoutée, sachant que j'ai déjà créé une petite macro (en PJ aussi) me permettant déjà de mettre ces dites dates dans l'ordre.
Bien amicalement.
Mythotem

 

[Papou-net]

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.

 

[mythotem]

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.

 

[Papou-net]

Re : demande de macro

RE:

Vois si cette nouvelle version te convient.

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

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.

 

[mythotem]

Re : demande de macro

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