Macro Excel
Dado2805
-
Gord21 Messages postés 928 Statut Membre -
Gord21 Messages postés 928 Statut Membre -
Bonjour,
Soit le cas de figure suivant:
On a dans la colonne G diverse tâches: ex. cueilette pommes, cueillette poires, cueillette abricots, etc....et il se peut que ces tâches journalières se retrouvent plusieurs fois dans la colonne.
Ce que je souhaite faire est le suivant:
Je souhaiterais qu'en appuyant sur un bouton, qu'une nouvelle feuille dans le même classeur s'ouvre, et que cette feuille ne contienne uniquement 1 seule fois la tâche effectuée. En arrivant sur cette page automatiquement, il faudrait qu'un calendrier s'ouvre, laissant l'utilisateur choisir la date du jour....est-ce possible ?
Soit le cas de figure suivant:
On a dans la colonne G diverse tâches: ex. cueilette pommes, cueillette poires, cueillette abricots, etc....et il se peut que ces tâches journalières se retrouvent plusieurs fois dans la colonne.
Ce que je souhaite faire est le suivant:
Je souhaiterais qu'en appuyant sur un bouton, qu'une nouvelle feuille dans le même classeur s'ouvre, et que cette feuille ne contienne uniquement 1 seule fois la tâche effectuée. En arrivant sur cette page automatiquement, il faudrait qu'un calendrier s'ouvre, laissant l'utilisateur choisir la date du jour....est-ce possible ?
1 réponse
-
Bonsoir,
Pour les doublons, tu peux utiliser une macro du type :Sub Supprimer_doublons() ' ' Dim i As Long ' ' Copie de la feuille '-------------------- ActiveSheet.Copy After:=Worksheets(ActiveSheet.Index) ActiveSheet.Name = "Feuille_triee" Range("G:G").Sort _ Key1:=Range("G1"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers ' ' Suppression des doublons '------------------------- i = 2 While Range("G" & i).Value <> "" If Range("G" & i).Value = Range("G" & (i - 1)).Value Then Range("G" & i).Delete Shift:=xlUp Else i = i + 1 End If Wend Range("A1").Select End Sub
Pour le calendrier, tu veux qu'il s'affiche lorsque quelle feuille est activée ? Dans quelle cellule veux-tu mettre la date ?
@+
