Espace pile

bonjour a tous

j'ai ajouter un bout de code sur ma feuille excel

mais depuis j'ai ce message d'erreur espace pile insuffisant 28

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("E8") Then
[e10] = 1
End If
End Sub

le code est simple , je veux que si E8 est modifier alors E10 reviens a la valeur "1 "

la case e8 est modifer que par moi

Bonjour foufie,

Essaye ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("E8") Then
[E10].Value = 1
End If
End Sub

Bonne journée !

bonjour

merci de la reponse

mais non cela ne fonctionne pas

et l'erreur se produit souvent lorsque je veux

je veux mettre E8 =1 alors erreur Pile

et il aime tellement pas que parfois qu'il ferme excel

Serait-il possible de joindre un fichier afin que je teste directement sur celui-ci ?

Hello,

En fait ton target doit être écrit comme ça :

If Not Intersect(Target, Range("E8")) Is Nothing Then
range("E10").value = 1
end if

Allez café,

Bye

combien de sucre pour le cafe waard ? une goutte de lait ??

bon alors juste un grand Merci , ca fonctionne