Discussion :

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ActiveSheet
    .Range("K2").Select
    .MergeArea.ClearContents
    SendKeys "%{Down}"
End With

Merci pour vos lumières !

[unparia]

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

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[unparia]

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).

[jpma75]

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