Compter un nombre de caractères dans une cellule [Résolu]

Réponse 2 / 8

alexdu17200 Messages postés 1302 Date d'inscription Statut Membre Dernière intervention 836

Salut, je ne m'y connais pas du tout en VBA mais plutôt en Excel, pour déterminer le nombre de caractère d'une cellule, c'est la fonction NBCAR(), en espérant que çà t'ai aidé.

Réponse 3 / 8

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

En VBA:

Range("F1").Value  = Len(Range("A1").Value)

Réponse 4 / 8

vieuxray

Salut Polux,

j'ai effectuer les modifications et voila bingo
ca fonctionne comme souhaitez

fait plusieurs essais c'est ok pour moi

je te remercie beaucoup de ton aide ainsi que de ta symphatie.

je te souhaite une agréable continuation

Encore merci, je clos le sujet

Bye Polux31, cdlt Ray

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

vieuxray

Bonjour alexdu17200, Synerz, forum

J'ai suivi vos conseils, j'ai trouver sur la fonction NBCAR() mais je n'arrive pas a
coder afin d'obtenir le nombre de caractère présent de la cellule A1 et ceci tout caractère confondu virgule espace point etc etc

Merci a vous deux pour votre aide, c'est sympa, bonne jounée a vous

Cordialement Ray

Réponse 6 / 8

vieuxray

Salut Polux31,

Merci pour ta réponse et pour ton code , ca fonctionne bien

Peut'on svp simplifier le code ci-dessous

je dois compter sur un nombre aléatoire de lignes de A1 a tout dépendra des textes
que j'écrirai

Merci pour l'aide apporter, c'est gentil

Bonne journée a toi

Cdlt Ray


Sub compte()

Range("F1").Value = Len(Range("A1").Value)
Range("F2").Value = Len(Range("A2").Value)
Range("F3").Value = Len(Range("A3").Value)
Range("F4").Value = Len(Range("A4").Value)


End Sub

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Plusieurs façons de procéder :

Dim lig As Long

lig = 1

While Range("A" & lig).Value <> ""
     Range("F" & lig).Value = Len(Range("A" & lig).Value)
     lig = lig + 1
Wend

Ou bien

Dim lig As Long
Dim i As Long

lig = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 to lig
     Range("F" & lig).Value = Len(Range("A" & lig).Value)
Next i

Réponse 7 / 8

vieuxray

Re Polux31,

Merci pour la modif, j'ai opter pour celle ci-dessous

Mais un petit soucis

Ex : si j'écris en A5 (Raymond) il m'incris bien 7 (7 caractères trouvés) en F5

mais si j'efface (Raymond) 7 reste inscrit en F5

F5 devrait mettre 0 ou bien F5 vide

Peut'on remédier svp a ce soucis

Cdlt Ray


Sub compte()
Dim lig As Long

lig = 1

While Range("A" & lig).Value <> ""
     Range("F" & lig).Value = Len(Range("A" & lig).Value)
     lig = lig + 1
Wend

End Sub

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Il y a un erreur dans mon code ...

Dans l'éditeur de la feuille concernée mettre :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then
        Module1.compte
    Else
        Exit Sub
    End If
End Sub

Et dans un module (ici Module1), mettre :

Option Explicit

Sub compte()
Dim lig As Long
Dim i As Long

lig = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lig
    If Range("A" & i).Value = "" Then
        Range("F" & i).Value = 0
    Else
        Range("F" & i).Value = Len(Range("A" & i).Value)
    End If
Next i

End Sub

Réponse 8 / 8

vieuxray

Re Polux31

Merci pour les codes, c'est cool

Serait'il possible svp de ne tester que la zone partant de A1:A26
et pas toute la colonne A

j'ai oublier de préciser au début de ma demande, désolé

Vu l'heure bon app et merci pour ton aide

Cdlt Raymond

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Il faut supprimer:

Dim lig As Long
lig = Range("A" & Rows.Count).End(xlUp).Row

et changer

For i = 1 To lig

par

For i = 1 To 26

Merci bon app également.

Compter un nombre de caractères dans une cellule

8 réponses

Votre réponse

Discussions similaires