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

  • Initiateur de la discussion Initiateur de la discussion lrnt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lrnt

XLDnaute Nouveau
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
 
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
 
Re : Copie d'une cellule d'un nombre indéterminé de feuilles dans un tableau bilan(VB

Bonsoir

tu peux peut être faire avec :
Code:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour