Bonjour,
voici le code que je souhaiterais adapter.
ce code copie des valeurs une fois que je rentre une valeur en D1.
Or, je souhaiterais, APRES que D1 soit selectionné, ajouter des valeurs en F5, G5,K5
Et que celles-ci soient recopier dans la ligne correspondante et soient
memorisées une fois F5 G5 K5 soient effacées.
je vous remercie de votre aide
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = "$D$1" Then
Set Cel = [d6:d125].Find(Target.Value)
If Cel Is Nothing Then Exit Sub
Cel(1, 3).Value = [F5].Value
Cel(1, 4).Value = [G5].Value
Cel(1, 8).Value = [K5].Value
[E5:K5].ClearContents
End If
End Sub
voici le code que je souhaiterais adapter.
ce code copie des valeurs une fois que je rentre une valeur en D1.
Or, je souhaiterais, APRES que D1 soit selectionné, ajouter des valeurs en F5, G5,K5
Et que celles-ci soient recopier dans la ligne correspondante et soient
memorisées une fois F5 G5 K5 soient effacées.
je vous remercie de votre aide
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = "$D$1" Then
Set Cel = [d6:d125].Find(Target.Value)
If Cel Is Nothing Then Exit Sub
Cel(1, 3).Value = [F5].Value
Cel(1, 4).Value = [G5].Value
Cel(1, 8).Value = [K5].Value
[E5:K5].ClearContents
End If
End Sub
Pièces jointes
Dernière édition: