Discussion :

[Denis_67]

Bonjour,

J'ai un classeur qui à l'ouverture chaque matin ajoute des lignes et met en place des calculs.
Pour des raisons de performances, je suis contraint de désactiver le calcul puis de le réactiver.

J'ai un souci cependant dans un cas, en effet ma formule copie la valeur de la cellule et n'applique pas la formule.

malgré plusieurs tentatives je n'arrive pas à formuler correctement ma syntaxe.
merci de votre aide

voici le code

Code :

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

1
2
3
4
5
6
7
8
 
With ThisWorkbook.Worksheets("FNC")
Maligne = .Range("A1048576").End(xlUp).Row
    While .ListObjects("Tab_FNC").ListColumns("Défaut Révisé").DataBodyRange(Maligne) = ""
    .ListObjects("Tab_FNC").ListColumns("Défaut Révisé").DataBodyRange(Maligne).Formula = .ListObjects("Tab_FNC").ListColumns("Défaut machine").DataBodyRange(Maligne)
    Maligne = Maligne - 1
    Wend
End With

Denis

[halaster08]

Bonjour,

Tu ne lui dit pas ce que tu souhaites copier du coup VBA fait comme il veut parfois c'est ce que tu voulais, parfois non.

Essaye:

Code :

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

1
2
    .ListObjects("Tab_FNC").ListColumns("Défaut Révisé").DataBodyRange(Maligne).Formula = .ListObjects("Tab_FNC").ListColumns("Défaut machine").DataBodyRange(Maligne).Formula

[Denis_67]

Merci pour la réponse rapide mais qui ne fait pas ce que je pensais.

je voulais avoir dans ListColumns("Défaut Révisé") = .ListColumns("Défaut machine") .

là il me copie la formule qui est dans .ListColumns("Défaut machine").
Denis

[halaster08]

J'ai un souci cependant dans un cas, en effet ma formule copie la valeur de la cellule et n'applique pas la formule.

je voulais avoir dans ListColumns("Défaut Révisé") = .ListColumns("Défaut machine").
là il me copie la formule qui est dans .ListColumns("Défaut machine").

C'est peut être moi qui suit mal réveillé mais j'ai l'impression que tes deux messages se contredisent.
Dans le premier tu dis avoir la valeur mais souhaite la formule, dans le second tu as la formule mais souhaite la valeur ?
Si c'est la valeur que tu souhaite remplace le .formula par .value dans ma proposition précédente

Quand tu écris ceci ListColumns("Défaut Révisé") = .ListColumns("Défaut machine") en gros tu écris cellule1 = cellule2 mais c'est pas clair du tout, car une cellule a plusieurs propriété, la valeur, la formule, le format ... c'est important de préciser ce que tu souhaites sinon VBA ou qqn comme moi qui te lis DOIT interpréter et donc peut se tromper

[Denis_67]

Eh oui, pas facile toujours d'expliquer.
Une bonne explication c'est déjà la moitié de la réponse.
Désolé pour la confusion.

à un instant T, j'ai désactivé les calculs automatiques (problème de perf).
Dans la cellule .ListColumns("Défaut machine") j'ai une valeur (temporaire) puisque calcul désactivé.
Si je recopie la valeur de la cellule je recopie la valeur temporaire qui est présente au moment de la copie (donc fausse).D'où ma question initiale.

Si je copie formule il me copie la formule de la cellule d'origine. (Dans ce cas, je suis d'accord le résultat est juste) c'est comme si j'écrivais la même formule deux fois dans deux cellules.

Ce que je souhaite c'est écrire dans la seconde cellule = cellule précédente (que cette cellule présente ou non une formule. (C'est aussi pour apprendre à manipuler dans les tableaux structurés.)

Merci pour votre patience à essayer de comprendre ma question.
Denis

[halaster08]

Un point qui m'interroge quand je lis ton code

Code :

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

1
2
 Maligne = Maligne - 1
    Wend

J'ai l'impression que tu fais une boucle pour mettre la formule dans toutes les cellules de ton tableau structuré, or l'avantage de passer par un tel tableau c'est justement d'avoir a entrer une formule une seule fois pour qu'elle s'applique sur tout le tableau.

Ce que je souhaite c'est écrire dans la seconde cellule = cellule précédente

Encore une fois je trouve pas ça très clair, peut être qu'un exemple avec des captures d'écran aiderai a comprendre
Du coup désolé si je répond a coté de la plaque, dans un structuré tu peux récupérer la valeur d'une autre colonne sur la même ligne avec le @: =[@[nom de la colonne]]

[Denis_67]

Bonjour Halister,

Oui les formules des tableaux suivent (en général ) toutes seules, ave le risque que l'utilisateur ne brise au milieu de sa colonne par une validation en dur.

Cependant dans mon cas, une des colonnes est corrigée manuellement par l'utilisateur.
Donc après ajout de nouvelles lignes en fin de feuille d'abord je charge la valeur présente dans une colonne précédente, et l'utilisateur ecrase si besoin le contenu.
c'est pour cela que je remonte depuis la fin de la feuille vers le haut jusqu'à ce qu'il y ait une valeur.
JE vais essayer la syntaxe toute simple je mettrai à jour le post semaine pro.

en tout cas encore merci
Denis