Indicateur nombre de caractères restants

Bonjour,

Est-ce possible de faire une cellule qui indique le nombre de caractères restants à écrire si la colonne A est limitée à 60 car. par ce code :

 If Not Application.Intersect(Target, Range("$A$1:$A$3000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        Target = Left(UCase(Target), 60)
        Application.EnableEvents = True
    End If

Par exemple : Il vous reste : 20 car., 19, 18, 0, -2, -3...

Merci,

Re,

Une proposition

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nbChr As Byte
    If Not Application.Intersect(Target, Range("$A$1:$A$3000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        'Application.EnableEvents = False
        nbChr = Len(Target)
        Target.Offset(0, 1) = 60 - nbChr
        'Application.EnableEvents = True
    End If
End Sub

Ok c'est génial ça!

Your the chief, thanks!

Bonjour à tous,

Le code joint n'indique pas le nombre de caractère(s) restant(s) mais n'affiche que le nombre défini comme limite.

mbbp

Re,

Pour ma part j'ai considéré qu'il y avec une donnée validation fixée à 60 caractères

Est-ce possible de faire une cellule qui indique le nombre de caractères restants à écrire si la colonne A est limitée à 60 car. par ce code

Re,

jacklambert a écrit :

si la colonne A est limitée à 60 car.

Pour définir ce nbre de caractères : il suffit de changer cette partie du code :

c.Value = Left(c.Value, 20).

Un autre fichier joint où, cette fois, la saisie s'arrête lorsque la limite est atteinte.

Mais il ne s'agit que d'un shockwave, donc non modifiable.

mbbp

Re,

Ne crois-tu pas que tu devrais amener un minimum d'explications pour ta dernière solution?

Pour ceux qui seront intéressés par sa lecture, puisque le sujet a été validé.

C'est tout de même un peu hors sujet

mbbp a écrit :

Re

Un autre fichier joint où, cette fois, la saisie s'arrête lorsque la limite est atteinte.

Mais il ne s'agit que d'un shockwave, donc non modifiable.

mbbp

Est-ce rėalisable en Vba ?

mbbp

1. Je sais pas si dans un post on peut dévier de sujet sauf que...

2. Ok, je viens de découvrir qu'on bien intégrer du Shockwave sur Excel. Sauf qu'en suite reprendre les composants du "Action Script" devient plus difficile et moins flexible.

Cependant ça peut devenir intéressant pour le développement d'un produit, ex.: tableau de bord.

Est-ce possible d'exporter un chiffrier Excel avec du Shockwave et du VBA en une page HTML?

Parce que ça pourrait me simplifier la vie pour mes créations de tableaux de bord qui sont que en java script.

3. Fin de la paranthèse, mais je suis d'avis de Jean-Éric que j'aimerais bien connaître le action script derrière ton Flash.

Merci,

Bonjour Jack,

On se réveille, on a bien dormi, c'est la forme

Looool je suis toujours sur le decalage!

Mais comme je suis a moitié ch'ti j'arrive à suivre

jacklambert a écrit :

j'aimerais bien connaître le action script derrière ton Flash.

Malheureusement : pas de script pour ce swf :

Avec flash : il suffit d'insérer un texte de saisie et d'indiquer le nombre maximum de caractères.

Je cherche un code VBA pour obtenir le même résultat.

mbbp

Good, thanks!

Re,

Pour obtenir le nbre de caractère(s) restant(s) : une seule instruction : count = 60-input.length;

mbbp