Copie de cellule

Bonjour,

J'ai une personne qui doit saisir dans un onglet suivi comme dans le fichier ci-joint et je souhaiterai récupérer sous une autre forme dans l'onglet export

Je vois pas trop quelle serait la meilleure façon de faire

et idéalement pouvoir modifier dans export la bonne cellule suite à chaque changement de valeur dans onglet suivi

Auriez-vous une petite idée pour m'aider ?

merci

Bonjour,

A mettre dans le module de la feuille "suivi" :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("export")

        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))

        Set Cel = Plage.Find(Cells(Target.Row, 2).Value, , xlValues, xlWhole)

        If Not Cel Is Nothing Then

            .Cells(Cel.Row, Target.Column).Value = Target.Value

        End If

    End With

End Sub

Bonjour,

merci

J'ai bien fait la modification comme indiqué mais aucune modification sur la feuille suivi ne se répercute sur la feuille export

fichier joint

En regardant le code indiqué, je n'ai pas l'impression de pouvoir aboutir au résultat suivant

A savoir que la rubrique en A1 et A4 par exemple sur la feuille suivi doivent se reporter dans le détail de chaque ligne sur l'onglet export

Merci

Bonjour,

Le code donné est une procédure événementielle assez simple (je n'ai pas mis de test en place), c'est la procédure événementielle "Change()" donc, il te faut re-saisir tes valeurs en feuille "saisie" et à chaque modif dans cette dernière, la valeur entrée sera reportée en feuille "export" !

La procédure avec les tests :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Plage As Range
    Dim Cel As Range

    If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

    With Worksheets("export")

        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))

        Set Cel = Plage.Find(Cells(Target.Row, 2).Value, , xlValues, xlWhole)

        If Not Cel Is Nothing Then

            .Cells(Cel.Row, Target.Column).Value = Target.Value

        End If

    End With

End Sub