Compléter tableau avec plusieurs onglets

Bonjour à tous,

Je reviens vers vous car il se pose à moi un nouveau problème et je suis toujours agréablement surpris des aides que vous m'apportez. Mon problème est le suivant, j'ai rempli la colonne CA 2009 en allant chercher dans chaque onglet la valeur CA 2009 pour chaque société. J'aimerais maintenant remplir la colonne CA 2010 sans avoir à aller chercher la valeur dans chaque onglet sachant que chaque onglet à la même forme : c'est-à-dire que le CA 2010 se trouve à droite du CA 2009. Même chose pour remplir directement les dettes 2010 et 2011 sans avoir à aller chercher dans chaque onglet.

Je vous remercie vraiment pour votre aide. Je vous laisse mon fichier en exemple car cela est toujours plus simple pour comprendre. Encore merci et bonne journée à vous.

Bonjour ,

Je ne comprend pas trop ton problème , avec tes formules "='Société X'!A2 " tu n'a pas besoin d'aller chercher les valeurs dans chaque feuille , juste à faire glisser la formule et à changer le nom de la société ( peut-être ajoute un $ devant le 2 afin de ne pas le modifier lors du glissage )

sinon une petite macro qui fait sa toute seule (par contre il ne faut pas d'espace dans le nom des onglets)

Sub Remplissage()

Dim i As Integer
Dim feuille As Variant
Dim nomf As String

i = 2

For Each feuille In Sheets
nomf = feuille.Name
If Left(nomf, 7) = "Société" Then
    Range("Tableau!A" & i).Value = nomf
    Range("Tableau!B" & i).Value = Range(nomf & "!A2").Value
    Range("Tableau!C" & i).Value = Range(nomf & "!B2").Value
    Range("Tableau!D" & i).Value = Range(nomf & "!C2").Value
    Range("Tableau!F" & i).Value = Range(nomf & "!A9").Value
    Range("Tableau!G" & i).Value = Range(nomf & "!B9").Value
    i = i + 1
End If
Next feuille

End Sub

Cordialement