mise en forme auto

[hube]

voila j'ai un tablo reference avec 30 mons et chacun a une mise en forme ( couleur de case )
propre a lui

ensuite a cote j'ai un 2 eme tablo ou j'inscris les noms
et j'aimerai que lorque j'inscirt les noms la mise enforme soit automatiquemetn la meme que
celle du tablo de reference

il me faut une sorte de mise en forme conditionnelle
( mais celle que excel me propose est trop limiter moi j'ai 30 noms et pas 3 )

de plus j'aimerai osi savoir comment faire pour compter les noms de mon second tablo

ci joint un fichier exmple qui sera pus explicite que moi lol

merci a +

 

[Monique]

Bonjour,

Pour ta 2è question :
En D6 :
=NB.SI(F$3:F$18;$B6)
que tu recopies de D6 à E13

 

[Celeda]

Bonjour,

Tu trouveras dans ce zip deux fichiers : CouleursAutomatiques me semble le plus approprié. Néanmoins, il y a couleur qui pourra aussi t'inspirer.

De toute façon, comme d'habitude instructions dans le fichier,
à adapter pour ton fichier (il faut zipper les fichiers,SVP)
et n'hesite pas à revenir

Bon week-end

Celeda

 

[Celeda]

Bonjour

À bien réfléchir. j'ai adapté CouleursTi. Voir dans le fichier ce que cela donne avec la liste de validation , mais comme le souligne Ti, on peut pas tout avoir.

À toi de voir,

Celeda

 

[hube]

tout d'abord merci
le compteur ca fonctionne tres bien par contre le reste ....

bah euh ....

je souhaitais que apres avoir rentrer le nom dan le 2 eme tablo
bah qu'il change de couleur automatiquement pour afficher les couleurs prefinis pour chaque nom ( et non pas laisse le choix de la couleur )


je sais pas se serait plus un truc du genre rentrer donner
ensuite on appuye sur un bouton ( par exmple )
et la macro cherhce si le nom se trouve dans le tablo et si oui quel est sa reference couleur et alors applique la refence couleur a la case

 

[Celeda]

Bonjour,

Bah euh ......je suis désolée mais peut pas faire mieux même avec la macro de Ti !! Et moi, je te remerice de me le signaler.

Si tu trouves chaussure à ton pied n'hésite pas à nous communiquer le résultat car il me semblait que dans le fichier les explications pour réussir étaient dûment écrites.


Celeda

 

[hube]

euh
bah a vrai dire j'ai pas tout compris enfin surtout le fichier specialment adapte pour moi !!! lol

je ve peut etre reussir a faire quelques chose finalemnt
mais enfin je sias pas ce que j'ai fe me la 1 ere fois que j'ai utliser la macro bah j'avais le nom de la couleur et pas la couleur ce qui me sert pas a gradn chose !!
mais la now ca fonctionne ( les cases elle change de couleur miracle lol )
quand je choisi jaune j'ai du jaune !!!

bon enfin ca pourait etre quasi ca mais y encore un mais lol
il faudrait que je rajoute .Font.ColorIndex a ma case

comme ca il rajoute le texte a la couleur

mais bon j'ai aps reussi

si je rajoute j'ai remplacer le Target.Interior.ColorIndex = 40 par un Target.Font.ColorIndex = 40 ca fonctionne
a peu pres lol mias je n'arrive pas a mettre les 2 ensemble
j'ai essyayer mais il en veut pas :

Target.Interior.ColorIndex = 40
Font.ColorIndex = 3

voila et en principe avec ca je epnse pouvoir enfin reussir ce que je veux

 

[Vériland]

Bonsoir Hube, Monique, Celeda et toi le Forum,

Bon ben je passe ici pour Hube (et aussi pour faire un coucou à Céleda et Monique...hi hi hi) qui semble avoir quelques soucis avec les procédures...

Donc en réponse à ta question où tu recherches plus de trois conditions j'ai créé ce fichier pour que tu puisses adapter dans ton prog pas moins de 56 possibilités de formats... j'espère qu'il sera assez explicite pour toi (enfin y'a pas d'raison...lool)
Pas de bla bla, regarde le fichier joint c'est plus concret...

Bonne programmation

 

[Celeda]

Bonsoir,

Oulha la laha lah ala mais qu'est que tu nous as fait Veri. On va la garder et la référencer.

Mais Veri, j'ai le regret de te dire que je me suis pas perdue dans la macro de Ti. Je pense l'avoir bien mise en place. Mais cela ne correspondait pas à ce que voulait Hube. Je lui donnais le choix d'une couleur et d'écrire ensuite.

Là tu lui donnes la couleur directement aprés avoir écrit les noms avec un bouton unique. Ce qui correspond à sa demande et je trouve cela trés efficace et astucieux. C'est toujours un régal avec toi Veri.

Bon dimanche

Celeda

 

[hube]

Ah oui , tres bien la , merci Bcp


en plus venir specialement pour moi( rhoooo c'et trop d'honneur pour ma petite personne , ve rougir moi )

il est quasi parfait la le fichier ( bah oui suis tres exigeant moi )
et oui tres explicite osi

oui le probleme c'est que l'on peux pas lire quand le fond est sombre
alors j'ai rajouter une colonne C ou l'on trouve la couleur du stylo
fonce ou clair suivant le fond

et 'j'ai rajouter une ligne de code

Cellule.Font.ColorIndex = _
F1.Range("C" & I).Value

je me suis plus que largemnt inspire de ta macro ( lol )

ci joint le fichier modifier ( pour Celeda si elle veut le garder et le référencer )

Et encore Merci a tous pour votre aide

ptit Hube .

 

[Vériland]

Bonjour Hube, Céléda et toi le Forum

Ben voilà qui est bien Hube...par contre sur le bouton EFFACER j'y aurais juste rajoutéune condition pour remettre la police de couleur noire...

Sub Sans_Couleur()
Range("Zone").Interior.ColorIndex = 0
Range("Zone").Font.ColorIndex = 1
End Sub

mais c'est un détail...Pour ce qui est des options on pourrait en rajouter d'autres ne serait-ce q'avec Interior.Pattern par exemple (qui gère les motifs)...
Enfin chacun fait comme il veut...de toute façon l'essentiel est dans

...lol

Voilà j'vous souhaite un bon dimanche et à Céléda j'lui fait un gros gros

...lol

PS: Wouarf...mdr...j'viens à l'instant de recevoir ça dans ma BAL...lol

 

[hube]

oui c'est vrai j'aurai du penser au bouton effacer moi ( rhooo )

par contre euh j'ai un nouvo souci mais tjs avec le meme fichier lol

comment on fe pour deplacer les Boutons , couleur et effacer ?

j'avoue ne pas trop savoir ou ils sont ?

ni meme comment faire ?

 

[Vériland]

Tiens vite fait là j'm'en vais...lol

tu fais Affichage / Barres d'outils et tu coches boite à outils Contrôles

à partir de là je pense que le reste tu sauras faire c'est assez simple...sinon tu le dis...

Bonne journée

 

[Vériland]

donc...çà c'est le principe pour ajouter un bouton...

pour ce qui est de le déplacer ou de le modifier tu cliques sur l'icône

ensuite pour les propriétes du bouton c'est l'icône main sur feuille (j'ai pas l'image)...et là tu peux modifier tous les paramètres de ce bouton...

Voilà j'me sauve...lol

 

[Ti]

hube, Celeda avait raison, avec à peine d'adaptation mon prog CouleursAutomatique convenait très bien, mais il ne suffit pas d'être exigeant, il faut savoir aussi quelquefois mettre les mains dans le cambouis, pour preuve regarde le fichier joint. Il effectue la mise en forme automatique chaque fois que tu écris dans une cellule un des noms référencés dans ta colonne B.

un conseil : écris en Français, ça ne coûte rien et si Celeda et Veri n'étaient pas passés par là, je n'aurais même pas lu ton 1er post en entier tout simplement parce qu'il est trop pénible à lire, n'oublie pas qu'on n'est pas sur un chat ici.