Discussion :

[ooyeah]

Bonjour,

Je suis en train de travailler sur un formulaire excel qui travaille avec un autre fichier .xls (fichier destination).
Dans ce formulaireje rentre mes valeurs qui sont ensuite copié dans les cellules correspondantes du fichier destination.
Dan le fichier destinantion il y a donc certaines cellules (on appellera Cellules modifiables) que je modifie via le formulaire et d'autres que je ne modifie pas mais que je lie (cellules resultat). Ces cellules résultat contiennent des formules, leurs résultat varient donc en fonction des cellules modifiables.
Quand je suis dans le fichier destination et que je modifie directement les cellules modifiables sans passer par le formulaire, les cellules resultat sont mise à jour instantanéments. Mais quand je passe par le formulaire, les cellules résultats reste à zéro.

Est-ce que quelqu'un aurait une petite idée de comment arranger ça?

Merci

[ouskel'n'or]

Essaie

Code :

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

Application.calculate

A placer après la mise à jour de tes données.
A+

[ooyeah]

J'ai essayer de faire comme ça mais ça ne fonctionne pas, je sais vraiment pas pourquoi.

Voici le code que j'utilise pour enregistrer les données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Dim SheetToModify As String
    Call OuvrirCostModel
 
    Dim i As Integer
    i = 2
    Do Until IsEmpty(MATRICE.Cells(i, 1))
        '***On ne sauvegarde dans le costmodel que les champs modifiable
        If MATRICE.Cells(i, 9) = "Modifiable" Then
            SheetToModify = MATRICE.Cells(i, 10).Value
            Sheets(SheetToModify).Select
            Cells(MATRICE.Cells(i, 2).Value, MATRICE.Cells(i, 3).Value) = MATRICE.Cells(i, 4)
            Sheets(SheetToModify).Calculate
        End If
        i = i + 1
    Loop
 
    Call FermerCostModel

[ooyeah]

C'est bizarre parce que je viens de me rendre compte qu'il y a une cellule résultat qui fonctionne correctement (elle contient une gigantesque formule avec du vlookup et tt ca) par contre les autres cellules resultat ne fonctionnent toujours pas comme il faudrait (elle contienne des formules simple type somme)

[ouskel'n'or]

Voici le code que j'utilise pour enregistrer les données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Dim SheetToModify As worksheet
    Application.screenUpdating = false
    Call OuvrirCostModel
 
    Dim i As Integer
    i = 2
    Do Until IsEmpty(MATRICE.Cells(i, 1))
        '***On ne sauvegarde dans le costmodel que les champs modifiable
        If MATRICE.Cells(i, 9) = "Modifiable" Then
            Set SheetToModify = Worksheets(MATRICE.Cells(i, 10).Value)
            SheetToModify.Cells(MATRICE.Cells(i, 2).Value, _
            MATRICE.Cells(i, 3).Value) = MATRICE.Cells(i, 4)
            SheetToModify.Calculate
        End If
        i = i + 1
    Loop
    Set worksheet = Nothing
    Call FermerCostModel
    Application.screenUpdating = True

Déjà, si tu instanciais ta feuille, ça simplifierait ton code.
Ensuite, évite les selects qui ralentissent le code.
Enfin, si dans l'une ou l'autre des macros appelées tu as des selects, avant de les supprimer et pour tester, ajoute les deux lignes "Application.screenUpdating = ....."
A+

[ooyeah]

Merci pour ton coup de main, mais j'ai résolu mon erreur.
En fait chaque fois que j'enregistrait une valeur, je ne précisait pas le type donc excel croyait que j'enregistrait un champs string donc ça ne lui plaisait pas pour les formules.