• Initiateur de la discussion Initiateur de la discussion marc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

marc

Guest
J'ai 2 colonnes de noms
Je souhaite mettre en évidence les noms qui ne se trouvent pas dans les 2 colonnes : coment faire ?
 
Bonsoir Marc,

Tu trouveras en pièce jointe un exemple de code permettant de traiter le problème posé.

=====================================================

Private Sub CommandButton1_Click()

Set RngColA = Range("A2:A50") 'Zone à explorer (Réglable)
Set RngColB = Range("B2:B50") 'Zone à explorer (Réglable)

For Each Cel In Union(RngColA, RngColB)
Cel.Interior.ColorIndex = xlNone
Next Cel

For Each CelA In RngColA
CelA.Interior.ColorIndex = RngColA.Cells(1).Offset(-1, 0).Interior.ColorIndex
For Each CelB In RngColB
If CelA = CelB Then
CelA.Interior.ColorIndex = xlNone
End If
Next CelB
Next CelA

For Each CelB In RngColB
CelB.Interior.ColorIndex = RngColB.Cells(1).Offset(-1, 0).Interior.ColorIndex
For Each CelA In RngColA
If CelB = CelA Then
CelB.Interior.ColorIndex = xlNone
End If
Next CelA
Next CelB

End Sub
=====================================================

En te souhaitant bon courage pour la suite...

Omicron
 

Pièces jointes

bonjour

je suis novice, j'ai téléchargé la macro pour comparer la macro
super
mais mon souci est une fois que j'ai les couleurs comment faire pour trier et n'avoir que par exemple les bleues car mon tableau possède 1700 lignes

merci
roseline
 
Bonsoir Le Forum,

Ah Roselyne !!! on va pas se laisser embêter par une couleur à trier!!!pas la veille de changer
d'année.

Voici une macro function que tu colles dans un module (ALT F11) : en te retrouvant dans l'univers
de VBE, tu vois ton classeur s'afficher. Tu inséres un module avec le menu, et puis tu fais un copier
coller des codes ci-dessous.


Function CouleurType(Cell As Range)
    CouleurType = Cell.Interior.ColorIndex
End Function

Deuxième étape : tu vas dans une cellule adjacente et tu fais =CouleurType(A2) et on obtient un code couleur.

Troisième étape : tu poses un filtre et tu tries sur le chiffre.Dans le cas présent, tu choisis le 17 pour le bleu


Pour toi, je remets le fichier avec la fonction.


Celeda
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
217
Réponses
7
Affichages
181
Réponses
2
Affichages
142
Réponses
6
Affichages
192
Réponses
7
Affichages
158
Retour