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