problème avec SendKeys "%{Down}"

Bonjour,

Se pourrait-il que l'ouverture d'un menu déroulant soit impossible dès lors que cette cellule s'inscrit dans une groupe de cellules fusionnées ?
Je sèche !

Code:

---

1 2 3 4 5

With ActiveSheet .Range("K2").Select .MergeArea.ClearContents SendKeys "%{Down}" End With

---

Merci pour vos lumières !

Bonjour
Déjà :
Depuis quand MergeArea serait une propriété d'une feuille ?

Bonjour,

Oups, j'ai peut-être mal recopié le code !
En fait, j'ai fait passer le msgbox avant et ça fonctionne. Si je le place après "End With", le msgbox shunte l'ouverture du menu déroulant ; comment peut-on éviter ça ?

Code:

---

1 2 3 4 5 6 7 8 9

MsgBox "Pensez à saisir une nouvelle date !", vbExclamation Application.EnableEvents = False 'attention ! With ActiveSheet.Range("k2") .MergeArea.ClearContents .Select SendKeys "%{Down}" End With   Application.EnableEvents = True 'attention !

---

Citation:

---

Oups, j'ai peut-être mal recopié le code !

---

Et (je l'ai dit plusieurs fois) je n'accepte pas que l'on présente des codes "reconstruits", mais uniquement des copiés/collés du code que l'on a écrit et dont on dit qu'ils génèrent un problème ?
Ton "peut-être" est de surcroît inquiétant.
Et qui me permet maintenant d'être certain de ce que, ce coup-ci, c'est bien un copié/collé rigoureux de ton code réel, hein ??? (chat échaudé, ma foi ... tu connais le dicton).

Bonsoir,

En écoutant ces jours-ci, une conférence de Cédric VILLANI (...), il semble que même les plus grands ne soient sûrs de rien.

Cdt