Excel 2010_Référence à des onglets par formule

[Pierre Aebischer]

Bonjour le forum,
je cherche à effectuer une formule qui va se répéter jusqu’à ce qu’il y ait une erreur (on error goto xxx 🙂
Je vais descendre cellule par cellule dans une feuille de récapitulation et la réponse à trouver se déplacera aussi chaque fois d’un onglet.
Mon problème : Je suis presque aussi mauvais pour vous l’expliquer que pour le résoudre ; en gros je dois scinder le nom de l’onglet par une formule actuellement introuvable car il y a chaque fois Client_ puis un numéro que je peux trouver en RC[-1] mais que je n’arrive pas à formuler. Dans le genre …'Client "&RC[-1].value"'!...
Merci par avance si vous pouvez me donner un coup de main

 

[vgendron]

Re : Excel 2010_Référence à des onglets par formule

Hello

essaie avec ce code

Sub Macro10()
'
' Macro10 Macro
'
Dim O As Worksheet

nb = 0
'en colonne A, liste tous les onglets sauf l'onglet "Base"
    For Each O In Worksheets
        If O.Name <> "Base" Then
            Range("A65536").End(xlUp).Offset(1, 0) = O.Name
            nb = nb + 1
        End If
    Next O
    
'créer la formule    
    formule = "=SOMME(INDIRECT(""'""&A3 &""'!E:E""))"

'l'affecte à la cellule B3
    Range("B3").FormulaLocal = formule
'puis la recopie jusqu'en bas
    Range("B3").AutoFill Destination:=Range("B3:B" & nb + 2)
    
End Sub

 

[Pierre Aebischer]

Re : Excel 2010_Référence à des onglets par formule

Merci, j'ai essayé mais finalement ai-je peut-être mal expliqué ce je peux faire. On peut faire "plus" simple, admettons que le nom de l'onglet recherché se situe dans la cellule de gauche au même niveau; y a-t-il moyen de l'utiliser pour une formule, par ex: ActiveCell.FormulaR1C1 = "=SUM('RC[-1].Value'!R1C8:R58C8)"
Je crois que je n'arrive plus à joindre une pièce

 

[Pierre Aebischer]

Re : Excel 2010_Référence à des onglets par formule

Avec pièce jointe, merci par avance

 

[Pierre Aebischer]

Re : Excel 2010_Référence à des onglets par formule

Le petit Suisse a mis du temps mais maintenant c'est ok...Un énorme merci...Et une bonne bière