Discussion :

[MrcRafale]

Bonjour

Je fais des stats sur des questionnaires de satisfaction d'élèves après des formations. J'ai donc créé une feuille par formation, à l'aide d'un programme.
Pour compléter ce programme, je voudrais avoir un aperçu global de toutes ces feuilles sur la première feuille (que j'ai nommée menu)
Formellement, le programme devrait ressembler à ça :

Pour n allant de 2 à "dernière feuille"
B3 (Menu) = B3 (Menu) + B3 (feuille n)
Suivant

Avec B3 (feuille") correspondant à la cellule B3 de la feuille spécifiée entre les parenthèses
n étant variable
Le nom des feuilles est de la forme jj mois(en toutes lettres) aaaa

Je n'arrive malheureusement pas à l'écrire en VBA

Est-ce que qqn saurait m'aider?

Merci

Marc

[goldstar]

Un début de piste.

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
 
 
Sub test()
 
Dim w As Integer
Dim laFeuille As String
 
'parcours des feuilles
For w = 1 To ActiveWorkbook.Worksheets.Count
    If w.Name <> "MENU" Then 'Si la feuille n'est pas la feuille MENU alors
        laFeuille = w.Name 'Récuperation du nom de la feuille dans une variable
 
        Sheets("MENU").Range("B3") = Sheets("MENU").Range("B3") + Sheets(laFeuille).Range("B3")
 
    End If
Next w
 
 
End Sub

Cordialement,

[MrcRafale]

Merci.
Excel ne reconnait cependant pas le w.Name...

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
 
 
Sub test()
 
Dim w As Integer
Dim laFeuille As String
 
'parcours des feuilles
For w = 1 To ActiveWorkbook.Worksheets.Count
    If w.Name <> "MENU" Then 'Si la feuille n'est pas la feuille MENU alors
        laFeuille = w.Name 'Récuperation du nom de la feuille dans une variable
 
        Sheets("MENU").Range("B3") = Sheets("MENU").Range("B3") + Sheets(laFeuille).Range("B3")
 
    End If
Next w
 
 
End Sub

[cerede2000]

Ah ben il est clair que sur un Integer....

Code :

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

1
2
Dim w As Integer
If w.Name <> "MENU" Then

[Philippe Tulliez]

Bonjour,
Pour boucler sur les feuilles de calcul d'un classeur

Exemple 1

Code :

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

1
2
3
4
5
6
 Dim f As Integer
 With ThisWorkbook
  For f = 1 To .Worksheets.Count
   MsgBox .Worksheets(f).Name
  Next
 End With

Exemple 2

Code :

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

1
2
3
4
 Dim sht As Worksheet
 For Each sht In ThisWorkbook.Worksheets
  MsgBox sht.Name
 Next

[goldstar]

Oups... il faut mettre sheets (w).name

[Philippe Tulliez]

Bonjour Goldstar,

Oups... il faut mettre sheets (w).name

Dans ta réponse (fil #2) tu utilises une boucle (ligne 9 de ta procédure) dont la fin est le nombre d'éléments dans la collection Worksheets

Code :

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

1
2
'parcours des feuilles
For w = 1 To ActiveWorkbook.Worksheets.Count

il faut donc utiliser Worksheets(w).Name et pas Sheets(w).Name

Il y a une différence entre la collection Sheets et WorkSheets
Sheet est un objet représentant une feuille quelconque d'un classeur alors que Worksheet est une feuille de calcul.
Ainsi si tu as cinq feuilles de calcul et une feuille graphique, Sheets.Count renverra 6 alors que Worksheets.Count renverra 5

[MrcRafale]

Merci pour votre aide.
Finalisé, le code donne ceci

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
 
sub test ()
Sheets("MENU").Range("J6") = ""
        Sheets("MENU").Range("J7") = ""
        Sheets("MENU").Range("J8") = ""
        Sheets("MENU").Range("J9") = ""
        Sheets("MENU").Range("J13") = ""
        Sheets("MENU").Range("J14") = ""
        Sheets("MENU").Range("J15") = ""
For w = 1 To ActiveWorkbook.Worksheets.Count
    If Worksheets(w).Name <> "MENU" Then 'Si la feuille n'est pas la feuille MENU alors
        laFeuille = Worksheets(w).Name 'Récuperation du nom de la feuille dans une variable
 
        Sheets("MENU").Range("J6") = Sheets("MENU").Range("J6") + Sheets(laFeuille).Range("B18")
        Sheets("MENU").Range("J7") = Sheets("MENU").Range("J7") + Sheets(laFeuille).Range("B19")
        Sheets("MENU").Range("J8") = Sheets("MENU").Range("J8") + Sheets(laFeuille).Range("B20")
        Sheets("MENU").Range("J9") = Sheets("MENU").Range("J9") + Sheets(laFeuille).Range("B21")
        Sheets("MENU").Range("J13") = Sheets("MENU").Range("J13") + Sheets(laFeuille).Range("B25")
        Sheets("MENU").Range("J14") = Sheets("MENU").Range("J14") + Sheets(laFeuille).Range("B26")
        Sheets("MENU").Range("J15") = Sheets("MENU").Range("J15") + Sheets(laFeuille).Range("B27")
    End If
Next w
 
end sub

[Philippe Tulliez]

Bonjour,
Il y a plus simple.
Pourquoi effacer cellule par cellule alors que l'on peut gérer la plage complète.
Exemple pour remplacer les lignes 3 à 9

Code :

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

 Sheets("MENU").Range("J6:J9,J13:J15") = ""

et je préfère

Code :

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

 Sheets("MENU").Range("J6:J9,J13:J15").ClearContents

[EDIT]
Je me pose la question de la raison d'effacer les valeurs de ces cellules alors que quelques lignes plus bas ont rempli ces mêmes cellules d'une nouvelle valeur.
A moins de n'avoir rien compris, cette opération est donc inutile