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 ?
A voir également:
- Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonsoir,
Pour les doublons, tu peux utiliser une macro du type :
Pour le calendrier, tu veux qu'il s'affiche lorsque quelle feuille est activée ? Dans quelle cellule veux-tu mettre la date ?
@+
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 ?
@+
