Discussion :

[Subkill]

Bonjour,

Mise-en-situation:

J'ai un classeur excel pour la suivi du temps d'employé.

Je dois créer une macro qui:

-Ajoute une feuille employé
-Modifie une cellule qui calcule la somme du temps travaillé par tous les employés pour y ajouter le nouvel employé.

Voiçi le code de la cellule:

Code :

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

=SUM(Employe12!CZ9;Employe13!CZ9;Employe14!CZ9;Employe15!CZ9;Employe16!CZ9;Employe17!CZ9;Employe18!CZ9)

Alors si j'ajoute un nouvel employé le code de la cellule devrait tenir compte de ce nouvel employé.

Pour ce faire j'ai fait ceci:

Code :

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

1
2
3
Sheets("Sommaire").Select
Range("CZ9").Select
ActiveCell.FormulaR1C1 = "=SOMME(Employe12!CZ9;Employe13!CZ9;Employe14!CZ9;Employe15!CZ9;Employe16!CZ9;Employe17!CZ9;Employe18!CZ9;Feuil4!CZ9)"

Cependant quand j'exécute la macro, je recois le message d'erreur suivant quand le code est rendu à ActiveCell.FormulaR1C1....:
"Erreur définie par l'application ou par l'objet".

Pourtant j'ai fait un test avec ce code-çi et tout fonctionne bien:

Code :

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

1
2
    Range("DD34").Select
    ActiveCell.FormulaR1C1 = "=SUM(1,2)"

Pourquoi???

[Subkill]

j'y ai été de cette facon:

Code :

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

Sheets("Sommaire").Range("E9").Formula = "=SUM(Employe12!E9,Employe13!E9,Employe14!E9,Employe15!E9,Employe16!E9,Employe17!E9,Employe18!E9,Feuil4!E9)"

J'ai du utiliser "Formula" au lieu de "FormulaLocal" et "=SUM" au lieu de "=SOMME", pourquoi? je ne sais pas...mais ce que je sais c'est que de cette façon ça fonctionne!!!

Merci

[AlainTech]

Que ce soit en local ou pas, il faut toujours utiliser la virgule comme séparateur, en VBA.

[Subkill]

Ahhhhh! merci merci