Jean Marie,

Concernant ma première demande sur le critère d'ancienneté, voici le lien :

http://cjoint.com/?CBtn17spGDP

Merci encore

Jean-Marie,

Voilà je suis sur un autre projet pratiquement terminé, mais là je bloque. C'est donc au "formuliste" que je m'adresse.

Il s'agit d'un fichier de gestion des absences. Avec du personnel horaire "H" qui ne travaille pas le mercredi et les vacances scolaires. Du personnel "HM" qui travail le mercredi mais pas les vacances scolaires. Du personnel mensuel "M" qui travaille toute la semaine et les vacances scolaires.

Le personnel "H" et "HM" est susceptible de travailler pendant les vacances scolaires, et c'est là que cela me pose pb.

Si je saisi une absence qui ne chevauche pas la période travaillée pendant les vacances scolaires le nombre de jours d'absence est faussé.

Je cherche une solution pour résoudre mon probleme. J'espère que ma demande est assez claire. N'hésite pas à poser des questions

Merci d'avance pour tes lumières

Voici le lien du fichier (trop lourd également).

http://tinyurl.com/be6ntkk

Bonjour Jean-Marie,

Je comprend et t'en remercie.

Le pb c'est que mon fichier est trop gros, même en l'épurant et en le zippant.

Je vais essayé de coller un lien où le télécharger, mais là je suis au bureau et suis bloqué sur les sites de pièces jointes tel que "dl free" et autre par l'administrateur. Je ferai cela depuis la maison.

Merci d'avance.

Didier,

Voici le bout de code :

Private Sub CmdVoir_Click()

 'statut
 If CboStatut.ListIndex <> -1 Then
 statut = CboStatut.Value
 Criteres = Criteres & "(bdd!U2 = """ & statut & """) * "
End If

'contrat
 If CboNatcontrat.ListIndex <> -1 Then
 contrat = CboNatcontrat.Value
 Criteres = Criteres & "(bdd!V2 = """ & contrat & """) * "
End If

'Affectation
 If CboAffectation.ListIndex <> -1 Then
 Affectation = CboAffectation.Value
 Criteres = Criteres & "(bdd!AE2 = """ & Affectation & """) * "
End If

'Affectation2
 If CboPortage.ListIndex <> -1 Then
 Portage = CboPortage.Value
 Criteres = Criteres & "(bdd!AF2 = """ & Portage & """) * "
End If

'Horaire contrat
 If CboHorairecont.ListIndex <> -1 Then
 Horairecont = CboHorairecont.Value
 Criteres = Criteres & "(bdd!Y2 = """ & Horairecont & """) * "
End If

'n° secu
 If ComboBox1.ListIndex <> -1 Then
 secu = ComboBox1.Value
 Criteres = Criteres & "(bdd!L2 = """ & secu & """) * "
End If

'Nom JF
 If ComboBox2.ListIndex <> -1 Then
 Jeunefille = ComboBox2.Value
 Criteres = Criteres & "(bdd!C2 = """ & Jeunefille & """) * "
End If

'Ancienneté
 If ComboBox3.ListIndex <> -1 Then
 ancienneté = ComboBox3.Value
 Criteres = Criteres & "(bdd!AM2 > """ & "20 ans" & """) * "
End If

'Nationalité
 If ComboBox4.ListIndex <> -1 Then
 nationalité = ComboBox4.Value
 Criteres = Criteres & "(bdd!I2 = """ & nationalité & """) * "
End If

If Optiontous.Value = True Then
tous = Optiontous.Value
Criteres = Criteres & "(bdd!A2 <> """ & "" & """) * "
Else
If Optionpresents.Value = True Then
presents = Optionpresents.Value
Criteres = Criteres & "(bdd!T2 = """ & "" & """) * "
End If
End If

If OptionButton1.Value = True Then
Féminin = OptionButton1.Value
Criteres = Criteres & "(bdd!D2 = """ & "Féminin" & """) * "
Else
If OptionButton2.Value = True Then
Masculin = OptionButton2.Value
Criteres = Criteres & "(bdd!D2 = """ & "Masculin" & """) * "
End If
End If

'à ce stade le critère se termine par *... On ajoute donc un 1. Un critère renvoie normalement
'vrai ou faux. En le multipliant par 1 il renvoie 1 ou 0 ce qui est inter^rété de la même façon par excel.
Criteres = "=" & Criteres & "1"
Sheets("filtre").Range("A2").Value = Criteres
 
'on utilise ensuite les critères de choix dans un filtre élaboré sur une feuille masquée
Sheets("filtre").Activate
Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:AN4"), Unique:=False

'Si aucune fiche ne correspond aux critères
If Range("filtre!A5").Value = "" Then
MsgBox ("Aucun nom ne répond à tous vos critères")
'S'il y a plus d'une fiche répondant au critère autrement dit si B6 non vide
'on réaffiche les fiches dans une zone de liste pour en faire choisir une à l'utilisateur
'pour cela on nomme "Fiches Filtrées" la plage contenant les titres sélectionnés.
'Il y a plusieurs façons de faire pour indiquer les coordonnées de cette plage. Ici j'ai choisi
'la fonction décaler (offset en VBA)

ElseIf Range("filtre!A5").Value <> "" Then
    ActiveWorkbook.Names.Add Name:="Fiche", RefersToR1C1:= _
        "=OFFSET(filtre!R5C2,,,COUNTA(filtre!C2)-1)"
Unload UsfSelection
UsfSelect2.Show

'sinon on récupère son numéro de ligne et on affiche la fiche dans le userform UsfAffiche
Else
nom = Range("A5").Value
    With Sheets("bdd").Range("A:A")
    Set c = .Find(Titre, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row
    End With

UserForm2.Show
End If

 
End Sub



Le combobox "ancienneté" est alimenté comme cela : ComboBox3.AddItem "+ de 20 ans"
Mais là, je bloque.

L'ancienneté figure dans la feuille bdd colonne AM (sous forme aa, mm, jj)

Bonjour Didier,

Merci de te pencher sur mon pb.

Mon fichier est bcp trop lourd même en supprimant des données.

Je peux en revanche copier le bout de code.

Merci d'avance.

Bonjour à tous,









J'ai une base de donnée qui contient mes salariés avec une date d'ancienneté.


J'ai un userform ou je rentre divers critères de recherche dans un combobox.
Je voudrais dans le critère ancienneté pouvoir saisir les salariés ayant + de 5 ans, + 10 ans, + 20 ans d'ancienneté, etc ...

Auriez-vous un code à me proposer ?

Merci d'avance.

Pardon,

Le fichier étant trop gros, vous le trouverez ci-dessous

 http://dl.free.fr/gvPGIJZXs

Merci d'avance

Bonjour à tous,

Le titre n'est pas très explicite.

Voila j'ai un fichier pour gérer mes absences (congé, maladie, AT, etc ...)

Mon problème est le suivant : lorsque je saisie une absence, les cellules de mon calendrier se remplisse d'une couleur en fonction de la nature de l'absence. Mais si je saisie une deuxième absence pour la même personne je suis obligé de la saisir dans la ligne du dessous.

Comment pourrais faire pour que les absence d'une même personne apparaissent sur la même ligne. Exemple : maladie du 01/01 au 05/01, puis RTT du 08/01 au 09/01.

Pour comprendre le probleme je vous joins le fichier.

Merci d'avance pour votre aide.