Listes en cascade - remise à zéro des valeurs sélectionnées

Bonjour,

Je suis actuellement en stage et je dois réaliser un devis sur excel permettant la saisie automatique des informations. Pour ça, j'utilise des listes en cascade grâce à la fonction "=indirect".

(données / validation de données / Autoriser liste / source: =indirect ( ) )

J'ai néanmoins un soucis: pour reprendre l'exemple, si je modifie la marque (renault -> citroën), la cellule modèle ne bouge pas, or, j'aimerais qu'elle s'annule pour éviter toute erreur de saisie dans le devis.

Pourriez vous m'aider svp? (je précise par avance que je n'ai aucune connaissance en VBA...)J'espère avoir été assez claire dans la description du problème...

Merci beaucoup!

Bonjour et bienvenue

Remplace la macro par celle-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Range("a2:a2"), Target) Is Nothing And Target.Count = 1 Then
      Application.EnableEvents = False
      temp = Range(Target)(1)
      Target.Offset(0, 1) = temp
      Application.EnableEvents = True
   End If
   If Not Intersect([A2], Target) Is Nothing Then
    Target.Offset(0, 1) = Empty
      End If
End Sub

Amicalement

Nad

Merci beaucoup pour la réponse!

Je ne sais pas remplacer la macro, mais je vais chercher. Dans tous les cas, merci d'avoir pris le temps de répondre.

Bonjour,

Je dépoussière ce sujet.

Est-il possible d'avoir une explication de la macro ci-dessus?