Petit bug avec la fonction Union (pour sélectionner des cellules)

[dionys0s]

Salut le forum

j'ai créé un petit outil afin de sélectionner sur une feuille toutes les cellules dont la couleur de remplissage est identique à celle de la cellule sélectionnée au moment du lancement de la macro.
Donc l'idée, c'est de mémoriser la couleur, de parcourir la feuille, et quand je trouve une cellule qui correspond, j'ai une variable PlageFinale que j'alimente avec la fonction Union(). J'ai des cellule fusionnées, en hauteur et en largeur.

Sur le fichier exemple que j'ai joint, je ne comprends pas pourquoi la sélection du jaune, du rouge et du gris se font correctement, et pas celle du bleu. Quelqu'un aurait-il une idée ?

D'avance merci pour votre aide

dionys0s

 

[Paritec]

Re : Petit bug avec la fonction Union (pour sélectionner des cellules)

Bonjour dionys0s le forum
chez moi cela marche pour toutes les couleurs
a+
papou😱

 

[dionys0s]

Re : Petit bug avec la fonction Union (pour sélectionner des cellules)

Salut Papou, re le forum.

Papou, tu veux dire qu'avec le bleu, la plage sélectionnée à la fin ne contient aucune cellule grise ????

 

[dionys0s]

Re : Petit bug avec la fonction Union (pour sélectionner des cellules)

Re,

oui, je me suis mal exprimé. Quand je dis que ça ne marche pas pour le bleu, c'est qu'en réalité, ça sélectionne bien tous les bleus, mais aussi certain gris.

 

[job75]

Re : Petit bug avec la fonction Union (pour sélectionner des cellules)

Bonjour dionys0s, Papou,

Ceci est bien simple et doit fonctionner correctement :

Sub Selectionner_toutes_les_cellules_d_une_meme_couleur()
Dim coul As Long, sel As Range, c As Range
coul = ActiveCell.Interior.Color
Set sel = ActiveCell.MergeArea
For Each c In ActiveSheet.UsedRange
  If c.Interior.Color = coul Then Set sel = Union(sel, c.MergeArea)
Next
sel.Select
MsgBox sel.Address 'juste pour vérifier
End Sub

A+

 

[dionys0s]

Re : Petit bug avec la fonction Union (pour sélectionner des cellules)

Bonjour Job

Damned ! Tout ça à cause d'un #@&!§% de .MergeArea ?

Merci beaucoup Job !