Copie automatique d une feuille à l autre

Bonjour à tous

Je suis nouveau sur le forum et je voudrais avoir une aide pour faire une macro

Voila j'ai 2 tableur identique sur 2 feuilles différentes et je voudrais transféré les donnés automatiquement que je met sur la première sur la deuxième qui se trouve sur les cases en couleur

Cela est il possible ?

Voici le tableur en fichier joint

Merci a ceux qui pourront m'aidé

Cordialement Florian

Bonjour,

Essaie comme cela :

Sub Test()
Dim Cel As Range
    For Each Cel In Sheets("Feuil2").Range("A4:P68")
        If Cel.Interior.Color = 15849925 Then
            Cel = Sheets("Feuil1").Range(Cel.Address)
        End If
    Next Cel
End Sub

A+

Bonjour merci d'avoir répondu mais ça ne fonctionne pas

Florian

Si tu renseignes la partie bleue de la Feuil1 et que tu lances la macro, tu devrais obtenir la copie des valeurs dans la Feuil2.

Sinon, tu ne dis pas tout.

A+

La macro fonctionne mais je suis obligé de la forcé manuellement ça ne fonctionnement pas automatiquement

Florian

Pour que la macro se lance "automatiquement", il te faut définir quel est l'élément déclencheur.

Exemple :

Pour que le traitement soit effectué à l'activation de la Feuil2, tu peux utiliser l'évènement ACTIVATE de la feuille.

Private Sub Worksheet_Activate()
Dim Cel As Range
    For Each Cel In Range("A4:P68")
        If Cel.Interior.Color = 15849925 Then
            Cel = Sheets("Feuil1").Range(Cel.Address)
        End If
    Next Cel
End Sub

Le code est à placer dans le module de la Feuil2.

A+

Bonsoir merci votre Macro fonctionne parfaitement

Cordialement Florian