positionner en 1ere ligne à chaque nouvel enregistrement

[papouny]

Bonjour,

Malgré quelques recherches rapides, je n'ai pas trouvé la réponse à ma question.

J'utilise deux colonnes A et B, en A saisie d'une date et en B un taux

A chaque nouvel enregistrement je voudrais que celui-ci s'inscrive en 1ère ligne devant les autres enregistrements déjà présents.

Cordialement

 

[phlaurent55]

Re : positionner en 1ere ligne à chaque nouvel enregistrement

Bonjour Papouny

pour cela il faut d'abord déplacer les données d'une ligne vers le bas
ou alors insérer une nouvelle ligne au dessus de la première

cela se fera par macro ........... mais sans voir ton fichier 😕😕😕

à+
Philippe

 

[JCGL]

Re : positionner en 1ere ligne à chaque nouvel enregistrement

Bonjour à tous,
Salut Philippe,

Peux-tu essayer avec :

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cancel As Boolean
    If Not Intersect([C5], Target) Is Nothing Then Rows(4).EntireRow.Insert
    Cancel = True
End Sub

A + à tous

 

[papouny]

Re : positionner en 1ere ligne à chaque nouvel enregistrement

Merci, pour votre réponse.

La procédure est correct, mais elle ne se déclenche que si on sélectionne la cellule désignée dans le code.
Peux t'on automatiser la tache.

Cordialement

 

[JCGL]

Re : positionner en 1ere ligne à chaque nouvel enregistrement

Bonjour à tous,

Ton fichier sera nécessaire pour une tentative d'aide optimisée...
Et quelques explication supplémentaires.
Merci.




A + à tous