Recopier la ligne C39:N39 de 51 feuilles

Résolu

meedoo2 Messages postés 46 Date d'inscription Statut Membre Dernière intervention -
meedoo2 Messages postés 46 Date d'inscription Statut Membre Dernière intervention - 26 févr. 2022 à 22:56

Bonjour,
J'ai un classeur de 51 feuilles. Je voudrais reprendre (copier) les données de la même ligne de 12 cellules (C39:N39) des 51 feuilles dans une 52è feuilles. J'aurai alors un nouveau tableau de 12 colonnes et 51 lignes. Un autre souci est qu'il y a une formule de Somme dans toutes les cellules ciblées. C'est à dire qu'il faut copier et coller les valeurs et non les formules.
J'ai déjà posté une requête pareille il y a 3 ans mais je n'avais pas réussi la manœuvre:
https://forums.commentcamarche.net/forum/affich-35767536-copier-la-meme-ligne-de-plusieurs-feuilles-d-un-classeur
Merci

Configuration: Windows / Chrome 98.0.4758.102

A voir également:

Recopier la ligne C39:N39 de 51 feuilles
Partager photos en ligne - Guide
Aller à la ligne excel - Guide
Mètre en ligne - Guide
Apparaitre hors ligne instagram - Guide
Formulaire en ligne de meta - Guide

1 réponse

Réponse 1 / 1

meedoo2 Messages postés 46 Date d'inscription Statut Membre Dernière intervention 1

Vraiment navré,
La réponse de titeufdu89 (de l'époque) est concluante et parfaite (la plage C40:N40 à adapter aux cas):

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

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

Votre réponse

Discussions similaires