Fichier de suivi
Besoin d'aide 54700
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
