Worksheet_Change qui ne fonctionne plus si validation de cellules
3 réponses
François
Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans
un Worksheet_Change
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0,
4).Select
End Sub
-> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une
référence nommée (sur cette même page, comme sur un une autre),
la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select !
...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
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
michdenis
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Merci à tous
François
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 4).Select
Application.EnableEvents = True
End If
End Sub
"François" <nospam@nospam.fr> a écrit dans le message de news:
%239qS4dXcJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans
un Worksheet_Change
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0,
4).Select
End Sub
-> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une
référence nommée (sur cette même page, comme sur un une autre),
la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select !
...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Merci à tous
François
François
Bonjour Michdenis
merci pour ta réponse,
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule unitaire ...)
si tu veux tester le fichier, le voici : http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" a écrit dans le message de news:
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Merci à tous
François
Bonjour Michdenis
merci pour ta réponse,
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait
pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un
Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule
unitaire ...)
si tu veux tester le fichier, le voici :
http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uJf5ioZcJHA.2132@TK2MSFTNGP04.phx.gbl...
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 4).Select
Application.EnableEvents = True
End If
End Sub
"François" <nospam@nospam.fr> a écrit dans le message de news:
%239qS4dXcJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis
dans
un Worksheet_Change
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then
Target.Offset(0,
4).Select
End Sub
-> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une
référence nommée (sur cette même page, comme sur un une autre),
la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select !
...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000
?
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule unitaire ...)
si tu veux tester le fichier, le voici : http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" a écrit dans le message de news:
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Merci à tous
François
michdenis
Oublie ça... des fichiers sans explications où je dois chercher ce que tu penses... ça va à la poubelle !
Il y en a peut être d'autre qui auront ou prendront le temps !
"François" a écrit dans le message de news:
Bonjour Michdenis
merci pour ta réponse,
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule unitaire ...)
si tu veux tester le fichier, le voici : http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" a écrit dans le message de news:
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?
Merci à tous
François
Oublie ça... des fichiers sans explications où je dois chercher
ce que tu penses... ça va à la poubelle !
Il y en a peut être d'autre qui auront ou prendront le temps !
"François" <nospam@nospam.fr> a écrit dans le message de news:
eISS8tccJHA.1188@TK2MSFTNGP05.phx.gbl...
Bonjour Michdenis
merci pour ta réponse,
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait
pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un
Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule
unitaire ...)
si tu veux tester le fichier, le voici :
http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uJf5ioZcJHA.2132@TK2MSFTNGP04.phx.gbl...
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 4).Select
Application.EnableEvents = True
End If
End Sub
"François" <nospam@nospam.fr> a écrit dans le message de news:
%239qS4dXcJHA.3948@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis
dans
un Worksheet_Change
If Not Intersect(Target, Range("B15:B22")) Is Nothing Then
Target.Offset(0,
4).Select
End Sub
-> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une
référence nommée (sur cette même page, comme sur un une autre),
la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select !
...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000
?
Oublie ça... des fichiers sans explications où je dois chercher ce que tu penses... ça va à la poubelle !
Il y en a peut être d'autre qui auront ou prendront le temps !
"François" a écrit dans le message de news:
Bonjour Michdenis
merci pour ta réponse,
je n'avais en effet pas verrouillé les conditionnelles, mais il ne devait pas y avoir d'interférence ...
je l'ai mis sans cela cela ne change rien, pas plus que de faire un Offset(,-1)... car la cellule est fusionnée (cela ne change rien en cellule unitaire ...)
si tu veux tester le fichier, le voici : http://cjoint.com/?bivMVlukxB
merci à toi
Bonne journée
"michdenis" a écrit dans le message de news:
As-tu essayé comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Application.EnableEvents = False Target.Offset(0, 4).Select Application.EnableEvents = True End If End Sub
"François" a écrit dans le message de news: % Bonjour à tous,
Dans un fichier que j'ai un goupe de cellules pour lesquelles j'ai mis dans un Worksheet_Change If Not Intersect(Target, Range("B15:B22")) Is Nothing Then Target.Offset(0, 4).Select End Sub -> qui fonctionne bien
Mais quand, pour ces cellules, je mets une validation sur liste par une référence nommée (sur cette même page, comme sur un une autre), la validation fonctionne alors, mais plus le Target.Offset(0, 4).Select ! ...
Est-ce qu'il y a quelque chose à corriger, ou est-ce un bog de Excel 2000 ?