Problème avec l'affichage automatique des validations d'une cellule
2 réponses
François
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique dans
une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then
SendKeys "%{DOWN}"
End If
End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules
fusionnée ...
et en remplaçant F40 par F40:H40 , cela ne résout rien !
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
JB
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing Then SendKeys "%{DOWN}" End If End Sub
JB
On 22 sep, 09:14, "François" wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique d ans une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then SendKeys "%{DOWN}" End If End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules fusionnée ... et en remplaçant F40 par F40:H40 , cela ne résout rien !
Auriez vous une solution ... ?
Merci à tous
François
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([F40], Target) Is Nothing Then
SendKeys "%{DOWN}"
End If
End Sub
JB
On 22 sep, 09:14, "François" <nos...@nospam.fr> wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique d ans
une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then
SendKeys "%{DOWN}"
End If
End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules
fusionnée ...
et en remplaçant F40 par F40:H40 , cela ne résout rien !
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing Then SendKeys "%{DOWN}" End If End Sub
JB
On 22 sep, 09:14, "François" wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique d ans une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then SendKeys "%{DOWN}" End If End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules fusionnée ... et en remplaçant F40 par F40:H40 , cela ne résout rien !
Auriez vous une solution ... ?
Merci à tous
François
François
Bonjour JB,
Merci pour ta reponse, j'avais en effet oublié de remettre dans ma question cette partie de la ligne ... Mais effectivement le problème venait néanmoins de "And Target.Count = 1", car en remplaçant 1 par 3 cela fonctionne
Merci beaucoup
François
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing Then SendKeys "%{DOWN}" End If End Sub
JB
On 22 sep, 09:14, "François" wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique dans une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then SendKeys "%{DOWN}" End If End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules fusionnée ... et en remplaçant F40 par F40:H40 , cela ne résout rien !
Auriez vous une solution ... ?
Merci à tous
François
Bonjour JB,
Merci pour ta reponse, j'avais en effet oublié de remettre dans ma question
cette partie de la ligne ...
Mais effectivement le problème venait néanmoins de "And Target.Count = 1",
car en remplaçant 1 par 3 cela fonctionne
Merci beaucoup
François
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1190448066.957995.224830@57g2000hsv.googlegroups.com...
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([F40], Target) Is Nothing Then
SendKeys "%{DOWN}"
End If
End Sub
JB
On 22 sep, 09:14, "François" <nos...@nospam.fr> wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique
dans
une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then
SendKeys "%{DOWN}"
End If
End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules
fusionnée ...
et en remplaçant F40 par F40:H40 , cela ne résout rien !
Merci pour ta reponse, j'avais en effet oublié de remettre dans ma question cette partie de la ligne ... Mais effectivement le problème venait néanmoins de "And Target.Count = 1", car en remplaçant 1 par 3 cela fonctionne
Merci beaucoup
François
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing Then SendKeys "%{DOWN}" End If End Sub
JB
On 22 sep, 09:14, "François" wrote:
Bonjour à tous,
Je voudrais "autoactiver" l'affichage des validations lorsque je clique dans une cellule (proposée dans un classeur de JB)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([F40], Target) Is Nothing And Target.Count = 1 Then SendKeys "%{DOWN}" End If End Sub
Cela marche bien pour une cellule isolée, mais par pour trois cellules fusionnée ... et en remplaçant F40 par F40:H40 , cela ne résout rien !