Mettre en couleur les cellules ayant le même contenu que la cellule sélectionnée [Résolu]
Juju1971
- Messages postés
- 9
- Date d'inscription
- vendredi 26 août 2011
- Statut
- Membre
- Dernière intervention
- 11 octobre 2012
- Messages postés
- 9
- Date d'inscription
- vendredi 26 août 2011
- Statut
- Membre
- Dernière intervention
- 11 octobre 2012
A voir également:
- Mettre en couleur les cellules ayant le même contenu que la cellule sélectionnée
- Mettre en couleur une cellule excel - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- ValueListEditor : couleur de cellule ✓ - Forum - Delphi / Pascal
- Supprimer le contour et la couleur des cellules ✓ - Forum - Visual Basic 6
- Changer la couleur du texte en fonction du contenu de la cellule ✓ - Forum - Visual Basic 6
- Changer la casse dans les cellules selectionnées - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
9 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Bonjour,
Tout simplement :
déclarer toto as range en variable générale.
Au Selection_Change :
- si toto n'est pas Nothing, lui enlever sa coloration (Interior)
- Extraire la plage toto des cellules "doublons" (utilisation de Union)
- Affecter l'interieur (interior) de celle plage)
Montre-nous ce que tu es capable de faire sur ces bases (ton code d'essaià.
Reviens avec ce code, si encore en difficulté.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Tout simplement :
déclarer toto as range en variable générale.
Au Selection_Change :
- si toto n'est pas Nothing, lui enlever sa coloration (Interior)
- Extraire la plage toto des cellules "doublons" (utilisation de Union)
- Affecter l'interieur (interior) de celle plage)
Montre-nous ce que tu es capable de faire sur ces bases (ton code d'essaià.
Reviens avec ce code, si encore en difficulté.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
195 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
Tout dépend de ce que tu veux faire avec les cellules doublons.
Une méthode pourrait être de mettre une mise en forme conditionnelle en utilisant un "nom" que tu crées dans le gestionnaire de noms
Puis, dans l'événement SelectionChange, tu changes la valeur de ce "nom"
exemple avec le nom "Sélection" et qui a la valeur de A1 au départ (ou encore ="") et une mise en forme conditionnelle sur toutes les cellules de la feuille avec la condition suivante
[Valeur de la cellule] [égale à] [=""&Sélection]
Puis comme code
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Une méthode pourrait être de mettre une mise en forme conditionnelle en utilisant un "nom" que tu crées dans le gestionnaire de noms
Puis, dans l'événement SelectionChange, tu changes la valeur de ce "nom"
exemple avec le nom "Sélection" et qui a la valeur de A1 au départ (ou encore ="") et une mise en forme conditionnelle sur toutes les cellules de la feuille avec la condition suivante
[Valeur de la cellule] [égale à] [=""&Sélection]
Puis comme code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Names("Sélection").Value = ActiveCell.Value
End Sub
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
- Messages postés
- 9
- Date d'inscription
- vendredi 26 août 2011
- Statut
- Membre
- Dernière intervention
- 11 octobre 2012
Merci Ucfoutu et MPi pour vos réponses.
Je vais essayer de modifier ma macro selon vos conseils.
Ucfoutu, je ne comprend pas bien le principe d'extraire la plage.
S'agit-il de copier toutes les cellules qui ont des doublons dans une seconde feuille ?
Mpi, lorsque je me place sur une cellule, je souhaiterais pouvoir rapidement repérer si d'autres cellules ont la même valeur en changeant la couleur de fond de celles-ci.
Je n'ai pas besoin que la macro en fasse plus car ces doublons ne sont pas forcément des erreurs dans mon cas.
Merci déja pour votre aide,
Juju1971
Je vais essayer de modifier ma macro selon vos conseils.
Ucfoutu, je ne comprend pas bien le principe d'extraire la plage.
S'agit-il de copier toutes les cellules qui ont des doublons dans une seconde feuille ?
Mpi, lorsque je me place sur une cellule, je souhaiterais pouvoir rapidement repérer si d'autres cellules ont la même valeur en changeant la couleur de fond de celles-ci.
Je n'ai pas besoin que la macro en fasse plus car ces doublons ne sont pas forcément des erreurs dans mon cas.
Merci déja pour votre aide,
Juju1971
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Ucfoutu, je ne comprend pas bien le principe d'extraire la plage.
S'agit-il de copier toutes les cellules qui ont des doublons dans une seconde feuille ?
NON ! Pas du tout !
Il s'agit de constituer la plage des cellules doublons. Cette plage n'est pas forcément continue.
Relis ce que je t'en ai dit ici :
- Extraire la plage toto des cellules "doublons" (utilisation de Union)
Ouvre donc ton aide VB6 sur le mot Union !
C'est ensuite cette plage que tu dois utiliser pour :
Affecter l'interieur (interior) de celle plage)
Je ne pourrai aller loin avec toi si tu ne t'intéresses pas aux choses de base !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
>>Mpi, lorsque je me place sur une cellule, je souhaiterais pouvoir rapidement repérer si d'autres cellules ont la même valeur en changeant la couleur de fond de celles-ci.
C'est exactement ce que fait ce que je t'ai donné. Dès que tu sélectionnes une cellule, toutes les autres identiques changeront selon le format que tu as donné dans la mise en forme conditionnelle.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
C'est exactement ce que fait ce que je t'ai donné. Dès que tu sélectionnes une cellule, toutes les autres identiques changeront selon le format que tu as donné dans la mise en forme conditionnelle.
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Un petit rappel d'un aspect de la demande :
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
De plus lorsque je sélectionne une autre cellule, il prend bien en compte la nouvelle recherche mais la macro laisse en couleur les doublons de la première recherche au lieu de réinitialiser
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
La façon de procéder que j'ai mise permet d'afficher toutes les cellules identiques à celle sélectionnée. Si on clique une autre cellule, seule les cellules identiques à cette nouvelle cellule sélectionnée seront affichées selon le format chosi dans la mise en forme conditionnelle.
Et c'est très rapide
Par contre, il s'agit de voir quelles actions seront posées sur ces cellules. Est-ce qu'elles seront effacées ? déplacées ? autre ?
On pourrait modifier le code de SelectionChange() pour y créer le "nom" au cas où il disparaîtrait de quelconque façon
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Et c'est très rapide
Par contre, il s'agit de voir quelles actions seront posées sur ces cellules. Est-ce qu'elles seront effacées ? déplacées ? autre ?
On pourrait modifier le code de SelectionChange() pour y créer le "nom" au cas où il disparaîtrait de quelconque façon
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If IsError(Application.Names("Sélection").Value) Then
ActiveWorkbook.Names.Add Name:="Sélection", RefersToR1C1:="="""""
End If
Application.Names("Sélection").Value = ActiveCell.Value
On Error GoTo 0
End Sub
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
Peut-être que j'ai créé la confusion en utilisant le nom "Sélection" qui se confond aisément avec le mot réservé Selection. Donc on pourrait changer ce mot dans le code et la mise en forme conditionnelle par "MaCellule" ou autre...
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
- Messages postés
- 9
- Date d'inscription
- vendredi 26 août 2011
- Statut
- Membre
- Dernière intervention
- 11 octobre 2012
Merci pour vos réponses à tous les deux.
Etant novice en VBA, je continue à étudier vos commentaires.
J'essaie d'aller le plus loin que je peux avec les codes avant de vous en demander plus car je ne cherche pas à faire du "copier/coller".
Sinon pour les cellules qui seraient en double dans mon tableau, je ne vais pas les effacer.
Elles se situent sur deux colonnes D et I.
Et si par exemple une donnée se trouve dans la colonne D, et que j'observe un ou plusieurs doublons ailleurs dans mon tableau dans la colonne I, je vais croiser les données entre la colonne D et I afin qu'elles soient toujours dans la même colonne.
Pour ce croisement, j'ai déja fait une macro qui fonctionne, je n'ai qu'à me mettre quelque part sur la colonne D et un bouton inverse le contenu de la cellule en D avec celui de la colonne en I.
Je ne cherche pas non plus à faire une inversion automatique, car il peut arriver d'avoir la même donnée dans les deux colonnes et dans ce cas je dois décider d'un croisement selon le contenu dans les autres colonnes.
Autre point la totalité de la feuille est régulièrement remplacée par l'importation d'une nouvelle feuille, avec les mêmes colonnes mais avec des données totalement différentes.
Mpi, je regarde aussi pour la mise en forme conditionnelle via le gestionnaire de nom, pour l'instant je ne connais que le principe de base en Excel.
Etant novice en VBA, je continue à étudier vos commentaires.
J'essaie d'aller le plus loin que je peux avec les codes avant de vous en demander plus car je ne cherche pas à faire du "copier/coller".
Sinon pour les cellules qui seraient en double dans mon tableau, je ne vais pas les effacer.
Elles se situent sur deux colonnes D et I.
Et si par exemple une donnée se trouve dans la colonne D, et que j'observe un ou plusieurs doublons ailleurs dans mon tableau dans la colonne I, je vais croiser les données entre la colonne D et I afin qu'elles soient toujours dans la même colonne.
Pour ce croisement, j'ai déja fait une macro qui fonctionne, je n'ai qu'à me mettre quelque part sur la colonne D et un bouton inverse le contenu de la cellule en D avec celui de la colonne en I.
Je ne cherche pas non plus à faire une inversion automatique, car il peut arriver d'avoir la même donnée dans les deux colonnes et dans ce cas je dois décider d'un croisement selon le contenu dans les autres colonnes.
Autre point la totalité de la feuille est régulièrement remplacée par l'importation d'une nouvelle feuille, avec les mêmes colonnes mais avec des données totalement différentes.
Mpi, je regarde aussi pour la mise en forme conditionnelle via le gestionnaire de nom, pour l'instant je ne connais que le principe de base en Excel.