Vérifier qu'un chiffre se répète un certain nombre de fois sans interruption

Bonjour à tous,

Sur la base de la matrice VBA qu'a proposé Eric (et que j'utilise maintenant), j'aimerais faire la même chose pour détecter si dans un nombre des chiffres se répètent à la suite et un certains nombre de fois.

Par exemple, si j'ai dans une colonne le nombre 1 222 222,34, j'aimerais que dans la colonne a coté cela me dise "Yes" ou "No" (si par exemple on dit que la condition est : que le chiffre se répète 6 fois de suite). Si par exemple nombre était 12 122 222,34, bien qu'ayant le "2" 6 fois il faudrait que ca me dise "No".

Cela peut se faire soit par une selection de critère (comme dans la VBA précédente pour les mots), dans ce cas là dans un autre onlget j'irai renseigner toutes les suites possibles, ou alors s'il y a un autre moyen qui detecte automatiquement les répétitions de chiffres je suis preneur.

Merci par avance pour votre aide...

Un jour je maitriserais VBA promis :)

Salut.

Sur l'idée d'Eric d'utiliser une fonction perso, voici une fonction perso qui utilise les expressions régulières, à utiliser dans ta feuille de calcul comme une fonction native d'Excel, à laquelle tu passes la valeur à tester, le chiffre qui doit être répété et le nombre de répétitions voulues

Code:

---

1 2 3 4 5 6 7 8 9 10

Function SuiteChiffreOk(Valeur As String, Chiffre As String, Repetition As Long) As Boolean Dim RegExp As Object Dim Pattern As String   Set RegExp = CreateObject("VBScript.RegExp") Pattern = Chiffre & "{" & Repetition & "}" RegExp.Pattern = Pattern SuiteChiffreOk = RegExp.test(Valeur) Set RegExp = Nothing End Function

---

Le résultat en Excel:

Pièce jointe 362904

Citation:

---

Envoyé par arnaudgalinier

---

Bonjour,

Pour faire cela, j'utiliserais les instructions Instr pour connaître le position du premier caractère et Mid avec une boucle sur les caractères à partir du premier trouvé sans tenir compte des séparateurs de milliers (blanc, point,etc....) ou décimal.

Bonjour et merci,

Pierre pour votre code VBA cela m'indique "Sub or Function non définie", une idée de ce qui coince ?

Eric, merci pour votre aide, mais je vous avoue, qu'avec mon niveau VBA je n'y comprends rien :calim2:

Sur quelle ligne de code?

Version d'Excel?

Excel sur Mac ou PC?

VBScript désactivé sur le pc?

La solution de Pierre fonctionne nickel chez moi.

Bonjour

Avant de prendre la route et pour me changer les idées --->> une méthode rigolote et "décalée" (pas de VBS sur ma machine -->> et donc ...) --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11

toto = "221222222f33333331111" nb = 6 ' la cndition.nombre minimum de répétitions Dim titi() As Byte titi = StrConv(toto, vbFromUnicode) For I = 0 To UBound(titi) - 1 If titi(I + 1) <> titi(I) Then titi(I) = 0 Next tata = Split(StrConv(titi, vbUnicode), Chr(0)) For I = 0 To UBound(tata) If Len(tata(I)) >= nb - 1 Then MsgBox "le chiffre " & Left(tata(I), 1) & " est répété " & Len(tata(I)) + 1 & " fois de suite" Next

---

Citation:

---

Envoyé par Pierre Fauconnier

Sur quelle ligne de code?

Version d'Excel?

Excel sur Mac ou PC?

VBScript désactivé sur le pc?

---

Alors j'utilise une version 2016 d'Excel sur un PC et VBscript est actif.

Et il me semble que c'est sur la premiere ligne du code (voir capture d'écran).

Merci Pièce jointe 362972

Et la ligne de code qui pose problème?

A quel moment as-tu ce message?

Citation:

---

Envoyé par Pierre Fauconnier

Et la ligne de code qui pose problème?

A quel moment as-tu ce message?

---

J'ai rajouté la capture d'écran dans ma réponse précédente.

Le message apparaît, une fois que j'appuie sur entrée après avoir fais appel à la formule et l'avoir renseigné.

Il y a une crasse après les lignes Dim... (Le site a ajouté cette crasse lors de mon copier-coller car je n'ai pas ce problème chez moi et lorsque je reprends le code du site et que je le teste, j'ai le même problème que toi. Je suppose que c'est un problème d'encodage et je ne suis pas sur ma machine habituelle)

Supprime simplement ce qui est en bleu entre les lignes Dim et Set RegExp

ou

Supprime la ligne vide entre les Dim et le Set RegExp. Et si tu souhaites refaire une ligne vide, fais simplement Enter après t'être placé à la fin de la ligne du dernier Dim

Yes!!

Merci a vous!

C'est promis cet été je me plonge a fond dans le VBA :)

Existe-t-il une méthode rapide (et qui ne vous prenne pas trop de temps a m'expliquer) pour que ce code, prenne en compte plusieurs critères ?

Je m'explique, là je ne peux mettre qu'un critère par exemple le 2;répété x fois...

J'aimerais le faire pour tous les chiffres de 0 à 9.

La solution que j'envisage (vous allez avoir peur) et de recopier ce code dans plusieurs colonne en modifiant chaque fois le chiffre que je veux voir s'il est dupliqué. 8O8O

Pour modifier la recherche, on peut modifier le pattern. C'est là, notamment, que réside la puissance de cet outil.

Peux-tu définir précisément ce que tu souhaites faire? Vérifier qu'il y a au moins un chiffre (n'importe lequel?) répété x fois? Le x peut aller de x à y?

Citation:

---

Envoyé par Pierre Fauconnier

Note bien que la fonction que je te donnes ne vérifie pas que le 2. Elle vérifie que ton deuxième paramètre se répète le nombre de fois précisé par le troisième paramètre. Tu peux donc vérifier que 9 se répète 3 fois ou que 1 se répète 10 fois.

Pour modifier la recherche, il suffit de modifier le pattern de la RegExp, normalement. C'est là, notamment, que réside la puissance de cet outil.

Peux-tu définir précisément ce que tu souhaites faire? Vérifier qu'il y a au moins un chiffre (n'importe lequel?) répété x fois?

---

Oui j'ai bien noté ca, mais effectivement ce que je souhaite faire, c'est vérifier qu'il y a au moins un chiffre (de 0 à 9) qui se répète x fois.

Bonjour à tous,

Jacques, sympa ton code :plusser:
Comme tu l'as déjà dit ce fameux StrConv(toto, vbFromUnicode) est bien utile,
on peut faire souvent appel à lui je vois ;)

Citation:

---

Envoyé par Pierre Fauconnier

---

Je rebondis sur ton message, Pierre, car depuis quelques jours, lorsque je copie-colle mon code entre balises #, j'ai une ribambelle de caractères parasites qui viennent se déverser dans mon code. Je ne sais pas si le problème vient de mon poste ou s'il vient du site.

re

Code:

---

1 2 3

Public Function comptechiffre(cel, valeur, repetition) comptechiffre = IIf(UBound(Split(cel.Value, valeur)) >= repetition, "yes", "no") End Function

---

formule :

Citation:

---

=comptechiffre(A1;22;6)

---

traduction

Citation:

---

=comptechiffre(adresse cellule;chiffre a tester;occurence)

---

si 6 occurence ou plus tu aura "yes" sinon "no"
si tu veux nom pas 6 ou plus mais exactement 6 suprime le ">" dans le code
appercu
Pièce jointe 362992
auserais-je dire que cela doit etre compatible PC windows/mac

Arnaud,

Voici une solution qui teste qu'au moins un chiffre (n'importe lequel) est répété x fois. (attention aux crasses à la recopie)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function SuiteChiffreOk(Valeur As String, Repetition As Long) As Boolean Dim RegExp As Object Dim Pattern As String Dim Rep As String Dim Counter As Long   Rep = "{" & Repetition & "}" Pattern = "0" For Counter = 1 To 9 Pattern = Pattern & Rep & "|" & Counter Next Set RegExp = CreateObject("VBScript.RegExp") RegExp.Pattern = Pattern SuiteChiffreOk = RegExp.test(Valeur) Set RegExp = Nothing End Function

---

Pièce jointe 362995

Citation:

---

Envoyé par Eric KERGRESSE

Je rebondis sur ton message, Pierre, car depuis quelques jours, lorsque je copie-colle mon code entre balises #, j'ai une ribambelle de caractères parasites qui viennent se déverser dans mon code. Je ne sais pas si le problème vient de mon poste ou s'il vient du site.

---

Je vais remonter le problème. Merci Eric ;)

Joli, Patrick, pour la demande initiale :plusser: