chercher texte et recopier ligne dans nouvelle feuille

F

floune

Guest
Rebonjour à tous
Encore un petit problème

J'ai fichier excel avec 5 feuilles
Dans la première feuille, j'ai un tableau avec différentes données que je récupère par un bouton tranfert à partir de fichier sources
A la fin de ce tableau j'ai une ligne qui s'appelle Exercice Courant
ce que je voudrais, c'est trouver cette ligne et la recopier sur une autre feuille
en fait, j'ai besoin d'une macro car cette ligne total n'est pas toujours au même endroit car elle varie en fonction du nombre de fichiers sources du premier transfert.

(pour info, mes feuilles sont toutes protégées)

j'espère que je me suis expliquée clairement
merci de vos réponse
 
T

tatiak

Guest
Bonsoir Floune,
essaye un truc du genre :

Sub chercheetcopie()
ActiveSheet.Unprotect Password:="MonmotdePasse1"
Sheets("Feuil1").Range("Exercice Courant").Copy
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="MonmotdePasse1"
Sheets("Feuil2").Select
ActiveSheet.Unprotect Password:="MonmotdePasse2"
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="MonmotdePasse2"
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 370
Messages
2 087 693
Membres
103 641
dernier inscrit
anouarkecita2