Bonjour, cette proc ne fonctionne pas
merci de m'expliquer pourquoi.
Louis
Dim Rg As Range
Var = Len(Target)
Set Rg = Intersect(Target, Range("A3:A100"))
If Not Rg Is Nothing Then
If Var > 8 Then
MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _
& vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _
"Nombre de caractère > 8"
Target.Select
Target.Clear
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
Papou
Bonjour Louis Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème. Je te précise que je l'ai placée dans l'évènement Worksheet_Change ?? Cordialement Pascal
"Louis" a écrit dans le message de news: uTumU4#
Bonjour, cette proc ne fonctionne pas merci de m'expliquer pourquoi. Louis
Dim Rg As Range Var = Len(Target) Set Rg = Intersect(Target, Range("A3:A100")) If Not Rg Is Nothing Then If Var > 8 Then MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _ & vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _ "Nombre de caractère > 8" Target.Select Target.Clear End If End If End Sub
Bonjour Louis
Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème.
Je te précise que je l'ai placée dans l'évènement Worksheet_Change
??
Cordialement
Pascal
"Louis" <Louis@loupgarou.com> a écrit dans le message de news:
uTumU4#OEHA.3016@tk2msftngp13.phx.gbl...
Bonjour, cette proc ne fonctionne pas
merci de m'expliquer pourquoi.
Louis
Dim Rg As Range
Var = Len(Target)
Set Rg = Intersect(Target, Range("A3:A100"))
If Not Rg Is Nothing Then
If Var > 8 Then
MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _
& vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _
"Nombre de caractère > 8"
Target.Select
Target.Clear
End If
End If
End Sub
Bonjour Louis Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème. Je te précise que je l'ai placée dans l'évènement Worksheet_Change ?? Cordialement Pascal
"Louis" a écrit dans le message de news: uTumU4#
Bonjour, cette proc ne fonctionne pas merci de m'expliquer pourquoi. Louis
Dim Rg As Range Var = Len(Target) Set Rg = Intersect(Target, Range("A3:A100")) If Not Rg Is Nothing Then If Var > 8 Then MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _ & vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _ "Nombre de caractère > 8" Target.Select Target.Clear End If End If End Sub
Louis
OK merci, je n'avais pas mis le type de procédure. Louis
"Papou" a écrit dans le message de news:eoRJb9%
Bonjour Louis Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème. Je te précise que je l'ai placée dans l'évènement Worksheet_Change ?? Cordialement Pascal
"Louis" a écrit dans le message de news: uTumU4#
Bonjour, cette proc ne fonctionne pas merci de m'expliquer pourquoi. Louis
Dim Rg As Range Var = Len(Target) Set Rg = Intersect(Target, Range("A3:A100")) If Not Rg Is Nothing Then If Var > 8 Then MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _ & vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _ "Nombre de caractère > 8" Target.Select Target.Clear End If End If End Sub
OK merci, je n'avais pas mis le type de procédure.
Louis
"Papou" <oterceciparob@otercecifree.fr> a écrit dans le message de
news:eoRJb9%23OEHA.4008@TK2MSFTNGP09.phx.gbl...
Bonjour Louis
Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème.
Je te précise que je l'ai placée dans l'évènement Worksheet_Change
??
Cordialement
Pascal
"Louis" <Louis@loupgarou.com> a écrit dans le message de news:
uTumU4#OEHA.3016@tk2msftngp13.phx.gbl...
Bonjour, cette proc ne fonctionne pas
merci de m'expliquer pourquoi.
Louis
Dim Rg As Range
Var = Len(Target)
Set Rg = Intersect(Target, Range("A3:A100"))
If Not Rg Is Nothing Then
If Var > 8 Then
MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _
& vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _
"Nombre de caractère > 8"
Target.Select
Target.Clear
End If
End If
End Sub
OK merci, je n'avais pas mis le type de procédure. Louis
"Papou" a écrit dans le message de news:eoRJb9%
Bonjour Louis Chez moi (Excel 2000 SR1) ta procédure fonctionne sans problème. Je te précise que je l'ai placée dans l'évènement Worksheet_Change ?? Cordialement Pascal
"Louis" a écrit dans le message de news: uTumU4#
Bonjour, cette proc ne fonctionne pas merci de m'expliquer pourquoi. Louis
Dim Rg As Range Var = Len(Target) Set Rg = Intersect(Target, Range("A3:A100")) If Not Rg Is Nothing Then If Var > 8 Then MsgBox "Vous avez déposé " & Var & " caractères dans cette cellule" _ & vbNewLine & "Vous devez en retirer " & Var - 8, vbInformation, _ "Nombre de caractère > 8" Target.Select Target.Clear End If End If End Sub
