Bonjour,
Je connais peu les macro mais quand j'en vois une qui me paraiit un bon outil, je l'utilise.
C'est un fichier de facturation, environ 30 factures/mois pour le meme client.
Une fois les factures finies, je veux récapituler les factures, libellés, montant, dans un onglet "synthese".
J'ai copie la macro suivante:
Sub GenererSynthese()
Dim sh As Worksheet, Ctr As Integer
For Each sh In Sheets
If sh.Name <> "Synthese" Then
Ctr = Ctr + 1
Sheets("Synthese").Range("A1" & Ctr) = sh.Name
Sheets("Synthese").Range("B1" & Ctr) = Sheets(sh.Name).Range("G9")
Sheets("Synthese").Range("C1" & Ctr) = Sheets(sh.Name).Range("A12")
Sheets("Synthese").Range("H1" & Ctr) = Sheets(sh.Name).Range("H50")
End If
Next
End Sub
Probleme: Ca fonctionne en test avec 4 ou 5 onglets, mais avec 26 onglets, le recap s'arrete à 9 . J'ai fait l'essai sur un autre PC, la macro bug et affiche erreur 400.
QQun peut il me dire ou est l'erreur?
Merci d'avance