j'aimerai via vba extraire les deux dates le plus souvent citées
Merci de vos réponse
Jacky
Bonjour Jacques
Cette formule m'intéresse S'il est facile de palier au #N/A de "mode" quand il n'y a aucune répétition de nombres, il n'en est pas de même pour la deuxième ou troisième place qui retourne la dernière occurrence. Ce qui fait que 2 et 3 ème ont le même résultat.
j'aimerai via vba extraire les deux dates le plus souvent citées
Merci de vos réponse
Bonjour Jacques
Cette formule m'intéresse
S'il est facile de palier au #N/A de "mode" quand il n'y a aucune
répétition de nombres,
il n'en est pas de même pour la deuxième ou troisième place qui retourne la
dernière occurrence.
Ce qui fait que 2 et 3 ème ont le même résultat.
Il y a un moyen ??
--
Salutations
JJ
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
c857f729-2e21-42e3-bd22-54dc8c4a679d@q35g2000vbi.googlegroups.com...
Bonjour,
Cette formule m'intéresse S'il est facile de palier au #N/A de "mode" quand il n'y a aucune répétition de nombres, il n'en est pas de même pour la deuxième ou troisième place qui retourne la dernière occurrence. Ce qui fait que 2 et 3 ème ont le même résultat.
j'aimerai via vba extraire les deux dates le plus souvent citées
Merci de vos réponse
Caetera
> Voila j'ai une colonne avec plein de dates j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates() For Each c In [Dates] '1° valeur x1 = Application.CountIf([Dates], c) If x1 > var1 Then var1 = x1: laDate1 = c Next For Each c In [Dates] '2° valeur x2 = Application.CountIf([Dates], c) If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c Next MsgBox "Date la + représentée (1) : " & laDate1 MsgBox "Date la + représentée (2) : " & laDate2 End Sub
Etc
> Voila j'ai une colonne avec plein de dates
j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates()
For Each c In [Dates] '1° valeur
x1 = Application.CountIf([Dates], c)
If x1 > var1 Then var1 = x1: laDate1 = c
Next
For Each c In [Dates] '2° valeur
x2 = Application.CountIf([Dates], c)
If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c
Next
MsgBox "Date la + représentée (1) : " & laDate1
MsgBox "Date la + représentée (2) : " & laDate2
End Sub
> Voila j'ai une colonne avec plein de dates j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates() For Each c In [Dates] '1° valeur x1 = Application.CountIf([Dates], c) If x1 > var1 Then var1 = x1: laDate1 = c Next For Each c In [Dates] '2° valeur x2 = Application.CountIf([Dates], c) If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c Next MsgBox "Date la + représentée (1) : " & laDate1 MsgBox "Date la + représentée (2) : " & laDate2 End Sub
Etc
Abileor
merci a vous ca marche nickel
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de groupe de discussion :
Voila j'ai une colonne avec plein de dates j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates() For Each c In [Dates] '1° valeur x1 = Application.CountIf([Dates], c) If x1 > var1 Then var1 = x1: laDate1 = c Next For Each c In [Dates] '2° valeur x2 = Application.CountIf([Dates], c) If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c Next MsgBox "Date la + représentée (1) : " & laDate1 MsgBox "Date la + représentée (2) : " & laDate2 End Sub
Etc
merci a vous ca marche nickel
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de groupe de
discussion : ur5fdEtNKHA.3588@TK2MSFTNGP05.phx.gbl...
Voila j'ai une colonne avec plein de dates
j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates()
For Each c In [Dates] '1° valeur
x1 = Application.CountIf([Dates], c)
If x1 > var1 Then var1 = x1: laDate1 = c
Next
For Each c In [Dates] '2° valeur
x2 = Application.CountIf([Dates], c)
If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c
Next
MsgBox "Date la + représentée (1) : " & laDate1
MsgBox "Date la + représentée (2) : " & laDate2
End Sub
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de groupe de discussion :
Voila j'ai une colonne avec plein de dates j'aimerai via vba extraire les deux dates le plus souvent citées
Comme il s'agit de vba et avec une plage nommée "Dates" :
Sub FréquenceDates() For Each c In [Dates] '1° valeur x1 = Application.CountIf([Dates], c) If x1 > var1 Then var1 = x1: laDate1 = c Next For Each c In [Dates] '2° valeur x2 = Application.CountIf([Dates], c) If x2 > var2 And c <> laDate1 Then var2 = x2: laDate2 = c Next MsgBox "Date la + représentée (1) : " & laDate1 MsgBox "Date la + représentée (2) : " & laDate2 End Sub
