Recopier la ligne C39:N39 de 51 feuilles Résolu/Fermé

Question

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

meedoo2 · Answer

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

Recopier la ligne C39:N39 de 51 feuilles

1 réponse

Discussions similaires

Newsletters