Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nombre de caratères

Nombre de caratères

14 réponses
Avatar
Alpha
Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
garnote
Salut Alpha,

Et ceci te convient-il ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End Sub

Serge


"Alpha" a écrit dans le message de news:

Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub




Avatar
Alpha
Merci Garnote, c'est exactement cela.
Alpha

"garnote" a écrit dans le message de
news:XBWOb.38586$
Salut Alpha,

Et ceci te convient-il ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End Sub

Serge


"Alpha" a écrit dans le message de news:

Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub








Avatar
Alpha
Ok Michel, c'est clean également.
Alpha

"Michel Pierron" a écrit dans le message de
news:
Bonsoir Alpha;
Et comme ceci ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Len(.Value) > 8 Then
MsgBox "il faut moins de 9 caractères dans la cellule " _
& .Address(False, False), vbInformation, "Nbre de caractère"
.Select
.ClearContents
End If
End With
End Sub

"Alpha" a écrit dans le message de
news:
Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub








Avatar
Michel Pierron
Bonsoir Alpha;
Et comme ceci ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Len(.Value) > 8 Then
MsgBox "il faut moins de 9 caractères dans la cellule " _
& .Address(False, False), vbInformation, "Nbre de caractère"
.Select
.ClearContents
End If
End With
End Sub

"Alpha" a écrit dans le message de
news:
Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub




Avatar
Alpha
Euh... Comment faire si je ne souhaite que la cellule A1 ?
Merci
Alpha

"garnote" a écrit dans le message de
news:XBWOb.38586$
Salut Alpha,

Et ceci te convient-il ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End Sub

Serge


"Alpha" a écrit dans le message de news:

Bonsoir, cette proc interdit la saisie de + de 8 caractères, je souhaite
qu'elle fonctionne également pour des chiffres.
Merci
Alpha

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
mavar = Target.Address
If Len(Target) > 8 Then
MsgBox "il faut mois de 8 caractères dans la cellule " _
& mavar, vbInformation, "Nbre de caractère"
Range(mavar).Select
Range(mavar).ClearContents
End If
End Sub








Avatar
garnote
Je crois que :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" Then
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End If
End Sub

Serge
Avatar
Alpha
Ok, ok, Garnote, une ptite dernière si tu le permets ?
Pour reprendre le nbre de caractères dans le msgbox.
Ex : Moins de caractères dans la cellule, il y a & nbre de caractère & dans
la cellule. C'est possible ?

Merci
Alpha

"garnote" a écrit dans le message de
news:o%WOb.38590$
Je crois que :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" Then
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End If
End Sub

Serge




Avatar
garnote
Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Len(Target) > 8 Then
MsgBox "Vous avez déposé " & Len(Target) & _
" caractères dans cette cellule" _
& vbNewLine & "mais vous n'avez pas le droit d'en déposer plus de
8."
Target.ClearContents
End If
End If
End Sub

Serge

"Alpha" a écrit dans le message de news:
#
Ok, ok, Garnote, une ptite dernière si tu le permets ?
Pour reprendre le nbre de caractères dans le msgbox.
Ex : Moins de caractères dans la cellule, il y a & nbre de caractère &
dans

la cellule. C'est possible ?

Merci
Alpha

"garnote" a écrit dans le message de
news:o%WOb.38590$
Je crois que :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" Then
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End If
End Sub

Serge








Avatar
Alpha
Bravo et merci Serge, c'est très sympa de ta part.
Alpha

"garnote" a écrit dans le message de
news:ssXOb.38592$
Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Len(Target) > 8 Then
MsgBox "Vous avez déposé " & Len(Target) & _
" caractères dans cette cellule" _
& vbNewLine & "mais vous n'avez pas le droit d'en déposer plus de
8."
Target.ClearContents
End If
End If
End Sub

Serge

"Alpha" a écrit dans le message de news:
#
Ok, ok, Garnote, une ptite dernière si tu le permets ?
Pour reprendre le nbre de caractères dans le msgbox.
Ex : Moins de caractères dans la cellule, il y a & nbre de caractère &
dans

la cellule. C'est possible ?

Merci
Alpha

"garnote" a écrit dans le message de
news:o%WOb.38590$
Je crois que :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" Then
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End If
End Sub

Serge












Avatar
sabatier
attends, serge, c'est quand même pas des m....es de chien, fûssent-elles
issues d'un bouvier bernois, les caractères mis dans une
cellule...excel, de surcroît...
jps

garnote a écrit:
Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Len(Target) > 8 Then
MsgBox "Vous avez déposé " & Len(Target) & _
" caractères dans cette cellule" _
& vbNewLine & "mais vous n'avez pas le droit d'en déposer plus de
8."
Target.ClearContents
End If
End If
End Sub

Serge

"Alpha" a écrit dans le message de news:
#

Ok, ok, Garnote, une ptite dernière si tu le permets ?
Pour reprendre le nbre de caractères dans le msgbox.
Ex : Moins de caractères dans la cellule, il y a & nbre de caractère &


dans

la cellule. C'est possible ?

Merci
Alpha

"garnote" a écrit dans le message de
news:o%WOb.38590$

Je crois que :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" Then
If Len(Target) > 8 Then
MsgBox "Moins de 9 caractères"
Target.ClearContents
End If
End If
End Sub

Serge












1 2