Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • 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 !

S'inscrire
L

lrnt

Guest
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
574
sylvanu
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
767
AtTheOne
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
190
sylvanu
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
430
vgendron
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
495
job75
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
615
spike29
S
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
335
crocrocro
C
E
  • Question Question
XL 2013 sélection plage de cellule en fonction de valeur
Réponses
3
Affichages
659
erics83
E
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
996
Nel'
N
N
  • Question Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
494
mapomme
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
515
mapomme
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
422
Pierreavecunp
P
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
1 K
13Hubert
M
  • Question Question
XL 2021 COPIER valeur d'une cellule pour constituer un tableau de résultats
Réponses
13
Affichages
627
matlatarte
M
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
665
Phil69970
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
845
Chaton77
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
543
MCOTTEND
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…