countif

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:

---

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

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:

---

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

---

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