Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Adaptation de proc

4 réponses
Avatar
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

4 réponses

Avatar
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




Avatar
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








Avatar
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








Avatar
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