Affichage d'une cellule après une action

Bonjour à tous;

Je suis novice en VBA et j'ai fait un quizz. Je voudrais que mes points s'affiche à chaque fois qu'on entre la réponse.

voici le code je sais il est simpliste mais il marche:

Option Explicit

Option Compare Text

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Single

i = 0

If Range("B5") = "Ljubljana" Then i = i + 1

Range("A6") = "Vous avez un total de " & i & " points"

If Range("B10") = "Berlin" Then i = i + 1

Range("A11") = "Vous avez un total de " & i & " points"

End Sub

Merci de votre aide !!

voici le code je sais il est simpliste mais il marche:

Finalement il y a une question dans ce que tu demandes?

Avec un fichier, on verrait plus clair...

Bonjour,

moi j'utiliserai worksheet_change plutôt que worksheet_selectionchange

En fait, je voudrais que le texte "Vous avez ... points" s'affiche après que l'on est entré la réponse.

Cordialement