Bonjour
je désire pouvoir réaliser cette proc sur une plage A3:A100
Merci beaucoup
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", vbInformation, _
"Nombre de caractère > 8"
Target.ClearContents
End If
End If
End Sub
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
Pierre Fauconnier
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Bonsoir
If not intersect(target, range("A3:A100) is nothing then
...
...
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" <Laurent@hibernatus.com> a écrit dans le message de
news:OTkXJIfNEHA.1916@TK2MSFTNGP11.phx.gbl...
Bonjour
je désire pouvoir réaliser cette proc sur une plage A3:A100
Merci beaucoup
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", vbInformation, _
"Nombre de caractère > 8"
Target.ClearContents
End If
End If
End Sub
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Laurent
Bon sang mais c'est bien sûr. Merci Pierre, cela convient parfaitement Laurent
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Bon sang mais c'est bien sûr.
Merci Pierre, cela convient parfaitement
Laurent
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%23H4bpufNEHA.2244@tk2msftngp13.phx.gbl...
Bonsoir
If not intersect(target, range("A3:A100) is nothing then
...
...
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" <Laurent@hibernatus.com> a écrit dans le message de
news:OTkXJIfNEHA.1916@TK2MSFTNGP11.phx.gbl...
Bonjour
je désire pouvoir réaliser cette proc sur une plage A3:A100
Merci beaucoup
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", vbInformation, _
"Nombre de caractère > 8"
Target.ClearContents
End If
End If
End Sub
Bon sang mais c'est bien sûr. Merci Pierre, cela convient parfaitement Laurent
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Pierre Fauconnier
Correction
If not intersect(target, range("A3:A100)) is nothing then ...
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Correction
If not intersect(target, range("A3:A100)) is nothing then
...
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%23H4bpufNEHA.2244@tk2msftngp13.phx.gbl...
Bonsoir
If not intersect(target, range("A3:A100) is nothing then
...
...
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" <Laurent@hibernatus.com> a écrit dans le message de
news:OTkXJIfNEHA.1916@TK2MSFTNGP11.phx.gbl...
Bonjour
je désire pouvoir réaliser cette proc sur une plage A3:A100
Merci beaucoup
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", vbInformation, _
"Nombre de caractère > 8"
Target.ClearContents
End If
End If
End Sub
If not intersect(target, range("A3:A100)) is nothing then ...
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Laurent
Ok correct. Merci Laurent
"Pierre Fauconnier" a écrit dans le message de news:
Correction
If not intersect(target, range("A3:A100)) is nothing then ...
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub
Ok correct.
Merci
Laurent
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:e4o7mxfNEHA.3452@TK2MSFTNGP10.phx.gbl...
Correction
If not intersect(target, range("A3:A100)) is nothing then
...
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%23H4bpufNEHA.2244@tk2msftngp13.phx.gbl...
Bonsoir
If not intersect(target, range("A3:A100) is nothing then
...
...
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" <Laurent@hibernatus.com> a écrit dans le message de
news:OTkXJIfNEHA.1916@TK2MSFTNGP11.phx.gbl...
Bonjour
je désire pouvoir réaliser cette proc sur une plage A3:A100
Merci beaucoup
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", vbInformation, _
"Nombre de caractère > 8"
Target.ClearContents
End If
End If
End Sub
"Pierre Fauconnier" a écrit dans le message de news:
Correction
If not intersect(target, range("A3:A100)) is nothing then ...
"Pierre Fauconnier" a écrit dans le message de news:%
Bonsoir
If not intersect(target, range("A3:A100) is nothing then ... ...
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurent" a écrit dans le message de news:
Bonjour je désire pouvoir réaliser cette proc sur une plage A3:A100 Merci beaucoup
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", vbInformation, _ "Nombre de caractère > 8" Target.ClearContents End If End If End Sub