Bonjour à tous,
Je me bats avec un simple copier coller depuis un certain temps et je ne vois pas pourquoi ca ne marche pas!! a l'aide!
Voici mon code:
If Target.Address = "$A$1" Then
If Target.Value = "tata" Then
'copie de la ligne dans la feuille tata
Range("A" & Target.Row & ":M" & Target.Row & "").Copy
Application.CutCopyMode = False
With Sheets("tata")
.Select
'on se place à la meme ligne
.Range("A" & Target.Row, "M" & Target.Row).Select
Selection.PasteSpecial Paste:=xlAll
End With
End if
End if
C le Paste à la fin qui ne fonctionne pas! l'erreur doit venir de mon "Range"...
Merci de votre aide.
Je me bats avec un simple copier coller depuis un certain temps et je ne vois pas pourquoi ca ne marche pas!! a l'aide!
Voici mon code:
If Target.Address = "$A$1" Then
If Target.Value = "tata" Then
'copie de la ligne dans la feuille tata
Range("A" & Target.Row & ":M" & Target.Row & "").Copy
Application.CutCopyMode = False
With Sheets("tata")
.Select
'on se place à la meme ligne
.Range("A" & Target.Row, "M" & Target.Row).Select
Selection.PasteSpecial Paste:=xlAll
End With
End if
End if
C le Paste à la fin qui ne fonctionne pas! l'erreur doit venir de mon "Range"...
Merci de votre aide.