A voir également:
- Vba compter le nombre d'occurence dans une colonne
- Déplacer une colonne excel - Guide
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- En raison d'un nombre important d'échec de connexion snapchat ✓ - Forum Snapchat
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
6 réponses
je pense que tu veux plutot faire:
1) compter le nombre de caracteres dans la chaine originale
2) remplacer tes "1" par "" avec la fonction Replace()
3) recompter le nomre de caracteres
4) comparer le 1er et le 2e comptage
tu aura ainsi le nombre de "1" dans ta chaine
ca donne:
Sub test()
Dim str As String
Dim num, num2 As Integer
str = "abc1def1ghi1jkl113265481"
num1 = Len(str)
str = Replace(str, "1", "")
num2 = Len(str)
num1 = num1 - num2
MsgBox ("il y a " & num1 & " fois le chiffre 1 dans la chaine")
End Sub
1) compter le nombre de caracteres dans la chaine originale
2) remplacer tes "1" par "" avec la fonction Replace()
3) recompter le nomre de caracteres
4) comparer le 1er et le 2e comptage
tu aura ainsi le nombre de "1" dans ta chaine
ca donne:
Sub test()
Dim str As String
Dim num, num2 As Integer
str = "abc1def1ghi1jkl113265481"
num1 = Len(str)
str = Replace(str, "1", "")
num2 = Len(str)
num1 = num1 - num2
MsgBox ("il y a " & num1 & " fois le chiffre 1 dans la chaine")
End Sub