Discussion :

[apnw7931]

Bonjour,

j'aimerai connaitre le code VBA qui me permet de vérifier si un nombre (variable) est compris dans une cellule, mais aussi, savoir s'il apparaît plus d'une fois.

Voici un exemple.
En A1, j'ai "01 02 03 01 05".

J'aimerai tester premièrement si A1 contient "01", puis ensuite, savoir s'il réapparait une deuxième fois (oui).

Pour l'instant, j'ai

Code :

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

If Range("A1").Value Like "*" & a & "*" Then

qui remplit mon premier check.
Mais comment vérifier la suite de la cellule ?


Merci d'avance.

[Jean-Philippe André]

salut,

un tres bon tuto complet sur les fonctions Excel devrait pouvoir t'aider
http://silkyroad.developpez.com/Excel/FonctionsExcel/

notamment ces deux fonctions

'Compter le nombre de "a" dans la cellule A1
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"a";""))

'Un autre exemple qui compte le nombre de "mimi" dans la cellule A1
=(NBCAR(A1)-NBCAR(SUBSTITUE(A1;"mimi";"")))/4

[bellande]

Salut,
Sinon en beaucoup plus long, on peut faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function CompterOccurences(ByVal chaine As Range, ByVal Souschaine) As Integer
' la chaine et la sous chaine peuvent être des contenus de cellules ou des constantes entre guillements
Dim Resultat As Integer
 
Dim ChainePrincipale As String
Dim ChaineCherchee As String
Dim Debut As Integer
 
Resultat = 0
 
ChainePrincipale = chaine
ChaineCherchee = Souschaine
 
Debut = 1
While Debut <= Len(ChainePrincipale) And InStr(Debut, ChainePrincipale, ChaineCherchee) > 0
  Debut = InStr(Debut, ChainePrincipale, ChaineCherchee) + Len(ChaineCherchee)
  Resultat = Resultat + 1
Wend
 
CompterOccurences = Resultat
 
End Function

bonne journée