Discussion :

[arnaudgalinier]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

[Invité]

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.

[arnaudgalinier]

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

[Pierre Fauconnier]

Sur quelle ligne de code?

Version d'Excel?

Excel sur Mac ou PC?

VBScript désactivé sur le pc?

[Invité]

La solution de Pierre fonctionne nickel chez moi.

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arnaudgalinier]

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

[Pierre Fauconnier]

Et la ligne de code qui pose problème?

A quel moment as-tu ce message?

[arnaudgalinier]

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é.

[Pierre Fauconnier]

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

[arnaudgalinier]

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é.

[Pierre Fauconnier]

Ce que j'apprécie particulièrement dans cette discussion (mais dans d'autres aussi), c'est que les différentes approches permettent à des utilisateurs de tous niveaux de s'y retrouver et d'avoir une solution à leur portée. L'important est qu'il y a d'abord une obligation de résultat, et c'est ce qu'illustre Arnaud

[...]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é.

C'était aussi une solution, comme celle de Ryu qui, pour être basique mais simple, comme il dit, n'en est pas moins fonctionnelle (pour la question initiale).

L'approche de Ryu, qui plus est, permettrait, pour la question initiale, basiquement mais simplement, de se passer de VBA...

[RyuAutodidacte]

Bonjour à tous,

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

[Invité]

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.

[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.

Je vais remonter le problème. Merci Eric

[Invité]

Merci.

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

formule :

=comptechiffre(A1;22;6)

traduction

=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

auserais-je dire que cela doit etre compatible PC windows/mac

[Pierre Fauconnier]

Joli, Patrick, pour la demande initiale

[Pierre Fauconnier]

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?