Copier la même ligne de plusieurs feuilles d'un classeur Fermé

Question

Bonjour, 
J'ai un fichier excel avec une vingtaine de feuilles. Sur chaque feuille il y a une seule ligne qui m’intéresse, et j'aimerais rassembler toutes ces lignes dispersées dans les feuilles dans une seule feuille ou dans un nouveau classeur. Comment donc je pourrai copier cette même ligne (exemple la quatrième ligne) de toutes les feuilles vers une nouvelle feuille ?
dernière chose : sur cette fameuse ligne souhaitée, il y a des formules dont j'aimerais copier les valeurs.
Je vous remercie


Configuration: Windows / Chrome 71.0.3578.98

le druide · Answer

Salut,

avec une petite macro çà devrait le faire... Exemple sur ce site > https://www.developpez.net/forums/d1113261/logiciels/microsoft-office/excel/macros-vba-excel/macro-copier-coller-ligne-d-tableau-feuille/

meedoo2 · Answer

Merci pour  cette réponse qui m'incite à mieux expliciter mon cas:
J'ai 47 feuilles dans mon classeur. Dans chaque feuille, je voudrais copier les données (en valeurs et non pas formule) de la range C40:N40 vers une nouvelle feuille (la 48 ème).
ça va me donner (sur cette dernière feuille) un nouveau tableau de 47 lignes et 12 colonnes.
S'il y a une Macro pour cela, Merci de bien vouloir la patager.

titeufdu89 · Answer

Bonsoir Meedoo, 

Voici un code qui devrait faire l'affaire, à coller dans un module de l'interface VBA de ton fichier (Alt + F11 pour y accèder > insertion > module puis tu colles le code suivant dans la fenêtre qui s'est ouverte). Enfin execute lance la macro "recap". Pour rappel ton fichier doit être enregistrer-sous au format ".xlsm" (prenant en charge les macros) 

Sub recap()
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Récap"
Set r = Sheets("Récap")
lig = 2

For i = 1 To Sheets.Count - 1
Set ws = Sheets(i)
r.Range("A" & lig & ":L" & lig) = ws.Range("C40:N40").Value
lig = lig + 1
Next i

End Sub
 

Bonne soirée, et joyeuses fêtes

Jc

Copier la même ligne de plusieurs feuilles d'un classeur

3 réponses

Discussions similaires