Discussion :

[nico4566]

Bonjour
Je me prends pas mal la tête, car je suis nul en macro

Voila mon problème.
J'aimerais faire une macro via un bouton, pour qu'il puisse, recupere dans mon classeur, les noms des onglets pour les copier dans un nouvel onglet (on va l'appeler Synthèse)(positionné devant les autres) et les mettre dans un tableau ligne par ligne.
Si je créé un nouvel onglet, celui ci se positionnera dans le tableau de l'onglet synthése.

Je ne sais pas si je suis clair....

Si quelqu'un peux m'aider
Merci d'avance

[ben_ghost]

sisi

mais je vois pas trop l'utilité... en gros tu veux que ce qui s'affiche en ligne s'affiche en colonne ... c'est un bizarre mais bon :

Tu ajoutes ce code dans thisWorkbook en faisant alt+F11

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
' ce nom de fonction est une fonction systéme elle est appellé a chaque fois tu créer une nouvelle feuille
    Dim wsh, wshSynthese As Worksheet ' objet de type feuille
    Dim x As Integer ' il s'agit du compteur de ligne
 
    x = 0 'on se place sur la premiére ligne
 
    On Error GoTo Feuil_inexistante ' cette ligne permet de prévoir la non détection de la feuille
    Set wshSynthese = ActiveWorkbook.Worksheets("Synthése")
    GoTo Feuil_existante ' si pas d'erreur alors on va à la suite
Feuil_inexistante: 'sinon on créer une nouvelle feuille
    Set wshSynthese = ActiveWorkbook.Worksheets.Add(Type:=xlWorksheet)
    wshSynthese.Name = "Synthése" ' on la nomme synthése
 
Feuil_existante: 'lorsque l'on a bien crée la feuille
    For Each wsh In ActiveWorkbook.Worksheets ' pour chaque feuille du classeur
        If wsh.Name <> wshSynthese.Name Then 'on vérifie que le nom est différent de synthése
            wshSynthese.Range("A1").Offset(x, 0).Value = wsh.Name 'alors on entre dan la feuille synthése le nomde la feuille actuel
            x = x + 1 ' on incrémente la ligne
        End If ' fin de la boucle si
 
    Next 'on passe à la feuille suivante
End Sub 'fin de la fonction

A testé..

[casefayere]

Bonsoir,

ou plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim ws As Worksheet, i As Integer
i = 2
Sheets("synthese").Columns(1).ClearContents
For Each ws In Application.Worksheets
   If ws.Name <> "synthese" Then
      Sheets("synthese").Range("A" & i) = ws.Name
      i = i + 1
   End If
Next ws
End Sub

[nico4566]

Merci pour vos solutions mais ça ne marche pas.

Mais je crois que je me suis mal expliqué. J'ai voulu posé le problème par petit bout.
En fait, j'ai un classeur excel, composé de plusieurs feuilles avec des noms différents. Sur chaque feuille correspond un tableau identique. Les 4 premières lignes du tableau correspond les intitulés.
Lorsque je fais des modifications sur une feuille, je modifie la premiere ligne du tableau (donc la ligne 5).
Ce que j'aimerais, c'est de creer une feuille (qui soit au début des autres feuilles) appelé synthèse, avec un tableau.

Dans ce tableau je veux - les intitulés sur 4 lignes (identiques que les autres tableaux).
- en y, les noms des feuilles
- et en x, je voudrais récupérer les modification que j'ai fait dans les feuilles ( a la ligne 5 des tableaux) et qu'il le mette a la ligne du nom de la feuille.

Et si je créé une nouvelle feuille, que dans la feuille synthése il mette dans le tableau le nom de ma nouvelle feuille ainsi que les modifications.


Voila j'espère que c'est un peu plus clair

Par avance merci

[ben_ghost]

@ dom

ça va planté si tu n'as pas de feuille nommé "synthése" donc plus simple peut être (vu que t'explique ps ton code ça aide) mais moins robuste ça c'est sûr.
Faut rappelé que nico est nul en macro ( c'est pas moi qui le dit)
donc faire du copier coller en disant c'est plus simple parce que tu supprimes des lignes à mon avis ça sert à rien surtout si ces lignes sont là pour rendre plus robuste son utilisation et la robustesse dans le contexte est importante car le lancement de la macro se déclenche sur un événement...

@ nico

Dans ce tableau je veux - les intitulés sur 4 lignes (identiques que les autres tableaux).
- en y, les noms des feuilles
- et en x, je voudrais récupérer les modification que j'ai fait dans les feuilles ( a la ligne 5 des tableaux) et qu'il le mette a la ligne du nom de la feuille.

En gros, sur chaque ligne, tu as le nom des feuilles et en x les modifications apportés a chaque feuille.

y a la partie "( a la ligne 5 des tableaux) " que je comprend pas

Ce que je comprend :
Automatiquement la ligne sur lequel le nom de la feuille s'affiche doit s'alimenter avec les modifs de la feuille en question.

C'est bien ça ?

si c'est ça, c'est pas trop le même niveau et c'est quand même plus compliqué...

[nico4566]

Salut ben_ghost
Merci de me suivre dans mes problèmes !!!
Je joins un fichier excel comme exemple
Donc comme tu peux le voir dans le fichier.
Dans synthèse je récupére la ligne 5 des tableaux et je la copie et le colle suivant le nom de la feuille.
Je voudrais faire ça via un bouton.
Lorsque je modifie la ligne 5 d'un tableau d'une feuille . Je clique sur le bouton et la feuille synthèse se met à jour.


Merci de m'aider