Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Combien de fois le même nombre apparaît (et si possible avec les dates)?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Isabelle84

XLDnaute Junior
Bonjour,

Pourriez me dire si il est possible de déterminer le nombre de fois qu'un même chiffre est sorti parmi les 3 premiers et puis parmi les 2 derniers.

Sans abuser... peut on aussi savoir à quelle ils sont mentionnés?

J'ai fait un exemple avec le chiffre "1" pour vous aider... 😱

Merci d'avance.

Bien cordialement,
 

Pièces jointes

Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Bonjour Isabelle84, salut st007,

Un petit coup de VBA pour bien commencer la journée avec cette fonction :

Code:
Function RechercheJour$(x, dates As Range, zone As Range, sep$)
Dim ref As Range, r As Range, ncol%, i&, j%, t$
Set ref = Intersect(dates, Application.Caller.Parent.UsedRange)
Set r = Intersect(ref.EntireRow, zone.EntireColumn)
ncol = r.Columns.Count
For i = 1 To r.Rows.Count
  For j = 1 To ncol
    If r(i, j) = x Then t = t & sep & Day(ref(i))
  Next
Next
RechercheJour = Mid(t, Len(sep) + 1)
End Function
Elle est utilisée en colonnes J et L.

Notez aussi en I2 :

Code:
=NBCAR(J2)-NBCAR(SUBSTITUE(J2;",";))+(J2<>"")
Fichier joint.

A+
 

Pièces jointes

Dernière édition:
Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Re,

On peut accélérer les calculs en utilisants 2 tableaux VBA (matrices) :

Code:
Function RechercheJour$(x, dates As Range, zone As Range, sep$)
Dim ref, r, ncol%, i&, j%, t$
Set ref = Intersect(dates, Application.Caller.Parent.UsedRange)
Set r = Intersect(ref.EntireRow, zone.EntireColumn)
ref = ref 'matrice
r = r 'matrice
ncol = UBound(r, 2)
For i = 1 To UBound(r)
  For j = 1 To ncol
    If r(i, j) = x Then t = t & sep & Day(ref(i, 1))
  Next
Next
RechercheJour = Mid(t, Len(sep) + 1)
End Function
Surtout utile s'il y a beaucoup de tableaux du même genre à étudier dans le classeur.

Fichier (2).

A+
 

Pièces jointes

Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Re,

J'ai mesuré les temps de calcul sur Win Xp - Excel 2003.

Le fichier (1) se calcule en 4,68 centièmes de secondes.

Le fichier (2) en 2,34 centièmes de secondes, donc 2 fois plus vite.

A+
 
Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Bonjour Job75,
Je demande qu'à vous croire... 😕 car n'étant pas une experte excel, j'ai dans les colonnes que des "NOMS?"... si vous pouver barbatruquer un petit truc pour m'aider... merci!...
 
Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Re,

Il faut que les macros soient activées

Si vous ne savez pas faire voyez ce lien (sur la zone concernant votre version Excel) :

Comment activer les macros ?

Important : il faudra utiliser un fichier enregistré sous .xls ou .xlsm (acceptant les macros).

A+

A+

+
 
Re : Combien de fois le même nombre apparaît (et si possible avec les dates)?

Super Job!...Merci!

Connaissez vous des formateurs sur excel? J'aimerais tant exploiter ce logiciel... peut être pas à vôtre niveau car je suppose que cela n'est pas accessible à tous mais savoir par exemple faire des macros, des fusions...
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
Réponses
17
Affichages
1 K
Excelée
E
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…