Calcul automatique et macro

Bonjour, le souci rencontré, j'ai un document "reçu" qui reçois des chiffres d'une macro. Le reçu type fonctionne avec les calcul automatique, mais quand des nouveaux chiffres arrive de ma macro, il ne reconnait plus la première information(la cellule concernée) du calcul automatique et me met REF à la place ? le calcul automatique est sur le tableur excel et pas dans la macro qui envoi les chiffre.

Merci d'avance

Bonjour et bienvenue sur le forum,

Si vous pouviez joindre le fichier contenant la macro et le document "reçu", ça nous permettra d'analyser le problème.

Votre macro doit supprimer un élément (nom/cellule…) qui sont les principales causes de l'erreur #REF.

dans le classeur vous allez trouver la macro "RECU" dans la page RECU en lien avec les pages BD2 (bases de données)

on copie une ligne de données de BD sur la BD2, on active la macro sur le RECU mais le calcul ne se fait pas!

Re,

J'ai signalé votre précédent message car faites attention, votre fichier était plein de données privées !

Essayez la macro ci-dessous qui copie les valeurs sans les formules, afin d'éviter l'erreur #REF. Dites moi si vous voulez que cela vide la feuille d'origine je peux l'ajouter.

Sub RECU()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Set srcSheet = Sheets("BD (2)")
    Set destSheet = Sheets("RECU")

    Application.ScreenUpdating = False

    destSheet.Range("E4").Value = srcSheet.Range("I2").Value
    destSheet.Range("C10").Value = srcSheet.Range("C2").Value
    destSheet.Range("D10").Value = srcSheet.Range("D2").Value
    destSheet.Range("F13").Value = srcSheet.Range("O2").Value
    destSheet.Range("C13").Value = srcSheet.Range("P2").Value
    destSheet.Range("C16").Value = srcSheet.Range("Q2").Value
    destSheet.Range("C19").Value = srcSheet.Range("R2").Value
    destSheet.Range("F22").Value = srcSheet.Range("S2").Value
    destSheet.Range("F23").Value = srcSheet.Range("T2").Value
    destSheet.Range("F24").Value = srcSheet.Range("U2").Value
    destSheet.Range("F25").Value = srcSheet.Range("X2").Value
    destSheet.Range("F26").Value = srcSheet.Range("Y2").Value
    destSheet.Range("F27").Value = srcSheet.Range("Z2").Value
    destSheet.Range("F28").Value = srcSheet.Range("AA2").Value
    destSheet.Range("F29").Value = srcSheet.Range("AC2").Value
    destSheet.Range("F30").Value = srcSheet.Range("AD2").Value
    destSheet.Range("C33").Value = srcSheet.Range("AF2").Value
    destSheet.Range("C34").Value = srcSheet.Range("AJ2").Value
    destSheet.Range("C35").Value = srcSheet.Range("AM2").Value

    Application.ScreenUpdating = True
End Sub

EDIT : Veuillez préciser votre version d'Excel sur votre profil. La valeur attendue est : 2016/2021/365 selon votre cas, + éventuellement la langue (si non FR) + MAC si vous travaillez sur MacOS. Ces infos aident à vous aider de manière efficace.

Bonjour

Merci pour votre aide

la macro fonctionne!

bonne journée