boucle insertion nom et formule Excel4

[copayo]

Bonjour à tous,

dans l'option d'insertion de nom on peut taper une formule à la place de mettre une référence.

Exemple : tutu = SI($C$5>$D$5*(1+$C$1);vert;SI($C$5<$D$5*(1-$C$1);rouge;jaune))

Voici une macro qui créé des noms en série avec formule associée :

For i = 5 To 51

ActiveWorkbook.Names.Add Name:=Range("B" & i), RefersTo:= _
"=IF(Feuil1!$C$" & i & ">Feuil1!$D$" & i & "*(1+Feuil1!$C$1),vert,if(Feuil1!$C$" & i & "<Feuil1!$D$" & i & "*(1-Feuil1!$C$1),rouge,jaune))"

Next i


merci Chloulou.

Cdt,

 

[Chloulou]

Re : boucle insertion nom et formule Excel4

Salut

il y a un problème dans ton code car la ou tu dois mettre une adresse, tu ne renvoi qu'un terme qui pour excel ne veut rien dire

For i = 5 To 51

ActiveWorkbook.Names.Add Name:=Range("b" & i).Text, RefersToR1C1Local:="if(range("C"&i)>range("D"&i)*( 1+range("C1");[B][I]vert[/I][/B];if(range("C"&i)<range("D"&i)*(1-range("C1"));rouge;jaune))"
Next i

car RefersToR1C1Local attend un adresse