Copier cellule après mise à jour
xavier62000 Messages postés 106 Date d'inscription Statut Membre Dernière intervention -
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
-
Bonjour,
Merci, proposition cette après-midi.
-
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
-
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....).!
-
Bonsoir
La liste déroulante se trouve dans la colonne D de D24 à D43
Bien à toi
