je te joint le fichier enfin une partie car celui ci pese 2 mo
mes autres feuilles ont exactement la meme structure que celle ci donc j'adapterai.
merci encore par avance
http://cjoint.com/?dvhF68yyNS
isabelle
bonjour magic,
j'ai fais un premier essai pour la transformation des formules des colonnes X, Y, Z, AA, AB , AC dit moi si ça va bien comme ça, http://cjoint.com/?dvnMpxA4zO
Sub Macro1() lig = 7 'choix du numéro de ligne Range("X" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(D" & lig & ":H" & lig & ") * 20) / 25)")
Range("Y" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(I" & lig & ":M" & lig & ") * 20) / 25)")
Range("AC" & lig) = Evaluate("IF(OR(LEN(B" & lig & ")=0,COUNT(" & Range("D" & lig & ":AA" & lig).Address & ")=0),"""",RANK(AD" & lig & ",AD6:AD38))")
End Sub
isabelle
salut
je te joint le fichier enfin une partie car celui ci pese 2 mo
mes autres feuilles ont exactement la meme structure que celle ci donc j'adapterai.
merci encore par avance
http://cjoint.com/?dvhF68yyNS
bonjour magic,
j'ai fais un premier essai pour la transformation des formules des colonnes X, Y, Z, AA, AB , AC
dit moi si ça va bien comme ça,
http://cjoint.com/?dvnMpxA4zO
Sub Macro1()
lig = 7 'choix du numéro de ligne
Range("X" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(D" & lig & ":H" & lig & ") * 20) / 25)")
Range("Y" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(I" & lig & ":M" & lig & ") * 20) / 25)")
j'ai fais un premier essai pour la transformation des formules des colonnes X, Y, Z, AA, AB , AC dit moi si ça va bien comme ça, http://cjoint.com/?dvnMpxA4zO
Sub Macro1() lig = 7 'choix du numéro de ligne Range("X" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(D" & lig & ":H" & lig & ") * 20) / 25)")
Range("Y" & lig) = Evaluate("(IF(LEN(B" & lig & ")=0,"""",SUM(I" & lig & ":M" & lig & ") * 20) / 25)")