Discussion :

[shadown08]

Bonjour à tous,

J'ai un problème avec un calcul qui ne s'actualise pas.

J'ai un fichier composé de 3 onglets :
-Hypothèses
-Résultats
-Entreprise

Dans mon onglet "Hypothèses" je saisie le nombre d'entreprises de mon étude - de 1 à 20
J'ai déjà créé une macro pour dupliquer mon onglet "Entreprise" autant de fois que nécessaire car dans cet onglet les calculs sont fait pour chaque entreprise de manière indépendante.

Mon Pb est dans l'onglet Résultats.

J'ai en effet déjà conçu un tableau recap prenant en compte des onglets non existant puisqu'il seront créé avec ma macro de duplication.

Par exemple

A2 = SI(ESTERREUR('Entreprise (2)'!$H$2);0;'Entreprise (2)'!H2)
A3 = =SI(ESTERREUR('Entreprise (3)'!$H$2);0;'Entreprise (3)'!H2)
A4 = =SI(ESTERREUR('Entreprise (4)'!$H$2);0;'Entreprise (4)'!H2)

Seulement ces formule ne se mettent pas à jour lors de la création des onglets Entreprise (2), Entreprise (3), ...

Je suis obliger manuellement d'aller sur chaque cellule, de cliquer sur la formule et de valider ...

Je souhaiterais donc une macro pour que cela se fasse juste en cliquant sur un bouton ...

Attention car certains onglets auxquels cette feuille fait référence n'existeront peut être pas (par exemple pour un nombre d'entreprise = 3).


Merci d'avance pour votre aide car tout ce que j'ai essayé ne fonctionne pas.

[Kimy_Ire]

Bonjour shadown08,

Si je comprends bien, dans tes cellules A2 à AX, tu cherches à récupérer la valeur de H2 de chacune de tes onlgets entreprises, c'est ça ?
Pour ne fais-tu pas cela par macro pour le coup et pourquoi utilises-tu des formules "hypothétiques" dans le sens où tu ne sais pas si les onglets vont être créés ?

Voila quelque chose de très rapide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub recup_h2()
Dim oWksh As Worksheet
Dim i As Byte
 
i = 1
With Worksheets("Résultats")
    For Each oWksh In Worksheets
        If oWksh.Name Like "Entreprise*" Then
            .Range("A1").Offset(i, 0) = oWksh.Range("H2")
            i = i + 1
        End If
    Next oWksh
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[shadown08]

Merci beaucoup !

J'avais bien pensé à cette solution mais je ne voyais pas du tout comment faire !

ça marche parfaitement.