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 -
meedoo2 Messages postés 46 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
