Fichier de suivi Fermé

Question

Bonjour, 
J'ai besoin d'aide pour créer un fichier qui évolue dans le temps. Je m'explique, mon fichier est composé de ligues où je rentre des informations sur plusieurs colonnes. J'amerais créer une case à cocher à la fin de la ligne. Lorsque que l'on coché cette case j'aimerais que cette ligne se déplace à la fin de la liste ( en dessous de toutes les lignes crées ). Merci pour vos réponses

via55 · Answer

Bonsoir

Pas besoin de case à cocher, tu peux déclencher la macro qui va passer une ligne en dernier par un double-clic sur la ligne à traiter

Macro à mettre dans le worksheet de la feuille concernée (ALT+F11 pou ouvrir l'éditeur VBA - Clic sur la feuille dans l'arborescence à gauche - copier coller la macro suivante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Long
x = Target.Row
Rows(x & ":" & x).Select
Selection.Copy
lg = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Rows(lg & ":" & lg).Select
ActiveSheet.Paste
Rows(x & ":" & x).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

Cdlmnt
Via

Fichier de suivi

1 réponse

Discussions similaires

Newsletters