Pb de mise à jour cellule quand elle a été sélectionnée et effacée

[chalvron]

Bonjour le forum,

En ce moment, je tombe sur une espèce de bug dans mes tableaux XLS.

En effet, j'ai une macro qui exécute des calculs automatiques, une fois le résultat calculé (ou trié ...), ce résultat est sélectionné (fonction .select), copié et collé dans une cellule de destination.

De temps en temps, je réalise quelques calculs manuels et il m'arrive donc de supprimer le résultat issu d'un calcul macro (touche Suppr).
Mais lorsque je relance la macro qui doit afficher un résultat dans une cellule préalablement effacée manuellement, j'obtiens invariablement une cellule vide. Et plus j'en efface, moins j'ai de résultats !!

Quelqu'un pourrait m'expliquer ce phénomène.
Merci d'avance.
Chalvron

 

[Caillou]

Re : Pb de mise à jour cellule quand elle a été sélectionnée et effacée

Bonjour,

Impossible à dire sans voir la macro ! (et le fichier)

Caillou

 

[Compte Supprimé 979]

Re : Pb de mise à jour cellule quand elle a été sélectionnée et effacée

Bonjour Chalvron,

Sans fichier ni code VBA, difficile de te dire le pourquoi du comment

Peut-être -> Options -> Calcul = automatique

A+

Edit : oups, salut Caillou

 

[chalvron]

Re : Pb de mise à jour cellule quand elle a été sélectionnée et effacée

Voici le fichier à pb (qui a été allégé pour les besoins). Ces sont les cellules en rouge qui doivent recevoir les résultats de la macro.

PS: J'ai regardé l'option -> calcul -> calcul auto: rien n'y fait.

 

[Compte Supprimé 979]

Re : Pb de mise à jour cellule quand elle a été sélectionnée et effacée

Re,

Tu as des problèmes dans ton code, c'est certain
Si tu exécutes ton code en mode "pas à pas" (F8)

Tu verras que ta cellule C30 se remplit à un moment donné, puis est effacée
1)

Range("C30").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                         False, Transpose:=False

2)

  Range("C30").Select
  ActiveCell.FormulaR1C1 = "='RAL M10'!R[-14]C[-1]"

3)

Range("E" & VNUMLGRAL + 5).Copy Destination:=Sheets("En Tête").Range("C30")

De plus tu n'es pas obligé de sélectionner une feuille ou une cellule pour mettre la valeur dedans

A+

 

[chalvron]

Re : Pb de mise à jour cellule quand elle a été sélectionnée et effacée

Merci BrunoM45

Effectivement, mon code était vérolé!

J'ai rectifié tout cela et ça marche

@+