Récapitulatif de plusieurs onglets
Bonjour à toutes et à tous
J'ai un classeur comprenant plusieurs onglets (susceptibles de s'agrandir) avec un nom différent à chaque fois.
je souhaiterai faire un récapitulatif sur une autre feuille.
j'indique en exemple ce que je souhaite
Petite précision ce classeur est partagé
Merci d'avance pour votre réponse.
Pour information je quitte le service à la fin du mois. Si je pouvais faire ce cadeau à mes collègues....vous aurez toute ma reconnaissance.
Impossible de vous fournir le dossier (trop volumineux) je pourrais corresponde par mail
merci
à très vite
Bonjour,
Fais un extrait pertinent de ton classeur, cela suffira !
Bonjour Steelson,
Tout d'abord merci déjà d'avoir répondu si vite
voici un extrait du tableau
Merci
Merci steelson
je le mets en pratique la semaine prochaine
et si j'ai besoin je referais appel à tes services
en attendant bon week end
Bonjour Steelson,
Je viens de faire un copier coller de la formule sur mon vrai dossier.
Un message d'erreur apparaît
voir pièce jointe.
et juste avant "9Indice en dehors de la plage "
Merci
Bonne journée
Ah ah,
est-ce que la feuille synthèse existe bien, avec accent en minuscule et sans blancs ?
si oui, essaie ceci (on remettra les titres ensuite)
Sub compiler()
Sheets("synthèse").Select
Sheets("synthèse").Cells.ClearContents
ligne = 2
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "synthèse" Then
Cells(ligne, 1) = ws.Name
Cells(ligne, 2) = ws.Range("E38")
Cells(ligne + 1, 2) = ws.Range("E39")
Cells(ligne + 2, 2) = ws.Range("E30")
Cells(ligne, 3) = ws.Range("B2")
Cells(ligne + 1, 3) = ws.Range("B3")
Cells(ligne + 2, 3) = ws.Range("B4")
Cells(ligne, 4) = ws.Range("H38")
Cells(ligne + 1, 4) = ws.Range("H39")
Cells(ligne + 2, 2) = ws.Range("H40")
ligne = ligne + 3
End If
Next
End Subeffectivement erreur de ma part j'avais oublié de renommer la feuille.
ET MERCI TOUT PLEIN
Petite question il faudrait que je rajoute une ligne sur la formule h41
que faut-il que je rajoute ?
Merci d'avoir
Ca mérite un apéro
Comme ceci ?
Sub compiler()
Sheets("synthèse").Select
Sheets("synthèse").Cells.ClearContents
ligne = 2
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "synthèse" Then
Cells(ligne, 1) = ws.Name
Cells(ligne, 2) = ws.Range("E38")
Cells(ligne + 1, 2) = ws.Range("E39")
Cells(ligne + 2, 2) = ws.Range("E30")
Cells(ligne, 3) = ws.Range("B2")
Cells(ligne + 1, 3) = ws.Range("B3")
Cells(ligne + 2, 3) = ws.Range("B4")
Cells(ligne, 4) = ws.Range("H38")
Cells(ligne + 1, 4) = ws.Range("H39")
Cells(ligne + 2, 2) = ws.Range("H40")
Cells(ligne + 3, 2) = ws.Range("H41")
ligne = ligne + 4
End If
Next
End Sub