copier valeur cellule pour chaque onglet

[smrlgs]

Bonjour à toutes et à tous!

Mon problème:

J'ai un classeur composé d'une feuille "recap" et de plusieurs autres onglets qui sont toutes structurées de la même façon:

sur l'onglet "recap", je liste en colonne B tous les noms des onglets du classeur en utilisant le code (qui fonctionne très bien) ci-dessous:


Sub ListeOnglets()
Range("B8").Select
ActiveCell.Value = "CA par mission"
For i = 6 To Worksheets.Count
[b4].Offset(i, 0).Value = Worksheets(i).Name
Next i
End Sub

Toujours dans la feuille "recap", je souhaiterai maintenant mettre en colonne C la valeur de chaque onglet qui se trouve, disons pour exemple, toujours dans la cellule "E50".
Je bloque sévère et merci de m'aider SVP
ps: je suis débutant et me forme depuis peu à travers de ce site. merci de votre compéhension

Seb

 

[ROGER2327]

Re : copier valeur cellule pour chaque onglet

Bonjour smrlgs

[COLOR="DarkSlateGray"]Sub ListeOnglets()
    [B8].Value = "CA par mission"
    For i = 6 To Worksheets.Count
        [B4].Offset(i, 0).Value = Worksheets(i).Name
        [B4].Offset(i, 1).Value = Worksheets(i).[E50].Value
    Next i
End Sub[/COLOR]

devrait faire l'affaire.​

Bonne journée.
ROGER2327

 

[PascalXLD]

Re : copier valeur cellule pour chaque onglet

Bonjour

fil déplacé sur le bon forum

 

[hoerwind]

Re : copier valeur cellule pour chaque onglet

Bonjour,

Essaie si B2 contient le nom d'un onglet :
=INDIRECT("'"&B2&"'!E50")

Les ' ne sont pas nécessaires s'il n'y a pas d'espaces dans les noms des onglets, la formule devenant :
=INDIRECT(B2&"!E50")

 

[smrlgs]

Re : copier valeur cellule pour chaque onglet

Bonjour smrlgs

[COLOR="DarkSlateGray"]Sub ListeOnglets()
    [B8].Value = "CA par mission"
    For i = 6 To Worksheets.Count
        [B4].Offset(i, 0).Value = Worksheets(i).Name
        [B4].Offset(i, 1).Value = Worksheets(i).[E50].Value
    Next i
End Sub[/COLOR]

devrait faire l'affaire.​

Bonne journée.
ROGER2327

Merci pour tout Roger!!! ça marche nickel!