Re-bonjour
Je cherche le moyen d'exécuter par une macro
Si le nbre de caractères dépasse une longueur de 20, alors message pop up pour informer qu'il y a trop de caractères
Comme la validation des données ne marche pas comme il faut
Merci
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
Ellimac
Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20 chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ?
Merci
Alpha
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:030501c3dc1c$ba4588a0$a001280a@phx.gbl...
Bonjour,
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20 chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then GoTo traite If Len(Target) <> 20 Then traite: MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If IsNumeric(Target) Then
If Right(Application.Text(Target, "@"), 3) <> 19
Then GoTo traite
If Len(Target) <> 20 Then
traite: MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End If
End Sub
Camille
-----Message d'origine-----
Bonjour Ellimac, et comment faire si l'on veut empêcher
aussi plus de 20
chiffres ?
Merci
Alpha
"Ellimac" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then GoTo traite If Len(Target) <> 20 Then traite: MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If Else If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If IsNumeric(Target) Then
If Right(Application.Text(Target, "@"), 3) <> 19
Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
Else
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End If
End Sub
Camille
-----Message d'origine-----
Bonjour Ellimac, et comment faire si l'on veut empêcher
aussi plus de 20
chiffres ?
Merci
Alpha
"Ellimac" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If Else If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
"Ellimac" a écrit dans le message de news:086401c3dc2e$520a5100$ Re,
Excuse pour l'autre post non testé :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If Else If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:086401c3dc2e$520a5100$a501280a@phx.gbl...
Re,
Excuse pour l'autre post non testé :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If IsNumeric(Target) Then
If Right(Application.Text(Target, "@"), 3) <> 19
Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
Else
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End If
End Sub
Camille
-----Message d'origine-----
Bonjour Ellimac, et comment faire si l'on veut empêcher
aussi plus de 20
chiffres ?
Merci
Alpha
"Ellimac" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
a = Target.Address
If Target.Column = 1 Then
If Len(Target) <> 20 Then
MsgBox "il faut 20 k"
Application.EnableEvents = False
Range(a).Select
Range(a).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
"Ellimac" a écrit dans le message de news:086401c3dc2e$520a5100$ Re,
Excuse pour l'autre post non testé :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If IsNumeric(Target) Then If Right(Application.Text(Target, "@"), 3) <> 19 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If Else If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End If End Sub
Camille
-----Message d'origine----- Bonjour Ellimac, et comment faire si l'on veut empêcher aussi plus de 20
chiffres ? Merci Alpha
"Ellimac" a écrit dans le message de
news:030501c3dc1c$ba4588a0$ Bonjour,
Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Excel.Range) a = Target.Address If Target.Column = 1 Then If Len(Target) <> 20 Then MsgBox "il faut 20 k" Application.EnableEvents = False Range(a).Select Range(a).ClearContents Application.EnableEvents = True End If End If End Sub
Fonctionne pourtant très bien avec Validation de données... Qu'est-ce qui ne fonctionne pas chez toi... je veux dire sur ton poste...! ;-)
ChrisV
"sharmi" a écrit dans le message de news:
Re-bonjour, Je cherche le moyen d'exécuter par une macro : Si le nbre de caractères dépasse une longueur de 20, alors message pop up pour informer qu'il y a trop de caractères.
Comme la validation des données ne marche pas comme il faut. Merci
Bonjour Sharmi,
Fonctionne pourtant très bien avec Validation de données...
Qu'est-ce qui ne fonctionne pas chez toi... je veux dire sur ton poste...!
;-)
ChrisV
"sharmi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 76D4F5E1-9165-4024-8D5E-ED3423FA9755@microsoft.com...
Re-bonjour,
Je cherche le moyen d'exécuter par une macro :
Si le nbre de caractères dépasse une longueur de 20, alors message pop up
pour informer qu'il y a trop de caractères.
Comme la validation des données ne marche pas comme il faut.
Merci
Fonctionne pourtant très bien avec Validation de données... Qu'est-ce qui ne fonctionne pas chez toi... je veux dire sur ton poste...! ;-)
ChrisV
"sharmi" a écrit dans le message de news:
Re-bonjour, Je cherche le moyen d'exécuter par une macro : Si le nbre de caractères dépasse une longueur de 20, alors message pop up pour informer qu'il y a trop de caractères.
Comme la validation des données ne marche pas comme il faut. Merci
sharmi
Merci camille, ca marche mais... admettons que A1 récupère les valeurs de B1 (contenu de A1 ±) la macro en question ne marche pas si le contenu de B1 soit de A1 dépasse les 20 caractères. Merci de jeter un coup d'oeil.
Merci camille, ca marche mais...
admettons que A1 récupère les valeurs de B1 (contenu de A1 ±)
la macro en question ne marche pas si le contenu de B1 soit de A1 dépasse les 20 caractères.
Merci de jeter un coup d'oeil.
Merci camille, ca marche mais... admettons que A1 récupère les valeurs de B1 (contenu de A1 ±) la macro en question ne marche pas si le contenu de B1 soit de A1 dépasse les 20 caractères. Merci de jeter un coup d'oeil.