eliot raymond
XLDnaute Occasionnel
Bonjour a tous et toutes, bonjour forum,
Je souhaiterai compter en temps réel, le nombre de caractères que contient une cellule et je n'arrive pas à trouver de solution. Voici le résultat de mes recherches, moi je ne sais pas faire mais SVP si quelqu'un veut bien si atteler…alors bon courage et merci.
Les méthodes testés comptent le nombre de caractères dans la cellule, une fois que j'ai validé le contenu en cliquant sur ENTER ou en sélectionnant une autre cellule….Mais pas PENDANT que je tape le texte de la cellule.
Mais la solution existe autour de Application.ontime now,"compte"
Après il faudra interrompre l'évènement saisie AVANT sa validation, dans la procédure compte, un appel aux API de Windows de la lib user32, genre une gestion de messages perso (Voir "SENDMESSAGE")
Excel 2007 Petit code trouvé
Private sub Worksheet_Change(ByVal Target As Range)
iF Target.Address="$A$2" Then
Feuil1.Range("A1"="Remarques("&len(Feuil1.Range("A2"))&"/800 caractères)"
End iF
End Sub
Elargir colonne A puis taper texte dans A2 puis ENTER résultat s'affiche en A1
Merci de vous penchez sur ce petit problème si ca vous dit d'essayer.
Raymond
Je souhaiterai compter en temps réel, le nombre de caractères que contient une cellule et je n'arrive pas à trouver de solution. Voici le résultat de mes recherches, moi je ne sais pas faire mais SVP si quelqu'un veut bien si atteler…alors bon courage et merci.
Les méthodes testés comptent le nombre de caractères dans la cellule, une fois que j'ai validé le contenu en cliquant sur ENTER ou en sélectionnant une autre cellule….Mais pas PENDANT que je tape le texte de la cellule.
Mais la solution existe autour de Application.ontime now,"compte"
Après il faudra interrompre l'évènement saisie AVANT sa validation, dans la procédure compte, un appel aux API de Windows de la lib user32, genre une gestion de messages perso (Voir "SENDMESSAGE")
Excel 2007 Petit code trouvé
Private sub Worksheet_Change(ByVal Target As Range)
iF Target.Address="$A$2" Then
Feuil1.Range("A1"="Remarques("&len(Feuil1.Range("A2"))&"/800 caractères)"
End iF
End Sub
Elargir colonne A puis taper texte dans A2 puis ENTER résultat s'affiche en A1
Merci de vous penchez sur ce petit problème si ca vous dit d'essayer.
Raymond