Feuille Precedente

bonjour Sebastien,

il faut que la feuille de destination soit active au début de la procédure,

Private Sub test()
Set MaFeuille = ActiveSheet
Sheets("DonnéesÀcopier").Activate 'ici sélection de la feuille contenant les données à copier
ActiveWindow.RangeSelection.EntireRow.Copy
MaFeuille.Select
ActiveCell.PasteSpecial 'ici je crois que c'est ActiveSheet.PasteSpecial
End Sub

isabelle

Bonjour,
voici un bout de ma macro

Private Sub test()
ActiveWindow.RangeSelection.EntireRow.Copy
Sheets("Feuil1").Select
ActiveCell.PasteSpecial
End Sub

Y a t'il une facons de lui dire de recoller sa dans la feuille ou j'etait
avant et non dans la feuil1 comme sa le fait en se moment
Exemple: je suis entrain de travailler dans la feuil6 ou 8 ou 9 .... etc
je vais dans ma feuil0 je selectionne une cellule, j'execute ma macro et il
va me la recoller dans la feuil ou j'etait avant soit la 6 ou la 8 ou la 9.
Mais juste dans un seuil feuil celle ou j'etait au precedamment

Merci

sa semble pas marcher ! mais je vais tout expliquer sa va aider je croi

je suis entrain de travailler sur une feuille en particulier et je
selectionne une cellule qui contient exemple le mot pomme
et j'execute cette macro

Private Sub test()
Set Mafeuille = ActiveSheet
Set Target = ActiveCell
Set ints = Application.Intersect(Target, Range("A1:IV65536"))
If Not ints Is Nothing Then
On Error Resume Next
addr = Sheets("Items").Cells.Find(What:=[Target], After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Address
If Not addr = Empty Then
Application.Goto Sheets("Items").Range(addr)
Else
MsgBox "valeur non trouvé"
End If
End If
End Sub

automatiquement il va dans ma feuil "Items" et il me trouve le mot pomme
(tout sa fonctionne a merveille.). toujour dans ma feuil item je clique sur
une cellule qui contient exemple le mot orange et j'execute la macro
suivante

Private Sub pascontent()
ActiveWindow.RangeSelection.EntireRow.Copy
Sheets("Feuil1").Select
ActiveCell.PasteSpecial
End Sub


Donc il ma prit le mot orange et il la mit a place du mot pomme dans mon
autre feuil

Tout sa fonctionne super bien mais le probleme c'est que si je travail sur
la feuil2 au lieu de la feuil1 et bien il va aller me remplacer le mot pomme
par orange dans ma feuil1 ce qui est tout a fait normale car dans ma macro
je lui dit d'aller dans la feuil1 ( Sheets("Feuil1").Select )
il faut que je change ce bout la (Sheets("Feuil1").Select ) pour lui dire
d'aller le changer sur la feuille precedante et non la feuil1
car je travail jamais sur la meme feuil des fois ses la 1 la 2 la 3 ......
tout sa semble stupide masi sa me prend sa absolutment !!
sa ce fait ????
merci d'avance




"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
egL7FiLfFHA.2372@TK2MSFTNGP14.phx.gbl...

bonjour Sebastien,

il faut que la feuille de destination soit active au début de la
procédure,

Private Sub test()
Set MaFeuille = ActiveSheet
Sheets("DonnéesÀcopier").Activate 'ici sélection de la feuille contenant
les données à copier
ActiveWindow.RangeSelection.EntireRow.Copy
MaFeuille.Select
ActiveCell.PasteSpecial 'ici je crois que c'est ActiveSheet.PasteSpecial
End Sub

isabelle

Bonjour,
voici un bout de ma macro

Private Sub test()
ActiveWindow.RangeSelection.EntireRow.Copy
Sheets("Feuil1").Select
ActiveCell.PasteSpecial
End Sub

Y a t'il une facons de lui dire de recoller sa dans la feuille ou j'etait
avant et non dans la feuil1 comme sa le fait en se moment
Exemple: je suis entrain de travailler dans la feuil6 ou 8 ou 9 .... etc
je vais dans ma feuil0 je selectionne une cellule, j'execute ma macro et
il va me la recoller dans la feuil ou j'etait avant soit la 6 ou la 8 ou
la 9. Mais juste dans un seuil feuil celle ou j'etait au precedamment

Merci

si je comprend bien la feuille de départ est Set Mafeuille = ActiveSheet
il faudrait la déclarer en Public en haut du module

Public MaFeuille

Private Sub test()
Set Mafeuille = ActiveSheet
Set Target = ActiveCell
Set ints = Application.Intersect(Target, Range("A1:IV65536"))
If Not ints Is Nothing Then
On Error Resume Next
addr = Sheets("Items").Cells.Find(What:=[Target], After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Address
If Not addr = Empty Then
Application.Goto Sheets("Items").Range(addr)
Else
MsgBox "valeur non trouvé"
End If
End If
End Sub

Private Sub pascontent()
ActiveWindow.RangeSelection.EntireRow.Copy
Set Mafeuille.Select
ActiveCell.PasteSpecial
End Sub

isabelle

correction,
Public MaFeuille As Object

isabelle

si je comprend bien la feuille de départ est Set Mafeuille = ActiveSheet
il faudrait la déclarer en Public en haut du module

Public MaFeuille

Private Sub test()
Set Mafeuille = ActiveSheet
Set Target = ActiveCell
Set ints = Application.Intersect(Target, Range("A1:IV65536"))
If Not ints Is Nothing Then
On Error Resume Next
addr = Sheets("Items").Cells.Find(What:=[Target], After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Address
If Not addr = Empty Then
Application.Goto Sheets("Items").Range(addr)
Else
MsgBox "valeur non trouvé"
End If
End If
End Sub

Private Sub pascontent()
ActiveWindow.RangeSelection.EntireRow.Copy
Set Mafeuille.Select
ActiveCell.PasteSpecial
End Sub

isabelle

Bon j'ai enfin tout fini mecri a toi Isabelle
:) tout est comme je le voulais

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23HppKUMfFHA.2840@tk2msftngp13.phx.gbl...

si je comprend bien la feuille de départ est Set Mafeuille = ActiveSheet
il faudrait la déclarer en Public en haut du module

Public MaFeuille

Private Sub test()
Set Mafeuille = ActiveSheet
Set Target = ActiveCell
Set ints = Application.Intersect(Target, Range("A1:IV65536"))
If Not ints Is Nothing Then
On Error Resume Next
addr = Sheets("Items").Cells.Find(What:=[Target], After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse _
, SearchFormat:úlse).Address
If Not addr = Empty Then
Application.Goto Sheets("Items").Range(addr)
Else
MsgBox "valeur non trouvé"
End If
End If
End Sub

Private Sub pascontent()
ActiveWindow.RangeSelection.EntireRow.Copy
Set Mafeuille.Select
ActiveCell.PasteSpecial
End Sub

isabelle