XL 2016 Combobox et cellules fusionnées

[Jean_Valjean]

Bonjour,

Je rencontre un souci avec des combobox sur cellules fusionnées : sur ma feuille 3 combobox sont activées sur des plages de cellules pour une saisie intuitive des données. Lorsque le combo est positionné sur une cellule simple cela fonctionne sans très bien (ex : D6), mais j'ai 2 cas où les combo sont sur des cellules fusionnées (ex : K32) et là le combobox n'apparait plus (Cf. fichier joint).

Je bloque un peu sur la manière de définir cette plage de cellules fusionnées tout en gardant la saisie intuitive.

 

[Phil69970]

Bonjour @Jean_Valjean

J'ai redimensionné les combobox et cela semble bien fonctionner

*Merci de ton retour

@Phil69970

 

[Hasco]

Bonjour,

Dans votre code évènementiel "Worksheet_SelectionChange" vous avez défini la plage aSaisie ainsi :

=Range("K32:K35")

Mais comme ce sont des cellules fusionnées en ligne votre plage doit être : Range("K32:R35")

Plus bas vous avez un test

If Not Intersect(aSaisie, Target) Is Nothing And Target.Count = 1

Pour aSaisie Target.Count ne sera jamais égal à 1.

Vous pouvez éventuellement remplacer ce 1 par 8 (nombre de cellules fusionnées sur la ligne)
Eventuellement ajouter le nombre de lignes :

Target.Rows:.Count = 1 And Target.Count = 8

cordialement

 

[TooFatBoy]

Bonjour,

Si tu laisses tes cellules fusionnées, il faut changer la valeur de aSaisie.
Il faut mettre Range("K32:R35") au lieu de Range("K32:K35").

Et il ne faut plus tester Target.count par rapport à 1 mais par rapport à 8.


[edit]Arf... grilled 😁[/edit]

 

[Hasco]

Et il ne faut plus tester Target.count par rapport à 1 mais par rapport à 8.

Hi hi hi, j'avais mis 7 au lieu de 8.
C'est corrigé.
Merci Marcel 🙂

 

[Phil69970]

Re

A priori je n'ai pas compris la demande 😵

@Phil69970

 

[Hasco]

RE,

@Phil69970, je me demande bien pourquoi je ne vois votre post#2 que maintenant, j'avais pourtant rafraîchit, fermer, réouvert la conversation !


Cordialement chacun 🙂

 

[Phil69970]

Re

@Hasco souvent cela me fait ça, avec des fois une variante:
je vois le post lorsque je poste mon message et des fois .... longtemps après .😵

@Phil69970

 

[Jean_Valjean]

Bonjour,

Dans votre code évènementiel "Worksheet_SelectionChange" vous avez défini la plage aSaisie ainsi :



Mais comme ce sont des cellules fusionnées en ligne votre plage doit être : Range("K32:R35")

Plus bas vous avez un test



Pour aSaisie Target.Count ne sera jamais égal à 1.

Vous pouvez éventuellement remplacer ce 1 par 8 (nombre de cellules fusionnées sur la ligne)
Eventuellement ajouter le nombre de lignes :



cordialement

 

[Jean_Valjean]

Bonjour la communauté,

Merci pour vos retours. J'ai fait ces 2 modifications et la macro plante désormais quelques lignes en dessous sur l'instruction "Me.Combo_accessoire = Target".

 

[Hasco]

Re,

Il me semble que vous avez maintenant les clefs pour comprendre pourquoi Target ne représente pas une seule cellule, adapter vos macros en fonction et commencer à être autonome

cordialement