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 ?
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 ?
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" <j.queinnec@comidoc.fr> a écrit dans le message de news:
Xns940F879423EF1jqueinneccomidocfr@195.25.12.38...
Nicolas B. a écrit dans news:emQkV6DjDHA.3264@TK2MSFTNGP11.phx.gbl:
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 ?
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 ?
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!
ru-th a écrit dans news:eH8CAoljDHA.976@tk2msftngp13.phx.gbl:
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
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