Discussion :

[biche1]

Bonjour,

J'ai une cellule qui contient un certain nombre de date séparé par des virgules ou -:

B2
12/10/1984,05/03/2006,15/06/2008

Je voudrais dans la colonne F2, récupérer le nombre de date c'est à dire 3 dans ce cas.

J'ai essayé la fonction split sans résultats.

Merci de votre aide.

[Godzestla]

Bonjour,

si, split fait partie de la solution.

Code :

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

1
2
3
4
5
6
 
dim tablo() as string
dim ctr as integer
 
tablo = split(tacellule, ",")
ctr = ubound(tablo) + 1

ctr est ce que tu cherches.

[biche1]

Bonjour,

si, split fait partie de la solution.

Code :

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

1
2
3
4
5
6
 
dim tablo() as string
dim ctr as integer
 
tablo = split(tacellule, ",")
ctr = ubound(tablo) + 1

ctr est ce que tu cherches.

Merci de ton aide et des autres, ca fonctionne

je devais mal utiliser les fonctions split et ubound

[EvaristeGaloisBis]

juste pour la forme et le pluralisme, je me permet de donenr une autre solution :

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
 
Function NombreDeDate(byref stMaCellule as string) as integer
'fonction qui compte le nombre de "," dans la chaine de caractere stMaCelulle 
dim iTailleDeMaChaine as integer
dim iTailleDeMaChaineModifiee as integer 
 
 
NombreDeDate=0
if stMaCellule<>"" then
  iTailleDeMaChaine=len(stMaCellulle)
  iTailleDeMaChaineModifiee= len(replace(stMaCellule,",",""))
 
  NombreDeDate= 1+iTailleDeMaChaine-iTailleDeMaChaineModifiee
end if
 
end function

[Maxence HUBICHE]

youhouuuuu !
Wââââh !
Voila un super sujet de défi flash :
Quelle est la méthode la plus rapide pour obtenir le nombre de sous-chaines dans une chaine !


Cool !
Arkham ? Tu traines dans le coin ?
T'es concerné là !


[EDIT]
Après test, le Ubound(Split(...)))
renvoie ces temps pour 1000 itérations :
1,578125
1,57421875
1,53125
1,5625
1,53125
Alors que le Len(...) - Len(...) renvoie
1,69921875
1,6953125
1,69921875
1,69921875
1,69140625

Victoire pour le Ubound(Split(...))
Bravo Ousk' !

[Maxence HUBICHE]

Devrait faire l'affaire... non ?

Code :

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

1
2
3
4
5
6
 
Function NbChaine(sChaine as string) as long
    dim v as variant
    v=Split(sChaine,",")
    NbChaine=ubound(v)+1
End Function

[EDIT]Grilled ![/EDIT]

[ouskel'n'or]

Code :

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

Result = Ubound(Split("12/10/1984,05/03/2006,15/06/2008",","))+1

Ce qui revient à dire

Code :

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

1
2
3
For NoLig = 1 to derniereLigne
     Cells(NoLig, 6) = Ubound(Split(Cells(NoLig, 2),","))+1
Next

Pourquoi + 1 ? Parceque Split donne un tableau dont le premier indice est 0
Bonne journée

Edit - Complètement grillé sur ce coup là