Copier cellule après mise à jour

Bonsoir,

Dans la colonne D d’une feuille de calcul « Inscription », j’ai un menu déroulant avec des noms&prenoms qui s’étend de D24 à D43.

Toujours, sur la feuille « Inscription » sur la plage de E24 :H43, les cellules se mettent à jour en fonction du nom&prenom de la colonne D (classique)

Je cherche à copier la valeur après mise à jour de la colonne D et de la copier (seulement la valeur) dans la feuille « Paramètre » dans la cellule « R3 »

De préférence avec VBA "SelectionChange(ByVal Target As Range" si c'est possible

Merci à vous, cordialement


 

4 réponses

  1. Bonjour,

    Merci de préciser ou se trouve la liste déroulante dans le but de proposer un code réaliste sur événement (SelectionChange....).!


    0
    1. Bonsoir 

      La liste déroulante se trouve dans la colonne D de D24 à D43

      Bien à toi

      0
      1. Bonjour,

        Merci, proposition cette après-midi.


        1
        1. Bonjour,

          Le code à copier dans le module de la feuille (Inscription):

          Private Sub Worksheet_Change(ByVal Target As Range)
          If Not Intersect(Target, Target.Worksheet.Range("D24:D43")) Is Nothing Then
              Sheets("Paramètre").Range("R3") = Target.Value
          End If
          End Sub

          1
          1. Merci super

            0