[VB-EXCEL] Insertion variable dans formule

Question

Bonjour,
Je souhaiterai savoir s'il est possible de placer une variable dans une formule.
Je m'explique :
Je souhaite inscrire successivement une formule dans une suite de cellules via un code VB car la formule change en fonction de la case choisie dans une list box.
Pour simplifier le code je souhaite savoir si, dans la formule inscrite dans le code, on peut insérer une variable dont la valeur changera suivant la case sélectionnée dans la list box.


PS: Comment inscrire une formule matricielle et non simple formule(.FORMULA) via un code? 

Merci Cordialement

jjsteing · Answer

ben oui.. dans ton vb.. 

ex:

for MaVar =1 to 5
.formula="=b" & MaVar
next

enfin, la ca marche pas car y a pas de with blabla.cell(y,x).. se rapportant à .formula mais le principe est là..

Sinon, balance ton code vb ;)

Doudou95 · Answer

Je ne peux joindre de fichier c'est pour le taff et pas le droit de partager les données personnelles :s

Bref alors On veut compter le nombre de cases vertes dans une colonnes donc les dates valides
Seulement on ne peut compter la couleur directement on doit donc compter les dates valides (selon la condition avec AUJOURD'HUI()....)
Mais on doit calculer tout particulièrement les dates en colonne D par exemple valides avec sur la même ligne en colonne A une valeur "A" par exemple et une valeur "C" par exemple en colonne C

j'en arrive au problème ou en fait la valeur que l'on veut mettre dans la condition concernant la colonne C doit être désignée via la list box (ex si sélection de case 1 dans listbox, var = 1 etc . . .)

$D$2 un nombre (de jour je porésume) <------- un nombre d'années d'où dans la formule le *365

jjsteing · Answer

Seulement on ne peut compter la couleur directement :

Ah bon?? et ca sert a quoi le vba ?? avec : Interior.ColorIndex 

mais bon.. apres tu parle d une listbox.. y en a une seul ou y en a une par ligne ?

jjsteing · Answer

For ligne = 7 To 807
CouleurCell = Worksheets("Feuil1").Cells(ligne, 12).Interior.ColorIndex 'A=1,B=2... => L=12
    If CouleurCell = 44 Then NbOrange = NbOrange + 1
    If CouleurCell = 4 Then NbVert = NbVert + 1
Next

msgbox "nb total = " & NbOrange  + NbVert

jjsteing · Answer

voici mon exemple :
http://dl.free.fr/getfile.pl?file=/g8wIaI8D

Doudou95 · Answer

Au fait excuse moi l'erreur se trouve là :
CouleurCell = Worksheets("Feuil1").Cells(ligne, 12).Interior.ColorIndex
et bien sur sur ton document à toi ça marche j'ai testé :'(

jjsteing · Answer

mais mon exemple sans copier coller, juste en lancant le fichier, il marche chez toi non ?

jjsteing · Answer

et donc tu as résolu ??

Doudou95 · Answer

J'ai trouvé "Worksheets("Feuil1")." il aimait pas.

Par contre ça me compte 0 case verte  alors qu'elles le sont via la mise en forme conditionnelle :
https://www.excel-pratique.com/~files/doc2/MFC1.jpg

jjsteing · Answer

hein??? comprend pas.. j ai jamais fait référence à un jpg moi..

jjsteing · Answer

ah ben si tu dis pas tout aussi !!!
couleur par mise en forme conditionnelle, ca change tout... et donc ca marche pas avec Interior.ColorIndex qui lui ne marche que si tu coloris la case via le ptit pinceau...

Bon, ok, je sais xl, c est pourri.. tu as l impression que c'est pareil, mais bon ;)

J me renseigne ;)

jjsteing · Answer

je lache pas.. j apprend en meme temps.. 

voici un ptit tuto.. bon, lien en anglais, mais perso, ca me derange pas ;)

https://www.excel-downloads.com/threads/detection-couleur-mfc.99000/


Je potasse ca et te donne la soluce ;)

jjsteing · Answer

ok..
voici mon fichier qui marche avec mise en condition ;)

http://dl.free.fr/getfile.pl?file=/jnw3ZKqr

jjsteing · Answer

il te faudra le module au complet dans ton fichier xl...

ptite précision pour la suite ... A B ou C.. c'est du texte dedans ou c'est aussi une mise en forme conditionnelle?? pareil pour la colonne C..

Doudou95 · Answer

que du texte la mise en forme conditionnelle ne concerne que les dates 
Sans plus de précisions, si tu préfères, dans cette synthèse  C sera le "service" et F "le poste/statut" si c'est plus clair ^^ c'est une image

Doudou95 · Answer

Au fait ça me remet l'erreur avec le Worksheets("Feuil1")....

jjsteing · Answer

donc ca ca devrait tout resoudre :

http://dl.free.fr/getfile.pl?file=/9Gb8TYLD

jjsteing · Answer

feuil1 est le nom de ta feuille.. tu as du la renommée ;)

jjsteing · Answer

ah ben dans mon exemple la j  ai pris la peine de mettre en L la forme conditionnelle et en C qlqchose et en F  : ABCDF ou rien.. alors t as pas du voir la derniere version ;)

Doudou95 · Answer

voila suis rentré je test ça tout à l'heure j'ai pris le fichier et jte dis ce qu'il en est  merci beaucoup à plus tard bisoux

Doudou95 · Answer

Bonjour, 
Bon quand je test il me trouve non stop des problèmes dans la fonction O_O

jjsteing · Answer

quel genre de proble ?

jjsteing · Answer

Ah ben voila.. dis moi exactement comment se fait ta forme conditionnelle... Dans le module, je ne gere que <,>,<=,>=,=.. alors si c'est autre chose, il le gere pas ;) mais y a moyen de le gérer :p

jjsteing · Answer

Alors.. apres une grosse recherche et une mega prise de tete.. je pense que j'ai trouver.. mais ca va pas etre facile à gérer..

Le truc c'est que evaluate evalue la fonction au format anglais.. donc tes si, aujourdhui, faux et vrai.. ben .. ca loui plait pas...

J'essai de trouver une parade ;)

jjsteing · Answer

une piste ici...
http://www.glossaire.be/english_french/glossaire_excel_fonction_anglais_francais.htm

mais c'est pas du gateau:s

jjsteing · Answer

Sinon, met ta formule dans une autre case qui renverrais 1 2 ou 3 (sans passer par la forme conditionnelle. et en fonction faire la forme conditionnelle en passant par l'assistant (<,<=,>,>=;==) qui lui est gérer par le module ;)

Enfin, si tu m a compris :p

mais je continu de chercher ;)

Doudou95 · Answer

Coucou
d'abord merci pour ton aide alors je suis passé par une feuille de calcul et via la formule Si(G9<>"";Si(G9+($G$5*365)<AUJOURD'HUI;0;1);"TEXTE")
(peut être une faute les 2 pc sont pas cote à cote)

Bref je passe par cette formule ca me donne donc bien par le NB.SI de valeur 1 le même nombre de personnes que dans la synthèse globale du fichier.

Maintenant je sais pas comment y inclure une triple condition
ca reprend l'idée d'avant en prog c'est à dire :
Si L1 = "1" (date verte ou orange) ET Si A1 = "Direction" (service) ET Si B1 = "Chef" (poste)

une idée ? je veux pas faire d'erreurs de syntaxe ou autre car après cette formule s'adapte à chaque "service" et "poste" si je puis dire.

merci de ton aide

jjsteing · Answer

re ;)

envoie moi un exemple car là... je sait pas si tu est en forme conditionnelle ou pas ... pour info, j ai garder les exemples que j avais tester pour toi ;)

[VB-EXCEL] Insertion variable dans formule - Page 2

Newsletters