Discussion :

[nduverger]

Bonjour,
Je suis en train de construire un classeur à 8 onglets : 1 tableau par onglet, les 8 tableaux sont identiques, avec des menus déroulants permettant de calculer un prix final selon les options retenues.

Exemple : onglet 1 = Menu Italien. Onglet 2 = Menu Végétarien … Onglet 8 : Menu Asiatique.
Choix : apéritif, entrée, boisson, plat, dessert

A l’ouverture du fichier, un userform permet de choisir un ou plusieurs menus, et seuls les onglets correspondants s'ouvrent. Ainsi, l’utilisateur peut par exemple simuler le prix d’un Menu Italien seul, ou un Menu Italien et un Asiatique, ou le prix des 8 menus.

J’aimerai avoir un onglet récapitulatif, prêt à être imprimé. Par exemple, si l’utilisateur a choisi le Menu Italien et le Menu Végétarien, et complété les tableaux sur les 2 onglets, il pourrait aller récuperer les 2 tableaux sur la même feuille, l'un aprés l'autre, dans l’onglet synthése.

Est-ce faisable ?
Merci,
Nico

[Daniel.C]

Bonjour,

C'est possible, ça dépend essentiellement de la disposition de test données et du type de synthèse voulu. Poste un classeur exemple.

[Menhir]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Recap()
   Dim Recap As Worksheet
   Dim i As Integer
 
   Set Recap = Worksheets.Add(, Worksheet(Worksheets.Count))
 
   For i = 1 To Worksheets.Count - 1
      Worksheets(i).UsedRange.Copy (Recap.Cells(Recap.UsedRange.Rows.Count + Recap.UsedRange.Row))
   Next i
 
End Sub

[nduverger]

Merci. Si je comprends bien, je dois créer un onglet et le nommer "Recap", puis insérer cette macro (mais où?)

[Menhir]

Non, cette macro crée l'onglet Recap elle-même.
D'ailleurs, si l'onglet Recap existe déjà, il faut le supprimer avant de lancer la macro.

Il faut mettre cette macro dans un module du classeur.
Si tu ne sais pas comment insérer une macro, regarde un didacticiel de base sur VBA : http://excel.developpez.com/cours/

[nduverger]

Merci. J'ai copié collé cette macro dans un module, mais rien ne se passe

[Menhir]

Pour déclencher une macro, il faut l'exécuter.
Lis les tutoriels.

[nduverger]

J'ai exécuté la macro, mais ca ne fonctionne pas

[Menhir]

ca ne fonctionne pas

C'est vraiment très explicite comme description de problème.

[nduverger]

"Erreur de compilation: Sub ou Function non définie".

[Menhir]

Comment as-tu lancé la macro ?
Comment l'as-tu implantée ?

[nduverger]

J'ai crée un bouton de commande "Recap", dans chaque onglet, avec ton code à l'intérieur.

[Menhir]

Tu n'aurais pas changé le nom de la macro entre le moment où tu l'as reliée au bouton et le moment où tu l'as exécutée ?
Où as-tu placé le code ?

[nduverger]

J'ai fait "affichage => barre d'outils => boite à outils controles", puis je me suis mis en "mode création". J'ai crée mes boutons de commande, puis double cliqué et saisi le code dedans. J'ai répété cette opération sur les 8 onglets.

[Menhir]

Tu veux dire que tu as mis ce code comme texte du bouton de contrôle ?
C'est normal de que ça ne marche pas.

Il faut mettre la macro dans un module avec l'éditeur VBA.

Je te répète. Avant de commencer à implanter cette macro, commence par lire un tutoriel sur le VBA et à créer une petite macro très simple. Quand tu auras compris la base, tu comprendras comment faire avec la macro que je t'ai transmise.

Et il ne sera pas nécessaire de l'implanter dans tous les onglets puisque, justement, elle récupère le contenu de tous les onglets (c'est la macro qui les scrute les uns après les autres).

[nduverger]

Est-ce possible de m’indiquer où copier/coller le code, étape par étape, si ce n’est pas trop compliqué ? J’utilise VBA très rarement, donc je n’ai pas spécialement envie de me plonger dans des tutoriels. Merci

[Nico Chg]

Donc tu demande un tutoriel, parceque tu n'as pas le temps d'en lire ? Je trouve ça plutôt malin ...

Tu fais Alt + f11, et tu obtiens ça :



Tu copy/past le code dans le module que tu as créer :



Tu ajoute un bouton :



Et tu lie le code au bouton :



Et la c'est gagné. Sinon, et bien il va falloir que tu trouve un vrai tutoriel, parce qu'il s'agit de la base de la base du VBA.

[Menhir]

Est-ce possible de m’indiquer où copier/coller le code, étape par étape, si ce n’est pas trop compliqué ?

C'est expliqué dans les tutoriels que je t'ai déjà conseillé de lire : http://excel.developpez.com/cours/
Si tu ne veux faire aucun effort, je ne vois pas pourquoi les autres en feraient pour toi.

J’utilise VBA très rarement, donc je n’ai pas spécialement envie de me plonger dans des tutoriels. Merci

Une autre façon de dire : je n'ai pas envie de perdre du temps, pouvez-vous en perdre pour moi.

[Nico Chg]

On dirait que j'ai été trop gentil

[nduverger]

Cela ne fonctionne pas. Avez-vous testé la macro?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Recap()
   Dim Recap As Worksheet
   Dim i As Integer
 
   Set Recap = Worksheets.Add(, Worksheet(Worksheets.Count))
 
   For i = 1 To Worksheets.Count - 1
      Worksheets(i).UsedRange.Copy (Recap.Cells(Recap.UsedRange.Rows.Count + Recap.UsedRange.Row))
   Next i
 
End Sub

Quelqu'un a d'autres pistes?