Insérer une formule si on efface la cellule
Résolu
XRA
-
XRA -
XRA -
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
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
A voir également:
- Insérer une formule si on efface la cellule
- Formule si et - Guide
- Insérer une vidéo dans powerpoint - Guide
- Excel cellule couleur si condition texte - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Insérer signature word - Guide
4 réponses
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
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
Bonjour,
si tu n'as qu'une seule feuille concernée c'est aussi simple de mettre dans le module de la feuille :
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
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.
