Recherche index/equiv et formater des cellules

[zbig]

Bonjour

tout est dans le fichier joint.

1-Grâceà un message demander, quel est le n° recherché.
2-Aller dans la feuille liste, recopier toutes les lignes donc le n° est celui recherché.
3-les copier dans la feuille recherche
4-formatez les cellules comme dans la feuille exemple.

merci
Zbig

 

[James007]

Re : Recherche index/equiv et formater des cellules

Bonjour,

Pas forcément facile de comprendre cette question ...

Mais as-tu regardé du côté de la mise en forme conditionnelle ... pour obtenir tes couleurs automatiquement ...?

A +

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Bonjour,
Voici le fichier modifié avec la macro et une MFC jusqu'a la ligne 100
Bruno

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Bonsoir

merci à vous 2 pour les réponses

C'est exactement ce que je recherchais.

1- Que veut dire : " une MFC jusqu'a la ligne 100"

Si au départ on clic sur la croix rouge ou annuler, il y a un bug


2- Est ce possible de commencer la macro par un vidage de la feuille?


3-Est ce possible de mettre un message "le n° demandé n'existe pas, voulez vous un autre n° ou annuler"
avec 2 boutons : annuler et autre n°

si on clic sur autre n° on revient au debut de la macro
si on clic sur annuler, on va en feuille "menu"

merci
Zbig

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Bonsoir Youki

j'ai copier-collé ta macro dans un autre classeur et ça bug
Erreur execution 424, Objet requis.

Cette ligne est en fluo : "If F.Cells(lig, 1) = CDbl(r) Then"

(le bouton macro est en feuille exemple , plus en feuille recherhce, est ce le probleme?)


2- Dans le fichier que tu m'as joint, en feuille exemple
à la ligne 2 , c'est toujours le même texte qui apparait
"Le n° recherché = 1", alors que le chiffre doit changé selon le n° choisi.

j'ai ajouté dans la macro
' selectionner la cellule(a2)
Sheets("EXPLE D AFFICHAGE").Select
Range("A2:N2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""Le n° est "",R[2]C)"


mais il ya toujours la formule dans la cellule, alors que je veux uniquement la réponse
Comment faire?



merci pour ton aide
Zbig

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Bonsoir

je viens de comprendre MFC= Mise en forme conditionnelle !

n'y a til pas un moyen de formater les cellules via la macro?

merci
Zbig

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Zbig,
Voici donc le fichier modifié en tenant compte de tes remarques,
Verifie bien le nom des Sheets("...
Sur ton fichier original je crois comprendre que les noms sont pas les mêmes
Tout baigne, explications des MFC dans le fichier.
Bruno

oups! pour le formatage, je ferais demain

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Bonsoir

excellent travail!

une autre question 🙂

Peux tu faire une macro2 avec non pas afficher selon un n° mais "tous les n°"
il faudrait qu'il y ait une ligne vide entre 2 recherches.

Ligne1: titre (Le n° est =)
Ligne 2 : les champs
Ligne3 à N : les résultats selon le nombre de réponses trouvées correspondantes au n° cherché.

Merci
Zbig

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Salut Zbig,
A voir si cela te va.
Il n'y a aucune MFC et une demande pour un autre N°
J'ai mis un peu d'explications en macro.
Bon test
Bruno

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Salut Youki

oui c'est ça.

PAr contre la ligne "le n° recherché" doit apparaitre à chaque fois avant les infos.
et une ligne =vierge entre les 2 blocs
ex
n°1
1 etc
1
1
(ligne vierge)
n°2
2 etc
2
2


Peux tu mettre la possibilité suivante en 3 choix:
n° recherché ? OK/ANNULER/TOUS

si annuler => exit
si Ok=>
un autre/annuler

si Tous
afficher tous et exit


Merci
Zbig

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Re,
j'ai ajouté un bouton pour TOUS, sinon le reste est OK.
Bruno

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Pendant que j'y suis voici avec un seul bouton et un msgbox de plus
Bruno

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Bonsoir youki

les 2 solutions sont trés bonnes.

Dans la solution2, on a pas le choix si on veut annuler , la croix rouge est grisée.
merci
Zbig

 

[youky(BJ)]

Re : Recherche index/equiv et formater des cellules

Exact
voici de quoi modifier, modifie et rajoute en rouge
ne pas oublier le vbYesNoCancel
Bruno

rep = MsgBox("OUI pour choisir par N° ?" & vbCr & "NON pour TOUS ", vbYesNo[COLOR="Red"]Cancel[/COLOR] + vbExclamation, "PAR N° ou TOUS")
If rep = vbNo Then tous: End
[COLOR="red"]If rep = vbCancel Then End[/COLOR]
k = 3 '1ere ligne à écrire en Exple

 

[zbig]

Re : Recherche index/equiv et formater des cellules

Nickel

Est ce possible de mettre un message "n° inconnu" si le n° demandé n'existe pas dans liste?

et un message "N) déjà saisi" pour éviter de mettre 2 fois le même n°

merci
Zbig