Adaptation de proc

Le
Laurent
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pierre Fauconnier
Le #1411797
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" 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
Le #1411796
Bon sang mais c'est bien sûr.
Merci Pierre, cela convient parfaitement
Laurent

"Pierre Fauconnier" 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" 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
Le #1411793
Correction

If not intersect(target, range("A3:A100)) is nothing then
...




"Pierre Fauconnier" 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" 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
Le #1411791
Ok correct.
Merci
Laurent

"Pierre Fauconnier" message de news:
Correction

If not intersect(target, range("A3:A100)) is nothing then
...




"Pierre Fauconnier" 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" 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












Publicité
Poster une réponse
Anonyme