Aide Macro excell

[Christophe]

J'ai une petit question en VBA:
J'ai sur excell en A1 une formule, style "=NB.SI(Feuil1!A1:A8;Feuil2!A1)" Serais il possible en VBA de modifier cette formule avec un message box qui me donne la posibilite de changer Feuil1 en Feuil3 par exemple, le reste de la formule resterais inchange, j'aimerai juste que le message boxe s'ouvre et que j'entre Feuil4 et que ma formule de A1 sois alors modifie en "=NB.SI(Feuil4!A1:A8;Feuil2!A1)". Quand pensez vous, merci


Merci d'avance et mes meilleur voeux pour l'année 2003

Christophe

 

[@+Thierry]

OUi je commence à sonder ton histoire...
C'est vraiment pas très évident... Faudrait faire des colonnes intermédiares comprenant des Formules...
Max / Min etc...
(faudrait Monique pour ceci)
Ensuite on cache ces colonnes et en VBA on applique un format a la cellule offset d'à coté...

Mais désolé là je dois partir.

Bon Courage...
@+Thierry

 

[tintmarre]

tu trouves ça réalisable ?
j'ai vu plein de choses sur différents sites
je me dis que ça doit pas être si compliqué mais mon niveau (plus bas que terre) ne me permet pas de comprendre comment !

 

[tintmarre]

merci quand même !
bon dimanche
à bientôt j'espère !

merci merci et merci

 

[Monique]

Bonsoir,

Les classements sont groupés à l'extrémité du fichier.
3 tableaux en tout :
1 ) Les totaux de chaque chaîne, au pifomètre.
Il faut prendre PDM seulement ou bien PDM + RTG ?
2 ) La place de chaque chaîne : une colonne par place
Fonctions associées INDEX(EQUIV(GRANDE.VALEUR
3 ) Le rang de chaque chaîne : une colonne par chaîne
Fonction RANG truquée car il y a des ex aequo avec audience = 0
Si audience = 0, rang = 5 (donc dernier) et non 2 ou 3 ou 4

(Les rangs 1, 2 et 3 ont un format conditionnel, mais une macro fera ça de façon + complète)
Dans le tableau principal, le même format conditionnel est appliqué aux 3 premières chaînes.

 

[@+Thierry]

Ma sauveuse !!! ))
Je savais que tu viendrais par là....

Je vais m'occuper de lui mettre les couleurs en VBA ...

L'Union fait la Force !!

@+Thierry

 

[@Christophe@]

bonsoir a tous

Thierry, j'ai déjà les couleur en VBA pour la collone E

@Christophe@

 

[Monique]

Si vous êtes 2 à prendre le relais, j'en imagine un qui va être content !

 

[@Christophe@]

Voici le code Thierry pour les couleur dans la collone E

Sub Condition()
Dim n As Byte
Dim MaCel As Range

For Each MaCel In Range("E7:E78")
Select Case MaCel
Case Is < 10000
MaCel.Interior.ColorIndex = 2
Case Is < 20000
MaCel.Interior.ColorIndex = 19
Case Is < 30000
MaCel.Interior.ColorIndex = 36
Case Is < 40000
MaCel.Interior.ColorIndex = 6
Case Is < 50000
MaCel.Interior.ColorIndex = 12
Case Is < 60000
MaCel.Interior.ColorIndex = 22
Case Is < 70000
MaCel.Interior.ColorIndex = 3
MaCel.Font.ColorIndex = 2
Case Is < 80000
MaCel.Interior.ColorIndex = 18
MaCel.Font.ColorIndex = 2
Case Is < 90000
MaCel.Interior.ColorIndex = 29
MaCel.Font.ColorIndex = 2
Case Is < 100000
MaCel.Interior.ColorIndex = 11
MaCel.Font.ColorIndex = 2
Case Is > 100000
MaCel.Interior.ColorIndex = 1
MaCel.Font.ColorIndex = 2

End Select
Next
End Sub

@Christophe@

 

[@Christophe@]

Thanks Monique

Mais toi aussi tu as déjà très très bien travailler j'ai vu

Merci

@Christophe@

 

[@+Thierry]

Bonsoir à nouveau,

Bon ben puisque tu as commencé Christophe, essaies de finir sur le fichier de Monique pour faire les couleur depuis VBA... Ce devrait être du Gâteau vu qu'elle à fait tout le travail !!

Je suis sur un autre truc pour l'instant...

@+Thierry

 

[@Christophe@]

Bonsoir a tous

Tintmarre, voici ton fichier, je crois que c'est ce que tu voulais, pour ta colonne E tu verras, tu introduit tes chiffres et la couleur de ta cellule est automatique.

Pour le reste de ton tableau, je t'ai ajouté dans les colonne J, O, T, Y, AD un formule pour calculer le rang (MERCI Monique), j'ai masqué cette formule en la mettant en blanc.

Pour colorié le rest de tableau selon PDM tu pousse le bouton COLOR, haut a droite, et ton tableau ce colorie

Tient nous au courant.

Merci Monique et Thierry

@Christophe@

 

[@Christophe@]

Comme toujours, j'ai oublié de joindre le fichier

 

[tintmarre]

Salut Monique, Thierry, Christophe,


Que dire ????????????? je dois tester avec d'autres données si cela fonctionne...je vous tiens au courant

Vous êtes SUPERS !!!! MERCI MERCI ET MERCI

trop cool

 

[@Christophe@]

Avec Plaisir, courage

 

[@+Thierry]

Bravo Christophe je suis OQP sur une démo qui tue.... héhéhé

Mais c'est super !!! l'entraide ici )))))))

Bravo pour Monique et Christophe

Regretta pas d'être tombé par ici avec Google Bebel alias Tintmarre !!!

@+Thierry