OVH Cloud OVH Cloud

Recherche d'un caractère dans une chaîne

12 réponses
Avatar
Nicolas B.
Bonsoir à toutes et à tous,

J'ai une chaîne de caractères String, par exemple "10.14.227.21.3", et
j'aimerais connaître par VBA le nombre de points que contient cette chaîne
(4 dans l'exemple). Comment est-ce possible ?

Merci d'avance.

--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC

2 réponses

1 2
Avatar
ru-th
Salut

un peu plus par le combien modeste et limpide gee-dee ;-))
Function LireFormule(reference)
If reference.HasArray Then
LireFormule = "{" & reference.FormulaLocal & "}"
'-- en US-----LireFormule = "{" & reference.Formula & "}"
'---en L1C1--LireFormule = "{" & reference.FormulaR1C1Local & "}"
Else
LireFormule = " " & reference.FormulaLocal
'-- en US-----LireFormule = " " & reference.Formula
'---en L1C1--LireFormule = " " & reference.FormulaR1C1Local
End If
End Function

a+
rural thierry

"Julien Queinnec" a écrit dans le message de news:

Nicolas B. a écrit dans news::

Bonsoir à toutes et à tous,

J'ai une chaîne de caractères String, par exemple "10.14.227.21.3", et
j'aimerais connaître par VBA le nombre de points que contient cette
chaîne (4 dans l'exemple). Comment est-ce possible ?



J'ai un peu le même problème mais avec une dificulté supplémentaire :

Je désire connaître le nombre de + dans une formule ;

par exemple en A1 j'ai +4+8+9 ;
Les formules fournies permettent d'obtenir le nombre de fois ou un
caractère donné apparaît dans un texte mais dans une formule ?

A priori, il faudrait un fonction qui prend le contenu de la cellule A1
comme du texte (et non pas comme une formule). Est-ce que ça existe ?

Julien Queinnec
--
Tiens, vous avez sorti le vitriol ?



Avatar
Julien Queinnec
ru-th a écrit dans news::

Salut

un peu plus par le combien modeste et limpide gee-dee ;-))
Function LireFormule(reference)
If reference.HasArray Then
LireFormule = "{" & reference.FormulaLocal & "}"
'-- en US-----LireFormule = "{" & reference.Formula & "}"
'---en L1C1--LireFormule = "{" & reference.FormulaR1C1Local & "}"
Else
LireFormule = " " & reference.FormulaLocal
'-- en US-----LireFormule = " " & reference.Formula
'---en L1C1--LireFormule = " " & reference.FormulaR1C1Local
End If
End Function



Merci, ça marche.

Julien Queinnec
--
Touche pas au grisby, salope!

1 2