casser les liens d'une cellule avec une feuille

[kyros21]

bonjour à tous, en fait voila mon probleme, j'utilise une feuille nommé "top 20 répartion mo" sur laquelle ma macro rentre pas mal de formules dont celle ci :

Code :

 Sheets("Top20 répartition h MO").Cells(4, variable3).Value = "=SUMIF(" & Worksheets(variable1).Name & "!Q:Q,4014," & Worksheets(variable1).Name & "!G:G)"

comme vous pouvez le voir cette formule va chercher des valeurs dans la feuille qui porte le numéro variable 1 , sachant qu'il y a une boucle qui repete cette instruction pour genre 20 feuilles, et bien tant que les feuilles qui contiennent les données restent dans le classeur, tout va bien, mais dès que je vire les feuilles, et bien j'ai des ##### partout,

ma question est, est-il possible une fois le calcul fait de récupérer la valeur en tant que tel quitte à n'écrire dans la cellule que la valeur propre, et non pas la formule qui permet d'y arriver?

Merci

[MarcelG]

Bonjour à toi, Bonjour au Forum,

Pour affecter à une cellule une valeur, tu as plusieurs solutions dont celle qui consiste à affecter des fonctions VBA à la celle-ci.

Si tu préfères utiliser les formules, alors tu as la solution (dixit mercatog ou sylkiroad, je ne sais jamais):

Code :

1
2
3
4
With Range("A1")
    .Formula = "ta formule"
    .Value = .Value
End With

La 3ème ligne évite un collage spécial valeur plus lourd.

[kyros21]

en fait je viens de trouver une solution, pas très jolie jolie, mais bon sa fait l'affaire :


voici comment faire:

après la formule, je rajoute :

Code :

Sheets("Top20 répartition h MO").Cells(4, variable3).Value = Sheets("Top20 répartition h MO").Cells(4, variable3).Value

merci

[MarcelG]

Salut Kyros21,

Si tu peux m'expliquer la différence avec le code proposé, alors je suis preneur.

Malgré tout, et si c'est le cas, tu peux positionner cette discussion en mode "Résolu".

[kyros21]

merci, pour la réponse, c'est exactement ce que je fais je pense, il n'y a donc pas plus jolie que de faire sa.

Merci de votre aide

je me demandais si il n'etait pas possible de transcrire des fonctions comme celle ci uniquement par VBa sans passer par des fonctions excel.

Code :

Sheets("Top20 répartition h MO").Cells(4, variable3).Formula = "=SUMIF(" & Worksheets(variable1).Name & "!Q:Q,4014," & Worksheets(variable1).Name & "!G:G)"

Par exemple en passant par du Application.WorksheetFunction.Sumif ( .....)

du genre :

Code :

Sheets("Top20 répartition h MO").Cells(4, variable3).Value = Application.WorksheetFunction.Sumif ( .....)

comme sa on ne passe pas par du excel, et la valeur affiché dans la cellule est une Valeur et non pas une formule donc pas de probleme de lien, et on économise des lignes dans la macro .

Merci

[MarcelG]

Réponse : oui. C'est d'ailleurs ce que j'ai écrit plus haut.

[ZebreLoup]

Si tu peux, c'est plus propre que la copie de valeur et tu maîtrises mieux les paramètres.

Code :

Sheets("Top20 répartition h MO").Cells(4, variable3).Value = Application.WorksheetFunction.Sumif (Worksheets(variable1).Range("Q:Q"), 4014, Worksheets(variable1).Range("G:G"))