pstefel
Messages postés3Date d'inscriptionlundi 27 décembre 2004StatutMembreDernière intervention 6 mars 2008
-
6 mars 2008 à 11:36
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
7 mars 2008 à 12:04
Bonjour,
C'est la premiere fois que je poste une question, j'espere que je suis bien ou il faut.
La fonction replace ne permet pas d'effectuer une recherche en decimal ou en hexa. Quelqu'un aurait-il une idée.
La fonction replace du menu edition d'excel renvoie le nombre de remplacements effectués.
La fonction replace dans vba renvoie un boolean. comment connaitre dans ce cas le nombre de remplacements effectués.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 7 mars 2008 à 09:46
permet de compter... y'a peut etre plus court, mais je code peu en VBA...
Private Function Count(ByRef voRange As Range, ByRef vsSearch As String) As Long
Dim oRange As Range
Dim sFirstAdress As String
Set oRange = voRange.Find(vsSearch)
sFirstAdress = oRange.Address
Do Until Nothing Is oRange
Count = Count + 1
Set oRange = voRange.FindNext(oRange)
If oRange.Address = sFirstAdress Then
Exit Do
End If
Loop
End Function