Fichier de suivi
Besoin d'aide 54700
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 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
A voir également:
- Fichier de suivi
- Fichier bin - Guide
- Fichier epub - Guide
- Suivi des modifications word - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
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 :
Cdlmnt
Via
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
