Discussion :

[avyrex]

Bonjour,


Je rencontre un petit problème avec la fonction countif.

Dans mon userform1, se trouve le combobox 14, il me donne le nombre de fois que la valeur du textbox13 se trouve dans la colonne K de la feuille "Base de donnée".

Voici le scripte:

Code :

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

1
2
3
4
5
6
Private Sub CommandButton6_Click()
TextBox14 = Application.WorksheetFunction.CountIf(Range("k:k") , (ComboBox1.Text & "PARTIEL SUR APPEL: Absence refus"))
If TextBox14 > (3) Then
MsgBox "L'EMPLOYÉ" & " " & ComboBox1.Value & " " & " à " & " " & TextBox14.Value
End If
End Sub

Et c'est là que vient le problème.

Dans la colonne I, se trouve la date et je voudrais qu'il compte le nombre de fois que la valeur du textbox13 qui se trouve dans la colonne K de la feuille "Base de donnée" seulement si la date de la même ligne, toujours dans la colonne I est plus grand ou égale à la date actuel -30.

Est-ce possible?



Merci de vôtre aide

[fring]

Bonjour,

J'ai un peu de mal à lier l'énoncé (TextBox13) du problème avec le code (ComboBox1).

J'ai essayé de pondre un truc qu'il faudra légèrement adapter selon tes TextBox et ComboBox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton6_Click()
Dim x As Date, i%, nb%
nb = 0
x = Format(Date, "dd/mm/yyyy")
For i = 1 To Cells(Rows.Count, 9).End(xlUp).Row
Select Case Cells(i, 9)
Case x - 30 To x
If Cells(i, 11) = TextBox13.Value Then nb = nb + 1
End Select
Msgbox "Le nombre de jour est " & nb
Next
 
End Sub

[avyrex]

merci beaucoup fring,

Je crois qu'ont y arrives.

Dans le ComboBox1, il y à le nom de la personne. ex: Denis Picard.

Je veux par exemple trouver dans la colonne k le nombre de fois qu'il voit la valeur "Denis Picard PARTIEL SUR APPEL: Absence refus" seulement si dans la colonne I de la même ligne, la date est dans les 30 dernièrs jours.


ps: dans le textbox13, il y a la valeur du combobox1 et de "PARTIEL SUR APPEL: Absence refus". Donc dans cette exemple cette valeur si: Denis Picard PARTIEL SUR APPEL: Absence refus