Discussion :

[sony25]

Bonjour,

Newbie en Vba, je sollicite votre aide.
Je suis entrain de faire un calendrier pour gérer les vacances de salariés.

1janvier 2 janvier 3 Janvier......
Mr toto (A)
Mr tutu (A)
Mr tata (B)
Mr titi (C)
Mr tete (C)
...
...

J'ai une centaine de salarié qui font parti d'une équipe (A, B, C, ...)
Je souhaite faire un bouton (Zone Combiné), pour choisir déjà quelle équipe je souhaite voir apparaitre.
Avec vous une solution?

Et egalement, peut être un peu plus tendu. J'aimerai voir apparaitre la position de mon curseur dans une case en haut. Je m'explique, mon curseur se trouve entre Mr tata et le 3 janvier donc case par exemple D4-G4, dans ma case que j'aurais défini plus haut, j'aimerai voir la date correspondant, donc 3 janvier.
Si vous pouvez m'aider.

Merci!

[SfJ5Rpw8]

un filtre automatique (menu donnée) ne convient-t-il pas ?

[sony25]

Si bien entendu. Mais je préfère le faire par bouton ZoneCombiné pour les utilisateurs du calendrier qui ne sont pas fan d'excel!

[SfJ5Rpw8]

elle est organisé comment ta feuille ?
- Une colonne qui reprends le nom des employés + équipe entre parenthèse
- Une colonne par jour ..
- et au croisement des deux ..? une croix ?

(..)

[sony25]

Merci de vouloir m'aider!
Alors:

Une colonne avec une centaine de lignes pour les noms.
Une autre colonne pour le numéro d'équipe, puis une colonne par numéro de jour.
Ensuite au croisement entre le numéro de jour et un nom, on ecrit par exemple CP pour congé, la case se colorie en vert, F pour formation, la case se colorie en orange, etc...
Et j'aimerais faire en plus, justement la position du curseur qui m'indique la date complet dans une autre case.

[SfJ5Rpw8]

Tu peu utiliser un filtre de données avancé (voir menu donnée)

et piloter ton filtre par une macro ...

On suppose que l'entête de ton tableau est en ligne 6, tu trouve en B6 le titre de ta colonne équipe..

tu copie ce titre en E1 par exemple afin que la plage E1-E2 te permette de définir les critères de ton filtre ..

tu place un contrôle combobox sur ta feuille (feuil2 ..)
en mode modification tu doubleclic sur ton contrôle pour accéder au code associé en ta feuille et tu rajoute le code permettant de remplir ta liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Activate()
    ComboBox1.Clear
    ComboBox1.AddItem "*"
    ComboBox1.AddItem "A"
    ComboBox1.AddItem "B"
    ComboBox1.AddItem "C"
  End Sub

et sur tu utilise l'événement change de ce combobox pour mettre à jour le filtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
 If ComboBox1 = "*" Then
  Feuil2.[E2] = "*"
 Else
  Feuil2.[E2] = "*(" & ComboBox1 & ")*"
 End If
  Feuil2.Range("A6").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Feuil2.Range("E1:E2"), Unique:=False
End Sub

[sony25]

Ok j'essayerai ça ce soir (je ne suis pas chez moi )

L'histoire de la position du curseur on verra plus tard si ya pas de soluce tout de suite!!

Merci en tout cas.