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