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

meedoo2 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
titeufdu89 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

titeufdu89 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   38
 
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

1
le druide Messages postés 40156 Date d'inscription   Statut Contributeur Dernière intervention   6 610
 
0
meedoo2 Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   1
 
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.
0