Bonjour
Je débute avec excel c'est pourquoi j'ai besoin d'aide.
Sub tableau()
Nb_feuilles = Sheets.Count
For i = 2 To Nb_feuilles
Sheets(i).Activate
Range("C4").Select
Selection.Copy
Sheets(1).Activate
Range("Ai").Select c'est cette ligne qui a l'air de ne pas passer
ActiveSheet.Paste
Next
End Sub
Si quelqu'un sais comment faire je serai ravie d'avoir une solution ou deja un peu d'aide.
Merci d'avance.
Je débute avec excel c'est pourquoi j'ai besoin d'aide.
Je voudrai créer une tableaux dans le feuille 1 d'un fichiers excel (pour ensuite en faire un graph) en récupérant les données contenues dans la case C4 des feuilles suivantes. En plus pour ne pas arranger l'affaire le nombre total de feuilles évolue puisque chaque mois je compte ajouter une feuille.
J'ai commencé à écrire un code vba mais il contient des erreurs car le compilateur ne veut pas l'executer.Sub tableau()
Nb_feuilles = Sheets.Count
For i = 2 To Nb_feuilles
Sheets(i).Activate
Range("C4").Select
Selection.Copy
Sheets(1).Activate
Range("Ai").Select c'est cette ligne qui a l'air de ne pas passer
ActiveSheet.Paste
Next
End Sub
Si quelqu'un sais comment faire je serai ravie d'avoir une solution ou deja un peu d'aide.
Merci d'avance.