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
ru-th
Salut
soit =nb.si(plg;1) ou nb.si(plg;"A") s'ils sont uniquement dans une cellule soit =SOMME(NBCAR(plg) - NBCAR(SUBSTITUE(plg; "A"; ""))) en matricielle (ctrl+maj+entrée) s'ils peuvent être mélangés ABBA, BEBA,BABA....
A+ rural thierry
"D V." a écrit dans le message de news: bp1vhe$bio$
Salut a tous, Pouvez-vous me dire s'il est possible de comptabiliser dans une colonne excel le nombre 0,1,2,........,A,B,....Z
Merci d'avance
Salut
soit =nb.si(plg;1) ou nb.si(plg;"A") s'ils sont uniquement dans une cellule
soit =SOMME(NBCAR(plg) - NBCAR(SUBSTITUE(plg; "A"; ""))) en matricielle
(ctrl+maj+entrée)
s'ils peuvent être mélangés ABBA, BEBA,BABA....
A+
rural thierry
"D V." <dominique.vieille@icer.fr> a écrit dans le message de news:
bp1vhe$bio$1@s1.read.news.oleane.net...
Salut a tous,
Pouvez-vous me dire s'il est possible de comptabiliser dans une colonne
excel le nombre 0,1,2,........,A,B,....Z
soit =nb.si(plg;1) ou nb.si(plg;"A") s'ils sont uniquement dans une cellule soit =SOMME(NBCAR(plg) - NBCAR(SUBSTITUE(plg; "A"; ""))) en matricielle (ctrl+maj+entrée) s'ils peuvent être mélangés ABBA, BEBA,BABA....
A+ rural thierry
"D V." a écrit dans le message de news: bp1vhe$bio$
Salut a tous, Pouvez-vous me dire s'il est possible de comptabiliser dans une colonne excel le nombre 0,1,2,........,A,B,....Z
Merci d'avance
AV
Fonctions persos (à mettre dans un module ordinaire) pour aller un peu plus loin (chiffres, lettres, signes cabalistiques, pouvant être mélangés dans chacune des cellules)
Compter les lettres dans une plage : Function NBRE_LETTRES(Plg As Range)'AV For Each c In Plg For i = 1 To Len(Trim(c.Value)) x = Asc(Mid(Trim(c.Value), i, 1)) Select Case x Case 65 To 90: x = "" Case 97 To 122: x = "" Case 192 To 197: x = "" Case 200 To 203: x = "" Case 204 To 207: x = "" Case 209: x = "" Case 210 To 214: x = "" Case 217 To 220: x = "" Case 221: x = "" Case 224 To 229: x = "" Case 232 To 235: x = "" Case 236 To 239: x = "" Case 241: x = "" Case 240, 242 To 246: x = "" Case 249 To 252: x = "" Case 253, 255: x = "" Case Else: x = 1 End Select y = y & x Next NbreL = NbreL + Len(Trim(c.Value)) - Len(y) y = "" Next NBRE_LETTRES = NbreL End Function
Compter les chiffres dans une plage : Function NBRE_CHIFFRES(Plg As Range)'AV For Each c In Plg For i = 1 To Len(c.Value) If Asc(Mid(c.Value, i, 1)) >= 48 And Asc(Mid(c.Value, i, 1)) < 57 Then x = x + 1 End If Next Next NBRE_CHIFFRES = x End Function
AV
Fonctions persos (à mettre dans un module ordinaire) pour aller un peu plus loin
(chiffres, lettres, signes cabalistiques, pouvant être mélangés dans chacune des
cellules)
Compter les lettres dans une plage :
Function NBRE_LETTRES(Plg As Range)'AV
For Each c In Plg
For i = 1 To Len(Trim(c.Value))
x = Asc(Mid(Trim(c.Value), i, 1))
Select Case x
Case 65 To 90: x = ""
Case 97 To 122: x = ""
Case 192 To 197: x = ""
Case 200 To 203: x = ""
Case 204 To 207: x = ""
Case 209: x = ""
Case 210 To 214: x = ""
Case 217 To 220: x = ""
Case 221: x = ""
Case 224 To 229: x = ""
Case 232 To 235: x = ""
Case 236 To 239: x = ""
Case 241: x = ""
Case 240, 242 To 246: x = ""
Case 249 To 252: x = ""
Case 253, 255: x = ""
Case Else: x = 1
End Select
y = y & x
Next
NbreL = NbreL + Len(Trim(c.Value)) - Len(y)
y = ""
Next
NBRE_LETTRES = NbreL
End Function
Compter les chiffres dans une plage :
Function NBRE_CHIFFRES(Plg As Range)'AV
For Each c In Plg
For i = 1 To Len(c.Value)
If Asc(Mid(c.Value, i, 1)) >= 48 And Asc(Mid(c.Value, i, 1)) < 57 Then
x = x + 1
End If
Next
Next
NBRE_CHIFFRES = x
End Function
Fonctions persos (à mettre dans un module ordinaire) pour aller un peu plus loin (chiffres, lettres, signes cabalistiques, pouvant être mélangés dans chacune des cellules)
Compter les lettres dans une plage : Function NBRE_LETTRES(Plg As Range)'AV For Each c In Plg For i = 1 To Len(Trim(c.Value)) x = Asc(Mid(Trim(c.Value), i, 1)) Select Case x Case 65 To 90: x = "" Case 97 To 122: x = "" Case 192 To 197: x = "" Case 200 To 203: x = "" Case 204 To 207: x = "" Case 209: x = "" Case 210 To 214: x = "" Case 217 To 220: x = "" Case 221: x = "" Case 224 To 229: x = "" Case 232 To 235: x = "" Case 236 To 239: x = "" Case 241: x = "" Case 240, 242 To 246: x = "" Case 249 To 252: x = "" Case 253, 255: x = "" Case Else: x = 1 End Select y = y & x Next NbreL = NbreL + Len(Trim(c.Value)) - Len(y) y = "" Next NBRE_LETTRES = NbreL End Function
Compter les chiffres dans une plage : Function NBRE_CHIFFRES(Plg As Range)'AV For Each c In Plg For i = 1 To Len(c.Value) If Asc(Mid(c.Value, i, 1)) >= 48 And Asc(Mid(c.Value, i, 1)) < 57 Then x = x + 1 End If Next Next NBRE_CHIFFRES = x End Function
AV
D V.
Merci pour vos réponses
Dominique
"D V." a écrit dans le message news: bp1vhe$bio$
Salut a tous, Pouvez-vous me dire s'il est possible de comptabiliser dans une colonne excel le nombre 0,1,2,........,A,B,....Z
Merci d'avance
Merci pour vos réponses
Dominique
"D V." <dominique.vieille@icer.fr> a écrit dans le message news:
bp1vhe$bio$1@s1.read.news.oleane.net...
Salut a tous,
Pouvez-vous me dire s'il est possible de comptabiliser dans une colonne
excel le nombre 0,1,2,........,A,B,....Z
