Insérer une formule si on efface la cellule Résolu/Fermé

Question

Bonjour tout le monde, 

Je me bat pour un petit truc et ne trouve pas de solution sur les forums. j'espère que vous pourrez m'aider.

En faite dans une cellule (B75) j'ai la formule "=B74". De temps en temps je souhaite avoir une valeur différentes. Jusqu'à rien de compliqué.

Maintenant j'aimerais que si j'efface cette cellule, la formule de base ("=B74) revienne automatiquement.

J'ai essayé le code ci-dessous mais il me dit "Erreur d'execution '1004': Erreur définie par l'application ou par l'objet".

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ThisWorkbook.Worksheets("Feuille calcul").Range(B75).Value = "" Then Range("B75").Select
ActiveCell.Formula = "= B74"
End Sub

Bon je suis vraiement pas très au point sur VBA dc si quelqu'un veux bien m'aider ce serait cool.

N'hésitez pas pour plus de question.

Et merci d'avance.

Xa

Configuration: Windows 7 / Firefox 21.0

Thorak83 · Answer

Bonjour,

il faudrait changer Range(B75) en Range("B75")

Cordialement

XRA · Answer

Effectivement ça ira mieux.

Par contre maintenant cela me créer une nouvelle erreur :

Erreur d'exécution '-2147417848 (80010108)':
La méthode 'Range' de l'objet'_Worksheet' a échoué

Merci

eriiic · Answer

Bonjour,

si tu n'as qu'une seule feuille concernée c'est aussi simple de mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$75" And Target = "" Then Target.Formula = "=B74"
End Sub
eric 
 
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

XRA · Answer

Niquel ça marche tout comme je veux !!!

Merci.

Insérer une formule si on efface la cellule

4 réponses

Discussions similaires