Formule

Résolu/Fermé
moiii123 Messages postés 19 Date d'inscription mercredi 24 juin 2015 Statut Membre Dernière intervention 13 avril 2016 - 27 juil. 2015 à 12:01
via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 - 27 juil. 2015 à 13:43
Bonjour,

Je viens vous demander de l'aide concernant excel 2013.

Est-ce qu'il existe une formule permettant de trouver un écart : je m'explique :

J'ai une liste de nombres, en colonne.
1
2
3
1
4
5
1

Je cherche un moyen de me dire tout les combien de lignes telle chiffre ressort.

Dans le cas présent, le chiffre 1 ressort toutes les 3 lignes.


J'espère m'être bien fait comprendre.

Merci d'avance.

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
27 juil. 2015 à 13:26
Bonjour,

« J'espère m'être bien fait comprendre. » Pas vraiment !!!

Si les nombres sont en colonne A et le nombre cherché en B1, essaies cette formule :
=ARRONDI.SUP(NBVAL(A:A)/NB.SI(A:A;B1);0)
0
via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 2 703
27 juil. 2015 à 13:43
Bonjour

Une possibilité avec une fonction personnalisée, à mettre dans un module de l'éditeur VBA (ALT+F11 pour ouvrir éditeur - Insertion - Module - Copier-coller la macro puis fermer l'éditeur
La fonction s'utilise comme toute fonction excel en donnant son nom dans une formule suivi dans la parenthèse du nombre dont ont veut l'intervalle
ex ; = intervalle(1) pour trouver avec quel intervalle régulier le 1 apparait dans la liste
Dans la macro la liste est supposée être en colonne A de la ligne 2 à la ligne 100 ; modifier ces paramètres pour les adapter à ton fichier
Function intervalle(ch As Integer)
x = 0.1
y = 0.1
For ligne = 2 To 100
If Val(Range("A" & ligne)) = ch Then
x = x * 10
a = ligne * x
som = som + a
End If
Next
For t = 1 To Len(som) - 1
y = y * 10
dif = Val(Mid(som, t, 1)) - Val(Mid(som, t + 1, 1))
nomb = nomb + y * dif
Next
If nomb Mod 11 = 0 Then intervalle = dif Else intervalle = "Non régulier"
End Function


Cdlmnt
Via
0