mazuno
XLDnaute Nouveau
Bonjour, j'ai encore un problème
je vais donc essayer d'expliquer mon problème
j'ai un fichier qui regroupe plusieurs plusieurs feuilles identiques (appelées EOTP) dans lesquelles on rentre les heures effectuées par des personnes.
et j'ai une feuille identique aux autres appelée total où au lieu de rentrer les heures ben devinez quoi ça calcule le total des EOTP
(pour l'exemple je suis sur la cellule H6)
mon objectif est de créer une macro pour ajouter une feuille d'EOTP au fichier, ce que j'ai fait, le problème est pour mettre à jour les formules dans ma feuille de total
le nom de la feuille créée est rentrée par l'utilisateur et stocké dans la variable "NomEOTP"
j'ai créé cette fonction pour mettre à jour la formule de la feuille de total :
et le programme plante à la ligne ActiveCell.Formula = Formule en me disant erreur définie par l'application ou par l'objet
voilà j'espère que je me suis bien expliqué cette fois-ci et que vous avez une idée
merci d'avance
je vais donc essayer d'expliquer mon problème
j'ai un fichier qui regroupe plusieurs plusieurs feuilles identiques (appelées EOTP) dans lesquelles on rentre les heures effectuées par des personnes.
et j'ai une feuille identique aux autres appelée total où au lieu de rentrer les heures ben devinez quoi ça calcule le total des EOTP
(pour l'exemple je suis sur la cellule H6)
Code:
=SOMME(Eotp1!H6;Eotp2!H6;Eotp3!H6;Eotp4!H6;Eotp5!H6;Eotp6!H6;Eotp7!H6;Eotp8!H6;Eotp9!H6;Eotp10!H6)mon objectif est de créer une macro pour ajouter une feuille d'EOTP au fichier, ce que j'ai fait, le problème est pour mettre à jour les formules dans ma feuille de total
le nom de la feuille créée est rentrée par l'utilisateur et stocké dans la variable "NomEOTP"
j'ai créé cette fonction pour mettre à jour la formule de la feuille de total :
Code:
Formule = ActiveCell.Formula
Formule = Replace(Formule, ")", "") 'j'enlève la parenthèse à la fin
Formule = Formule & ";" & NomEOTP & "!H6)" 'je rajoute un ; et le nom de la feuille puis le nom de la cellule
MsgBox Formule 'j'ai un msgbox pour vérifier que ma chaine de caractère contient bien la bonne formule, ce qui est effectivement le cas...
ActiveCell.Formula = Formuleet le programme plante à la ligne ActiveCell.Formula = Formule en me disant erreur définie par l'application ou par l'objet
voilà j'espère que je me suis bien expliqué cette fois-ci et que vous avez une idée
merci d'avance