copier coller même cellule de plusieurs feuil

Question

Bonjour,

J'ai fait plusieurs forums sans trouver de réponse à ma question. Je vous soumets donc le problème suivant.

Je souhaite copier la cellule R6 de toutes les feuilles de mon classeur (les noms des feuilles ne se suivent pas) et coller le résultat sur une feuille récap (sur une ligne ou une colonne peu importe).

Voilà si ça se trouve c'est pas compliqué????
Merci

michel_m · Answer

par une petite macro transforme B4 en R6 ou autre

Sub recuperer_B4()
Dim coll As Collection
Dim cptr As Byte, nbre As Byte

Set coll = New Collection
nbre = ThisWorkbook.Sheets.Count
cptr = 1
Do Until cptr = nbre
    If Sheets(cptr).Name <> "recap" Then
        coll.Add Sheets(cptr).Range("B4").Value
    End If
    cptr = cptr + 1
Loop

With Sheets("recap")
    For cptr = 1 To coll.Count
        .Cells(cptr + 1, 2) = coll(cptr)
    Next
End With

set cool=nothing
End Sub

Copier coller même cellule de plusieurs feuil

1 réponse

Discussions similaires

Newsletters