Bonsoir,
une petite macro qui demande:
la cellule ou se trouvent les données
les données à chercher
elle donne en réponse la fréquence dans un MsgBox ou l'annonce à haute voix
Sub Freq_nb_car()
'
' Macro Numero M1515 creee par Soleusterm
' Macro fonctionnelle sous Microsoft Office 2016 creee pour votre usage
' Cette Macro permet de rechercher un groupe de caracteres dans une cellule et d'en donner la quantite'
'
Dim Valeur As Single
Dim Nombre As Integer
Dim maCell As String
maCell = Application.InputBox(Prompt:="Cellule de depart", Title:="Origine", Default:="A1", Type:=2)
Dim maLoc As String
maLoc = Application.InputBox(Prompt:="Caracteres recherches", Title:="caracteres", Default:="toto", Type:=2)
Range(maCell).Select
'ActiveCell.Select
Selection.Copy
Sheets.Add.Name = ("TESTjm")
Range("A1").Select
ActiveSheet.Paste
ActiveCell.Replace maLoc, "1"
Set rng = Cells(1, 1)
For i = 1 To rng.Characters.Count
If IsNumeric(rng.Characters(i, 1).Text) Then Cells(1, 2) = Cells(1, 2) & rng.Characters(i, 1).Text '.Count
Next
Range("C1").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
Nombre = ActiveCell.Value
SendKeys ("{ENTER}")
Sheets("TESTjm").Delete
MsgBox (maLoc & " est present " & Nombre & " Fois")
'ou
Application.Speech.Speak maLoc & " est present " & Nombre & " Fois"
End Sub
Cordialement