Copie d'une cellule d'un nombre indéterminé de feuilles dans un tableau bilan(VBA)

[lrnt]

Bonjour,

J'ai un tableau bilan reprenant la valeur d'une cellule dans un nombre indéterminé de feuilles (pas encore crées).
Ex:
'si la feuil1! existe alors copier la cellule C3 dans la cellule A1 du bilan!.
en A1 du Bilan ='feuil1'!C3
'si la feuil2! existe alors copier la cellule C3 dans la cellule A1 du bilan!.
en A2 du Bilan ='feuil2'!C3

Le problème est que mes feuilles feuil1! .....etc se créent au jour le jour.
Excel n'accepte pas une formule se référerant à une feuille qui n'existe pas encore.

Je souhaite passé en VBA
Comment puis écrire ce que je souhaite
Sub copiedecellule()
If Sheets("feuil1")<>"" Then Sheets("bilan").Range("A1") = Sheets("feuil1").Range("C3")

End Sub

Et faire une boucle pour au moins 120 feuilles
Merci d'avance
lrnt

 

[lrnt]

Re : Copie d'une cellule d'un nombre indéterminé de feuilles dans un tableau bilan(VB

Je crois avoir trouver qq chose

'**********Verifier si la page existe***********
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
On Error Resume Next
FeuilleExiste = Not (wk.sheets(stFeuille) Is Nothing)
End Function
'**********verifier pour les pages feuil***********
Sub copiedecellule()
'Si la feuille 1 existe alors copier la cellule C3 de la feuille 1 dans la cellule A1 du Bilan

If FeuilleExiste(ThisWorkbook, "feuil1!") Then
sheets("bilan").Range("A1") = sheets("feuil1!").Range("C3")
Else
End If

'Si la feuille 2 existe alors copier la cellule C3 de la feuille 2 dans la cellule A2 du Bilan
If FeuilleExiste(ThisWorkbook, "feuil2!") Then
sheets("bilan").Range("A2") = sheets("feuil2!").Range("C3")
Else
End If

...
' 120 fois...


End Sub

C'est répétitif mais ça marche,
si vous avez une idée pour la boucle je suis preneur.
A bon entendeur
Merci

 

[CISCO]

Re : Copie d'une cellule d'un nombre indéterminé de feuilles dans un tableau bilan(VB

Bonsoir

tu peux peut être faire avec :

INDIRECT("Feuil"&INFORMATIONS("nbfich")&"!A5")

avec le contenu à lire dans la dernière feuille en A5. A modifier certainement pour pouvoir utiliser le vrai nom de la dernière feuille.

@ plus

 

[CISCO]

Re : Copie d'une cellule d'un nombre indéterminé de feuilles dans un tableau bilan(VB

Rebonsoir

Une autre possibilité

@ plus