Copier la même ligne de plusieurs feuilles d'un classeur
Fermé
meedoo2
Messages postés
44
Date d'inscription
jeudi 15 novembre 2018
Statut
Membre
Dernière intervention
29 mai 2023
-
24 déc. 2018 à 12:44
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 25 déc. 2018 à 18:10
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 25 déc. 2018 à 18:10
A voir également:
- Copier la même ligne de plusieurs feuilles d'un classeur
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Copier une vidéo youtube - Guide
- Partage de photos en ligne - Guide
- Hors ligne instagram - Guide
3 réponses
titeufdu89
Messages postés
375
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
1 avril 2023
38
Modifié le 25 déc. 2018 à 18:11
Modifié le 25 déc. 2018 à 18:11
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)
Bonne soirée, et joyeuses fêtes
Jc
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
le druide
Messages postés
40156
Date d'inscription
vendredi 16 avril 2004
Statut
Contributeur
Dernière intervention
15 octobre 2023
6 606
24 déc. 2018 à 13:10
24 déc. 2018 à 13:10
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/
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
Messages postés
44
Date d'inscription
jeudi 15 novembre 2018
Statut
Membre
Dernière intervention
29 mai 2023
25 déc. 2018 à 11:21
25 déc. 2018 à 11:21
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.
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.
