Recherche selon critère de format

vince3457 Messages postés 36 Statut Membre -  
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'aimerai effectuer une recherche de cellules dans une feuille excel via une macro vba. C'est une manipulation que je sais effectuer en temps normal mais la je souhaiterai sélectionner toutes les cellules d'une colonne qui contiennent la mise en forme conditionnelle "xlIconRedCross" ... est ce possible ?

Merci d'avance.

A voir également:

10 réponses

Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Au passage, peut-être une piste :
https://silkyroad.developpez.com/Excel/MiseEnFormeConditionnelle/
1
vince3457 Messages postés 36 Statut Membre
 
Merci,

mais ca ne fonctionne pas ... :(
0
vince3457 Messages postés 36 Statut Membre
 
Personne ne sait ???
J'ai creusé un truc du coté de :

If worksheets("feuil1").Cells(5,7).FormatConditions(1).Iconcriteria(3).Icon = xlIconRedCross

mais ca ne fonctionne pas... a quoi correspondent les index entre parenthèse ?

d'avance merci
0
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Dans le but de pouvoir tester avec les mêmes conditions que vous, mettre un extrait de votre fichier sur https://www.cjoint.com/ et postez le lien.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vince3457 Messages postés 36 Statut Membre
 
J'ai mis un extract de mon fichier ici,

Je souhaiterai extraire dans une seconde feuille toutes les lignes de la feuille "Global" où on retrouve une croix rouge dans la colonne D.(je vais créer un bouton pour activer la macro)

https://www.cjoint.com/?BDBmtoMByVn

CDt
0
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Merci pour le fichier.
Pourquoi ne pas utiliser la même règle que vous avez pour la mise en forme conditionnelle dans votre code VBA en faisant une boucle sur la colonne [D]:
For c = 7 To Range("D7 :D..... ")
If cells(c, 4) > cells(c,5) Then
 Copier la ligne sur autre feuille
End if
Next c

0
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
J'ai regardé en détail vote fichier et ma proposition précédente ne fonctionnera pas.
Dans le cas où vous n'avez pas résolu le problème, merci de le faire savoir.
0
vince3457 Messages postés 36 Statut Membre
 
Bonsoir,
Merci pour votre aide...je n'ai toujours pas trouvé la solution...
:(
0
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Merci.
Je suis sur une piste, mais avant de poursuivre, j'ai l'impression que la mise en forme conditionnelle pour la partie des valeurs en pourcent n'est pas correcte, exemple : pourquoi la cellule D17 comparer avec J17 et aussi E17 ?
Merci de votre réponse.
0
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Dans cette proposition basée sur votre exemple la procédure vous indique chaque croix trouvée.
Si c'est bon pour vous il s'agira de récupérer la ligne et de la coller dans la feuille désirée par extension de la procédure.
Proposition : https://www.cjoint.com/?3EcrUoNs0Av
0