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
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
:-)))
Au lieu de dire des folies, explique-moi en quoi ma
suggestion à Frank est incorrecte.
Je veux sawoir !!
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C49E7.6060304@wanadoo.fr...
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" <Alpha@ducentaure.fr> a écrit dans le message de news:
#KLmJts3DHA.1948@TK2MSFTNGP12.phx.gbl...
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" <rien@absent.net> a écrit dans le message de
news:o%WOb.38590$6N3.977@charlie.risq.qc.ca...
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
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
sabatier
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en
effet, il m'a fait penser à ce panneau installé dans les chiottes de
quelque bistrot je ne sais plus où et qui disait : "les personnes
effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le
comptoir"...
jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma
suggestion à Frank est incorrecte.
Je veux sawoir !!
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C49E7.6060304@wanadoo.fr...
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" <Alpha@ducentaure.fr> a écrit dans le message de news:
#KLmJts3DHA.1948@TK2MSFTNGP12.phx.gbl...
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" <rien@absent.net> a écrit dans le message de
news:o%WOb.38590$6N3.977@charlie.risq.qc.ca...
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
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
garnote
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-) Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau», 2. Entre alors, par exemple, 3 en A5 et 4 en B5, 3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" a écrit dans le message de news:
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-)
Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau»,
2. Entre alors, par exemple, 3 en A5 et 4 en B5,
3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C538D.5010700@wanadoo.fr...
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en
effet, il m'a fait penser à ce panneau installé dans les chiottes de
quelque bistrot je ne sais plus où et qui disait : "les personnes
effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le
comptoir"...
jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma
suggestion à Frank est incorrecte.
Je veux sawoir !!
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C49E7.6060304@wanadoo.fr...
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" <Alpha@ducentaure.fr> a écrit dans le message de news:
#KLmJts3DHA.1948@TK2MSFTNGP12.phx.gbl...
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" <rien@absent.net> a écrit dans le message de
news:o%WOb.38590$6N3.977@charlie.risq.qc.ca...
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
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-) Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau», 2. Entre alors, par exemple, 3 en A5 et 4 en B5, 3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" a écrit dans le message de news:
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
sabatier
ne te tracasse pas, serge, je ne l'avais même pas vue... jps
garnote a écrit:
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-) Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau», 2. Entre alors, par exemple, 3 en A5 et 4 en B5, 3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" a écrit dans le message de news:
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
ne te tracasse pas, serge, je ne l'avais même pas vue...
jps
garnote a écrit:
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-)
Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau»,
2. Entre alors, par exemple, 3 en A5 et 4 en B5,
3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C538D.5010700@wanadoo.fr...
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en
effet, il m'a fait penser à ce panneau installé dans les chiottes de
quelque bistrot je ne sais plus où et qui disait : "les personnes
effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le
comptoir"...
jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma
suggestion à Frank est incorrecte.
Je veux sawoir !!
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400C49E7.6060304@wanadoo.fr...
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" <Alpha@ducentaure.fr> a écrit dans le message de news:
#KLmJts3DHA.1948@TK2MSFTNGP12.phx.gbl...
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" <rien@absent.net> a écrit dans le message de
news:o%WOb.38590$6N3.977@charlie.risq.qc.ca...
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
ne te tracasse pas, serge, je ne l'avais même pas vue... jps
garnote a écrit:
Je n'ai jamais, au grand jamais, douté de ta gentillesse :-) Et je veux encore sawoir en quoi ma suggestion :
Salut Frank,
1. Nomme ta plage de données, par exemple, «tableau», 2. Entre alors, par exemple, 3 en A5 et 4 en B5, 3. Ailleurs, écris = INDEX(tableau;A5;B5).
est incorrecte !
:-)))
Serge
"sabatier" a écrit dans le message de news:
c'est ton "déposer" qui m'a fait réagir (gentiment) ainsi, serge ; en effet, il m'a fait penser à ce panneau installé dans les chiottes de quelque bistrot je ne sais plus où et qui disait : "les personnes effectuant des dépôts sont priées de ne pas laisser leur monnaie sur le comptoir"... jps
garnote a écrit:
:-)))
Au lieu de dire des folies, explique-moi en quoi ma suggestion à Frank est incorrecte. Je veux sawoir !!
Serge
"sabatier" a écrit dans le message de news:
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
