Discussion :

[melodyyy]

J'ai des nombres qui correspondent au mois (1 pour janvier, 2 pour février...) et je voudrais que lorsqu'il y'a par exemple 3 dans la colonne G il prend le nombre qui est en colonne W fait un calcul ou il fait 45 % du nombre et place le résultat sous le 3 de la colonne correspondante.

vous auriez une idée ? je pense au call mais du coup je peux plus faire le calcul....

[Drost]

Hello,

Je ne vois pas trop ce que tu veux faire mais as tu essayé une fonction si() que tu place en dessous de ton 3?

=Si(G2="3"; W2*0.45;"")

Si tu souhaites quelquechoses de plus complexe tu pourra le faire via VBA.
As tu déjà programmé avec?

[melodyyy]

Oui cj'ai déja programmé avec, je le connais même bien mais la je suis sur des notions que je connais pas bien encore !

je t'envois le fichier vide tu vas comprendre ce que je voulais dire

[Drost]

En fait j'ai un peu de mal a voir ou tu vas écrire le résultat^^

[melodyyy]

lol sous les petites caseounettes

Pour l'instant j'en suis juste au global, si j'arrive à celle la j'arriverais aux autres t'occupe pas des autres

Tu as des colonnes dates ou y'a juste le mois (genre 3) et l'année (genre 8) je m'occupe des dates de la colonne G pour le moment. Lorsqu'il y'a 3 je prends la ressource de la même ligne et je fais 45%, et je colle le résultat sous le 3 du global.

Ah y'ai ?

[Drost]

Oki je viens de saisir!

pourrais tu alors faire pour la ligne 6 :
X6=IF(G6=$X$5;0.45*W6;"")
Y6=IF(G6=$Y$5;0.45*W6;"")
Z6=IF(G6=$Z$5;0.45*W6;"") etc...

[melodyyy]

par VBA tu vois pas comment on peut faire ?

Parce que de largeur il doit aller jusqu'a CQ et de longueur jusqu'a facile la ligne 350....

[melodyyy]

Je comprends pas bien ta formule...la tu cherches pas si il y'a un 3 si ?

[Drost]

sisi c'est pas tres compliqué!

tu fais deux boucles une colonne et une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For j = 6 to 350 step 1 'Ligne
For i= 24 to 95 step 1 'Colonne
if cells(j,7).value = cells(5,i).value then 
Cells(i;j).value= 0.45*Cells(j,23).value
endif
 
Next i
Next j

[melodyyy]

ça fait rien parce que la tu fais une égalité par rapport à la ligne du dessus hors moi je regarde si il y'a un 3 dans la colonne G et si il y'en a un la je fais quelque chose. Mais attention ça peut etre un 4 un 5 ou un 6 par exemple et il faut qi'l trouve le bon !

En revanche je suis ok pour la correspondance de valeur (égalité entre 2 valeurs)

VBA et moi ça fait un pti temps j'ai pu l'habitude

[melodyyy]

j'ai rien dis ça pourrait marcher mais rien ne s'écrit !

[melodyyy]

j'ai un peu corrigé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Test()
 
For j = 7 To 350 Step 1 'Ligne
For i = 24 To 35 Step 1 'Colonne
If Cells(j, 10).Value = Cells(6, 26).Value Then
Cells(i, j).Value = 0.45 * Cells(j, 23).Value
End If
 
Next i
Next j
 
End Sub

Mais ça marche pas non plus

[Drost]

A mon avis cela vient probablement de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, j).Value = 0.45 * Cells(j, 23).Value

Essaie de voir si c'est pas mieux de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Taux = 0.45
Valeur = Cells(j, 23).Value
Cells(i, j).select
Activecell.formulaR1C1 ="=" & Taux & "*" & Valeur

[melodyyy]

Activecell.formulaR1C1 ="=" & Taux & "*" & Valeur

Erreur définie par l'application ou par l'objet...snif ! Je pense que c'est la * mais pourquoi ?

[Drost]

Yop
essaie de passer par l'enregistreur de macro pour récuperer la bonne formulation!

[melodyyy]

ouai sinon j'ai plus compliqué si je fais

if worksheets ("Feuil1").Range ("A1:A350").Value=1 then
et la l'histoire avec le taux

et que je fais ça pour toutes les colonnes dont j'ai besoin ?

Par contre je m'aperçois que tous les 2 on dit de comparer mais on dit pas ou écrire le résultat !! Il faudrait dire qu'on écrit le résultat dans la cellule correspondante tu vois ce que je veux dire ?

[melodyyy]

ah oui mais la ça va pas parce que je ne fais que chercher 1 dans la colonne, mais je compare pas avec les autres...

[Drost]

JE viens te mettre les formules dans ton fichier
dis moi si c'est ce que tu recherches^^

[melodyyy]

je pense que c'est pas mal mais tu vas me trouver nul y'a tjrs rien qui s'affiche !

D'autre part je voulais le faire par macro parce que ça ce n'ai que le début en fait...j'ai autre chose à faire après

[melodyyy]

lol je suis nulle :p j'ai pas fais F9 :p

Alors c'est pas mal Merci beaucoup déja ! Sauf que voila ce serait trop facile donc faut que ça se corse un peu :p

En fait il se trouve que je m'occupe des ressources 2008. La date de CARI et démarrage s'additionne si il a des jours pour 2008 entre les 2. Si il y'en a alors ça fait 90% des ressources et 10% pour la fin de projet...

Voila pourquoi je préférais le VBA Ceci dit merci déja tu m'enlève une petite épine