XL 2016 Déporter une entrée

[robertduval]

Bonsoir j'ai récupéré ce fichier dans un forum, peut être ici d 'ailleurs je ne m'en rappelle plus, je souhaiterais déporter l'entrée

des tirages mais ça ne fonctionne pas

Merci d'avance

 

[Gégé-45550]

Bonsoir j'ai récupéré ce fichier dans un forum, peut être ici d 'ailleurs je ne m'en rappelle plus, je souhaiterais déporter l'entrée

des tirages mais ça ne fonctionne pas

Merci d'avance

Bonsoir,
Voir PJ.
Cordialement,

 

[job75]

Bonsoir robertduval, [Edit] Gégé-45550,

Essayez avec cette macro dans le code de la feuille "Stats" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
Range("C2").Select
Application.ScreenUpdating = False
With Sheets("Tirages")
    .Activate
    .Range("O2") = Range("C2")
End With
Me.Activate
End Sub

J'espère que c'est ce que vous voulez obtenir.

Bonne nuit.

 

[robertduval]

C'est ça merci beaucoup