Limite de caractère dans cellules fusionner....

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #2

Re : Limite de caractère dans cellules fusionner....

Bonjour,


chez moi, sous 2003 avec validation de données il y a blocage, sur 1er onglet "options" autoriser : "longueur de texte", données : "inférieure à", maximum : 7, 3ème onglet, "alerte d'erreur", style : "arrêt"...

bon après midi
@+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Avril 2011

• #3

Re : Limite de caractère dans cellules fusionner....

Bonjour,

CyberNeo99 à dit:

Voici mon Pb, je veux limiter le Nb de caratère dans une cellule par exemple à 6. Je sais que l'on peut y aller via Données/Validation et longueur de texte mais il ne bloque pas entièrement, il donne le choix par poursuivre ou non en bout de ligne il peut accepter plus de 6 caractères.

Cliquez pour agrandir...

Pas chez moi !
Dommées/Validation/Alerte d'erreur
Coches --> quand les données...
style --> Arrêt
A+
kjin

 

Vote positif 0 Vote négatif

DL_13

XLDnaute Occasionnel

• 15 Avril 2011

• #4

Re : Limite de caractère dans cellules fusionner....

Bonjour

Pas de problème chez moi, ton code est fonctionnel et je n'ai pas réussi à reproduire ton problème

Si je tape - de 6 caractères, je peux passer à une autre cellule, je le corrige et met + de caractères que prévu: message
Si je tape + de 6 caractères, le message s'affiche correctement

Cellules fusionnées... ou pas... Peut-être ne pas fusionner les cellules mais les center sur plusieurs colonnes 😕


Edit: Bonjour Pierrot93, kjin... même remarques
Bonne journée

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 15 Avril 2011

• #5

Re : Limite de caractère dans cellules fusionner....

Bonjour DL_13,

En fait tout fonctionne lors de la saisie, c'est lorsque je saisie 6 caractères ou moins et qu'en suite je vais dans une autre cellule et que je reviens sur cette cellule et que je veux effacer le contenu il y a une erreur de compilation. C'est avec la cellule fusionner soit C5 que le Pb survient avec l'autre C10 qui n'est pas fusionner, aucun Pb.

Merci à l'avance

Neo

 

Vote positif 0 Vote négatif

DL_13

XLDnaute Occasionnel

• 15 Avril 2011

• #6

Re : Limite de caractère dans cellules fusionner....

Re le fil

Ton problème est certainement réel mais je n'ai, en aucun cas, pu reproduire le bug

j'ai essayé, comme Pierrot et Kjin différentes manipulations ...sans résultats

Y-a t-il une relation formulistique entre les cellules fusionnées (C5 : D5) et la cellule C10 ?

A te lire... certainement comme mes camarades

bonne journée

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 15 Avril 2011

• #7

Re : Limite de caractère dans cellules fusionner....

Bonjour DL_13,

Non aucune formule car j'ai le Pb dans le fichier que je vous ai fait parvenir. Si j'écris dans la cellule C5 la valeur 123456 et que je vais dans une autre cellule et que je reviens sur C5 et que je veux effacer le contenu une erreur de compilation apparaît me disant que l'erreur est dans le code

If Len(.Value) > 6 Then

Je ne comprend pas du tout car si vous n'avez pas le Pb, c'est vraiment bizarre tout ça car j'ai pris un fichier vierge et je n'ai mis que le code et rien d'autre.

Merci pour ton aide

Neo

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 15 Avril 2011

• #8

Re : Limite de caractère dans cellules fusionner....

Bonjour à tous,

J'ai trouvé la solution

Le code la ligne suivante :

If Len(.Value) > 6 Then

a été changer pour

If Len(Target(1).Value) > 6 Then

Et mon Pb est résolé.

C'est une erreur du type

Merged cells cause "Runtime error 13 type mismatch" problem

La solution est à la page suivante

http://www.excelforum.com/excel-programming/549167-merged-cells-cause-runtime-error-13-type-mismatch-problem.html



Merci pour tous.

Neo

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #9

Re : Limite de caractère dans cellules fusionner....

Bonsoir,

modifie le code ainsi :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("C5:D5")) Is Nothing Then
    For Each c In Target
        If Len(c.Value) > 6 Then
            MsgBox " Limite imposé de 6 caractères !", vbInformation
            c.Value = Empty
            c.Select
        End If
    Next c
End If
End Sub

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 15 Avril 2011

• #10

Re : Limite de caractère dans cellules fusionner....

Bonjour Pierrot93,

Merci pour ton code il fonctionne, il règle le Pb aussi.

Merci à tous

Neo

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #11

Re : Limite de caractère dans cellules fusionner....

Re,



Edition : trompé de post.... désolé...

 

Vote positif 0 Vote négatif