Déporter une entrée

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 la rentrée

des tirages mais ça ne fonctionne pas

Merci d'avance

Bonsoir,

une proposition à mettre sur la page de code de la feuille "Stats" :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2")) Is Nothing Then
        Application.ScreenUpdating = False
        Sheets("Tirages").Activate
        ActiveSheet.Range("O2").Value = Target
        Sheets("Stats").Activate
    End If
End Sub

Votre problème venait que le code de tirage est lié à la détection de "Change" de la cellule "O2" de la feuille "Tirages", mais ceci ne fonctionne pas avec les formules, donc on détecte le changement de valeur sur "Stats" et on va modifier "O2" par macro ce qui déclenche alors son "Change", une fois fait on revient sur "Stats".

Par contre toutes ces cellules fusionnées pour afficher une seule donnée...

@ bientôt

LouReeD

Merci ça fonctionne Nickel

Bonjour,

merci pour ce retour !

@ bientôt

LouReeD