Discussion :

[meolimo]

Bonjour à tous

Après plusieurs lectures et recherches je me dirige vers le forum

je cherche a créer un macro qui afficherait le nombre de caractères insérés dans une cellule mais de façon dynamique pour éventuellement réagir à un nombre déterminé de caractère ajouté à une cellule.

Merci à l'avance

[GeoTrouvePas]

Bonjour,

En utilisant tout simplement la formule NbCar()

[Matiou73]

Bonjour.

A mon avis c'est impossible, il n'y a pas d'évènement qui fonctionnera tant que l'on sera encore dans la cellule, ou alors il faudrait sortir de la cellule à chaque caractère.
Quel est le but de la manœuvre? Il y a peut être d'autres moyens d'arriver au résultat voulu que de compter les caractères en dynamique.

Pour ce qui est de la macro, c'est la fonction LEN() qu'il faut utiliser mais pour ça il faut que la macro se déclenche, ce qui se fera au mieux lors d'un changement dans la cellule qui ne sera pris en compte que lorsque l'on quittera la cellule.

[meolimo]

merci GeoTrouvePas pour l intérêt porté

En effet Matiou73

A mon avis c'est impossible, il n'y a pas d'évènement qui fonctionnera tant que l'on sera encore dans la cellule, ou alors il faudrait sortir de la cellule à chaque caractère.
Quel est le but de la manœuvre? Il y a peut être d'autres moyens d'arriver au résultat voulu que de compter les caractères en dynamique.

Je crois aussi que c est impossible (chose toute de même rare )

Le but est d'éviter l'affichage de ########### signifiant l impossibilité d'afficher qui se retrouve au même format à l'impression
Donc d en informer l'utilisateur.

[Jean-Philippe André]

Salut,

Mais si c'est possible les amis !
Tu as la validation de donnees (onglet Donnees)

Longueur de Texte.


Edit : tu es vraiment en Excel 97 par contre >

[Menhir]

Crée une fonction personnalisée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function NBCARIN(Chaine As String, Optional Carac As String) As Long
If Len(Carac) = 0 Then NBCARIN = Len(Chaine) Else NBCARIN = (Len(Chaine) - Len(Replace(Chaine, Carac, ""))) / Len(Carac)
End Function

Ensuite, tu pourras l'utiliser dans ta feuille de calcul comme une fonction classique.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
=NBCARIN("xxxAAxxxxAAxxAA";"A")
=NBCARIN("xxxAAxxxxAAxxAA";"AA")

Le premier renverra 5, le second renverra 3.

[meolimo]

Jean-Philippe André mon erreur la version est bien 2007

[Menhir]

Le but est d'éviter l'affichage de ########### signifiant l impossibilité d'afficher qui se retrouve au même format à l'impression

Tu peux en partie palier à ce problème avec la mise en forme conditionnelle en adaptant la taille de caractère au nombre de caractères.