Transféré des données d'une feuilles a un autre en VBA

Bonjour à tous en ce dimanche ensoleillé,

Tiens Alyre, un méthode qu'on peut utiliser, tu tapes ALT F11 sous Excel,

Tableau de gauche, en haut, cliquer sur le nom du fichier concerné,
puis sur le nom de la feuille (ici pour macro:feuil2 ).



Private Sub Worksheet_Change(ByVal Target As Range)
Set f1 = Sheets("feuil2") ''''''''''''Définition de la feuille où l'on rentre les données, à adapter si le nom de la feuille n'est pas le même
Set f2 = Sheets("feuil3") '''''''''''Définition de la feuille où les données seront copiées
Set pl = f1.Range("A20", "B40")''''''''''définition de la plage à copier
pl.Copy Destination:=f2.Range("A6")'''''' adapter si on veut une autre cellule de destination
Application.CutCopyMode = False''''vide le presse papier
End Sub


A++++

Bonjour a tous et a Zon

J'ai fait ce que tu ma dit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set f1 = Sheets("feuil2")
Set f2 = Sheets("feuil3")
Set pl = f1.Rang("A20", "B40")
pl.Copy Destination:=f2Range("A6")
Application.CutCopyMode = False
End Sub

Ca ne marche pas, quand il arrive a (Set f1) ca me répond

(Erreur de Compilation Projet ou bibliotheque introuvable )

Pourtant ma feuil2 est bien déclaré dans une macro

Je te remerci de bien vouloir m'aider

Bonsoir Alyre,

Essaie ce code où je me sers aucune variable:


Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("feuil2").Range("A20", "B40").Copy Destination:=Sheets("feuil3").Range("A6")
Application.CutCopyMode = False
End Sub



A++++

Bonjour Zon

J'ai essayer ta formule et ca marche parfaitement, je te remerci

J'ai un autre question , si je remplie les lignes a la feuille 2 avec de nouvelles donner, j'aimerais que c'est donner s'ajoute a la feuille 3 a la suite des donner qui s'ont déja la

Je te remerci beaucoup @ ++

Bonjour à tous,

Alyre, voilà le code suivant ,
Ici dans le code je ne copie les cellules de la colonne A et B [Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 1)], si, tu veux plus de colonnes au lieu de mettre ActiveCell.Offset(-1, 1), tu remplaces le 2eme chiffre qui correspond au nombre de colonnes (2 pour copier A B et C...)



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim L As Integer
L = Sheets("Feuil2").Range("A65536").End(xlUp).Row
'MsgBox (ActiveCell)
Sheets("Feuil2").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 1)).Copy Destination:=Sheets("feuil3").Range("A" & L + 1)
Application.CutCopyMode = False
End Sub

A+++

Salut Zon et bonjour a tous

Excuse moi pour réponce aussi retardé, j'étais telment occupé a essayer toute sorte de formule et en + le travail j'ai manqué de temps

Je te remerci mille fois pour ton bon travail, ca marche tres bien

A+ merci encore
alyre