XL 2010 macro pour sélectionner des données

[steph_29120]

Re-bonjour,

encore moi !

je cherche une macro qui sélectionnerai toutes les cellules contenant les même données (chaine de caractères) et qui les colorisent juste le temps de sélection.
Par exemple tous les PT. Puis tous les S ainsi de suite...

 

[Cousinhub]

Hello,
Re-,
Dans ce fichier, juste une ligne de code (dans les évènements de la Feuil1) pour calculer lors d'un changement de sélections de cellule
Et une Mise En Forme Conditionnelle qui concerne les cellules du tableau
Dans cette MEFC, une formule :

=A1=CELLULE("contenu")

A adapter
Le fichier
PS, lors d'une de tes dernières demandes, tu postais sous Excel 2016, et ici, 2010????
PS2, ici, je ne sélectionne pas les cellules identiques, je ne fais que les colorier....

 

[steph_29120]

nickel super génial !
Par contre il ne faut pas me donner trop de bonnes réponses je risque d'en redemander

 

[Cousinhub]

Bah, entre 29N et 29S, on peut s'entraider, kan mêm!

 

[steph_29120]

Bonjour,
@Cousinhub la MEFC conditionnelle fonctionnait dans l'exemple mais pas dans le classeur "final".
il faut désormais double cliquer dans une cellule vide puis venir dans une cellule dont on souhaite sélectionner le texte.
De plus la mise en forme ne s'annule plus quand on clique dans une autre cellule.

J'espère avoir été le plus clair possible.
ci-joint le fichier final !
merci et bonne journée
Stéphane

 

[Cousinhub]

Bonjour,
Effectivement, j'avais oublié de préciser que mon exemple comportait une formule qui ne se met à jour qu'à un évènement provoquant un re-calcul dans l'onglet.
Cette mise à jour se fait donc lorsqu'on modifie une cellule (ou qu'on appuie sur la touche F9)
Pour forcer ce calcul, il faut donc mettre un code lorsqu'on change de sélection de cellule
Le code pour la mise jour se situe dans l'évènement de feuille (clic droit sur le nom de l'onglet, "Visualiser le code"
Il faut donc que le fichier soit enregistré en ".xlsm" (Fichier prenant en charge les macros).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Ton fichier modifié, et enregistré en ".xlsm"
Bonne fin d'apm

 

[steph_29120]

Bonjour,
Effectivement, j'avais oublié de préciser que mon exemple comportait une formule qui ne se met à jour qu'à un évènement provoquant un re-calcul dans l'onglet.
Cette mise à jour se fait donc lorsqu'on modifie une cellule (ou qu'on appuie sur la touche F9)
Pour forcer ce calcul, il faut donc mettre un code lorsqu'on change de sélection de cellule
Le code pour la mise jour se situe dans l'évènement de feuille (clic droit sur le nom de l'onglet, "Visualiser le code"
Il faut donc que le fichier soit enregistré en ".xlsm" (Fichier prenant en charge les macros).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Ton fichier modifié, et enregistré en ".xlsm"
Bonne fin d'apm

bonjour @Cousinhub

merci beaucoup et bonne journée.

STéphane