Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour,
De tête et non testé : =nbcar(A1)-nbcar(substitue(A1;"A";"")) nb = len(var)-application.replace(var,"A","")
@+ FxM
Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour,
De tête et non testé :
=nbcar(A1)-nbcar(substitue(A1;"A";""))
nb = len(var)-application.replace(var,"A","")
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour,
De tête et non testé : =nbcar(A1)-nbcar(substitue(A1;"A";"")) nb = len(var)-application.replace(var,"A","")
@+ FxM
isabelle
bonjour Vincent,
x = Evaluate("Len(A1) - Len(Substitute(A1, ""A"", """"))")
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"A";""))
isabelle
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
bonjour Vincent,
x = Evaluate("Len(A1) - Len(Substitute(A1, ""A"", """"))")
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"A";""))
isabelle
Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
x = Evaluate("Len(A1) - Len(Substitute(A1, ""A"", """"))")
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"A";""))
isabelle
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
GVentre
Bonjour,
En VBA, ça peut donner ça:
Sub test()
Dim ValA, MaVar As String, LongA, i, cpt As Byte
ValA = Range("C3").Value 'Ta plage de cellule est a adapter LongA = Len(ValA) cpt = 0 For i = 1 To LongA MaVar = Mid(ValA, i, 1) If MaVar = "a" Or MaVar = "A" Then cpt = cpt + 1 End If Next End Sub
Cordialement,
Guillaume Ventre
"Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour,
En VBA, ça peut donner ça:
Sub test()
Dim ValA, MaVar As String, LongA, i, cpt As Byte
ValA = Range("C3").Value 'Ta plage de cellule est a adapter
LongA = Len(ValA)
cpt = 0
For i = 1 To LongA
MaVar = Mid(ValA, i, 1)
If MaVar = "a" Or MaVar = "A" Then
cpt = cpt + 1
End If
Next
End Sub
Cordialement,
Guillaume Ventre
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:
OeH89asrEHA.2732@TK2MSFTNGP09.phx.gbl...
Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
ValA = Range("C3").Value 'Ta plage de cellule est a adapter LongA = Len(ValA) cpt = 0 For i = 1 To LongA MaVar = Mid(ValA, i, 1) If MaVar = "a" Or MaVar = "A" Then cpt = cpt + 1 End If Next End Sub
Cordialement,
Guillaume Ventre
"Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
RaMA
Bonjour En matricielle =SOMME(SI(ESTERR(CHERCHE("A";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)));0;1)) Salutations RaMa -- . "Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour
En matricielle
=SOMME(SI(ESTERR(CHERCHE("A";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)));0;1))
Salutations
RaMa
--
.
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:
OeH89asrEHA.2732@TK2MSFTNGP09.phx.gbl...
Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Bonjour En matricielle =SOMME(SI(ESTERR(CHERCHE("A";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)));0;1)) Salutations RaMa -- . "Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Vincent
Merci beaucoup à tous. C'est excellent. Vincent
"GVentre" a écrit dans le message de news:u$
Bonjour,
En VBA, ça peut donner ça:
Sub test()
Dim ValA, MaVar As String, LongA, i, cpt As Byte
ValA = Range("C3").Value 'Ta plage de cellule est a adapter LongA = Len(ValA) cpt = 0 For i = 1 To LongA MaVar = Mid(ValA, i, 1) If MaVar = "a" Or MaVar = "A" Then cpt = cpt + 1 End If Next End Sub
Cordialement,
Guillaume Ventre
"Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
Merci beaucoup à tous.
C'est excellent.
Vincent
"GVentre" <g.ventre@laposte.net> a écrit dans le message de
news:u$8dfnsrEHA.1692@TK2MSFTNGP10.phx.gbl...
Bonjour,
En VBA, ça peut donner ça:
Sub test()
Dim ValA, MaVar As String, LongA, i, cpt As Byte
ValA = Range("C3").Value 'Ta plage de cellule est a adapter
LongA = Len(ValA)
cpt = 0
For i = 1 To LongA
MaVar = Mid(ValA, i, 1)
If MaVar = "a" Or MaVar = "A" Then
cpt = cpt + 1
End If
Next
End Sub
Cordialement,
Guillaume Ventre
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:
OeH89asrEHA.2732@TK2MSFTNGP09.phx.gbl...
Bonjour.
J'ai un mot dans une cellule ex ABRACADABRA.
Comment compter le nombre de "A", par exmple ou de B
est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
ValA = Range("C3").Value 'Ta plage de cellule est a adapter LongA = Len(ValA) cpt = 0 For i = 1 To LongA MaVar = Mid(ValA, i, 1) If MaVar = "a" Or MaVar = "A" Then cpt = cpt + 1 End If Next End Sub
Cordialement,
Guillaume Ventre
"Vincent" a écrit dans le message de news:
Bonjour. J'ai un mot dans une cellule ex ABRACADABRA. Comment compter le nombre de "A", par exmple ou de B est-il possible d'avoir la réponse en VBA ainsi que par "Formule"
