Bonjour,
J'ai un gros problème avec VBA, dans un classeur j'ai créé un tableau où je veux voir apparaître automatiquement des infos lorsque je met le nom d'un agent (Tableau Recherche Rapide). Les infos sont sur plusieurs feuilles de ce classeur cela me permet d'avoir plus rapidement les infos dans un même tableau. Cependant, il y a dans ce tableau des infos sur la production cumulée mois par mois (ex sur la feuille AOUT on retrouve la prod cumulée depuis le début de l'année arrétée à AOUT idem pour les autres mois). Pour faire remonter ces infos dans mon tableau recherche rapide j'ai fais des fonctions SI imbriqué qui disent en gros tant que la feuille decembre,novembre...fevrier esterreur alors recherché les infos dans Janvier sinon tant que les feuilles decembre,novenbre,octobre...mars alors recherché les infos sur la feuille fevrier etc... Le problème c'est que quand j'ai enregistré mon code vba qui est prévu pour actualiser ces formules, lorsque j'arrive sur cette la cellule la fenêtre de "mise à jours des valeurs" s'affiche et je dois annuler à chaque fois la mise à jour ( Ce qui est normal puisque la feuille décembre par exemple sera créée au début du mois de janvier et n'existe pas volontairement). J'ai ensuite créer un bouton que j'ai affecté à ma macro mais voilà ma macro bug lorsqu'elle arrive à cette étape. Pour info j'ai déjà essayé Application.displayAlerts = False Application.AskToUpdateLinks = False et ActiveWorkbook.UpdateLinks = xlUpdateLinksNever j'ai aussi vu une solution de mettre ActiveWorkbook.UpdateLinks =0 mais cette dernière solution m'ffiche erreur d'expression (je suis débutant sur vba). Jespère avoir été clair et j'espère que vous pouvez m'aider. Ma macro bug à cette étape :
ActiveCell.FormulaR1C1 = _
"=IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUIN!R3C1:R4" & _
"FALSE)),ISERROR(VLOOKUP(RC[-6],MAI!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AVRIL!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],MARS!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],FEVRIER!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],JANVIER!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,1" & _
",ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUIN!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],MAI!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AVRIL!R3C1:R40C26,10,FALSE))" & _
"VLOOKUP(RC[-6],MARS!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],FEVRIER!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),I" & _
"OOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUIN!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],MAI!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AVRIL!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],MARS!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLO" & _
"6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUIN!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],MAI!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],AVRIL!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6" & _
"E!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUIN!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],MAI!R3" & _
",10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],JUIN!R3C1" & _
"0,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],JUILLET!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEM" & _
"R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],AOUT!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],OC" & _
"1:R40C26,10,FALSE))),VLOOKUP(RC[-6],SEPTEMBRE!R3C1:R40C26,10,FALSE),IF(AND(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),ISERROR(VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE))),VLOOKUP(RC[-6],OCTOBRE!R3C1:R40C26,10,FALSE),IF(ISERROR(VLOOKUP(RC[-6],DECEMBRE!R3C1:R40C26,10,FALSE)),VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C26,10,FALSE),VLOOKUP(RC[-6],NOVEMBRE!R3C1:R40C" & _
"SE))))))))))))" Le message d'erreur est: erreur d'execution 1004: erreur définie par l'application ou par l'objet.
Je vous remercie d'avance
Posté le