Plantage de Excel

Bonjour

J'ai créé une macro voir ci-dessous (essai):

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1").Value <> "" Then
Range("B1").Value = Range("A1").Value * 2
End If
End Sub

J'ai enregistré ce code dans ThisWorkbook pour celui-ci soit pris en code dans toutes les feuilles.

Lorsque je modifie la cellule A1, la cellule B1 se met à jour, mais Excel se ferme, je suis sous Windows 11.

Par contre sous MAC le code s'exécute bien. Avant de réinstaller Office 2019, je voudrais savoir si cela se produit chez vous ?

Merci

Bonjour

Lorsque vous postez un code, merci d'utiliser les balises de code en cliquant sur l'icone </> disponible dans la barre de menu.
Votre post est corrigé pour que vous voyiez

A priori, je ne vois rien qui coche dans votre code.
En supposant que la valeur de B1 ne doit changer que si A1 est modifié, essayez comme ceci peut-être ?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("B1") = Target.Value * 2
End If
End Subub

si ok pensez à clotuter le fil

crdlt

Merci pour cette réponse (qui fonctionne), mais alors pourquoi cela fonctionne sur MAC mais pas sous Windows ?

J'ai testé sous Windows.
Pas de souci de mon coté
La nouvelle solution plante aussi sous windows ?

La nouvelle version fonctionne parfaitement.