Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub
x =3D Len(zz)
Application.EnableEvents =3D False
If x =3D 7 Then zz =3D Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"=20
& Right(zz, 2)
If x =3D 9 Then zz =3D Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"=20
& Mid(zz, 8, 2) & "'"
& Right(zz, 2)
Application.EnableEvents =3D True
End Sub
Cependant, lorsque je veux ex=E9cuter la macro, Excel me met=20
que x =3D len (zz) n'est pas d=E9fini et cela bloque.
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
claude-alain
salut,
est ce que la variable x est déclarée ?, si ce n'est pas le cas, commence ta procédure par
dim x
et cela devrait fonctionner
salutations claude-alsin
-----Message d'origine----- Merci à Alain Vallon pour le code suivant
Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub x = Len(zz) Application.EnableEvents = False If x = 7 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"
& Right(zz, 2) If x = 9 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"
& Mid(zz, 8, 2) & "'" & Right(zz, 2) Application.EnableEvents = True End Sub
Cependant, lorsque je veux exécuter la macro, Excel me met
que x = len (zz) n'est pas défini et cela bloque.
.
salut,
est ce que la variable x est déclarée ?, si ce n'est pas
le cas, commence ta procédure par
dim x
et cela devrait fonctionner
salutations
claude-alsin
-----Message d'origine-----
Merci à Alain Vallon pour le code suivant
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub
x = Len(zz)
Application.EnableEvents = False
If x = 7 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3)
& "/"
& Right(zz, 2)
If x = 9 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3)
& "/"
& Mid(zz, 8, 2) & "'"
& Right(zz, 2)
Application.EnableEvents = True
End Sub
Cependant, lorsque je veux exécuter la macro, Excel me
met
est ce que la variable x est déclarée ?, si ce n'est pas le cas, commence ta procédure par
dim x
et cela devrait fonctionner
salutations claude-alsin
-----Message d'origine----- Merci à Alain Vallon pour le code suivant
Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub x = Len(zz) Application.EnableEvents = False If x = 7 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"
& Right(zz, 2) If x = 9 Then zz = Left(zz, 2) & "'" & Mid(zz, 3, 3) & "/"
& Mid(zz, 8, 2) & "'" & Right(zz, 2) Application.EnableEvents = True End Sub
Cependant, lorsque je veux exécuter la macro, Excel me met
que x = len (zz) n'est pas défini et cela bloque.
.
AV
Cependant, lorsque je veux exécuter la macro, Excel me met que x = len (zz) n'est pas défini et cela bloque.
Si ta macro commence comme ça :
Private Sub Worksheet_Change(ByVal zz As Range) Dim x ...etc......
Je ne vois aucune raison que ça coince.....
Eentuellement supprime ton "Option Explicit" et regarde ce que ça donne
AV
Cependant, lorsque je veux exécuter la macro, Excel me met
que x = len (zz) n'est pas défini et cela bloque.
Si ta macro commence comme ça :
Private Sub Worksheet_Change(ByVal zz As Range)
Dim x
...etc......
Je ne vois aucune raison que ça coince.....
Eentuellement supprime ton "Option Explicit" et regarde ce que ça donne
