XL 2016 Combobox et cellules fusionnées

Jean_Valjean · 4 Mars 2022

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 · 4 Mars 2022

Bonjour @Jean_Valjean

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

*Merci de ton retour

@Phil69970

Hasco · 4 Mars 2022

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 · 4 Mars 2022

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 · 4 Mars 2022

Marcel32 à dit:
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 · 4 Mars 2022

Re

A priori je n'ai pas compris la demande

@Phil69970

Hasco · 4 Mars 2022

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 · 4 Mars 2022

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 · 4 Mars 2022

Hasco à dit:
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 · 4 Mars 2022

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 · 4 Mars 2022

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

XL 2016 Combobox et cellules fusionnées

Jean_Valjean

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Hasco

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Jean_Valjean

XLDnaute Nouveau

Jean_Valjean

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Discussions similaires