Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Copier les resultats de calcul lié à un menu deroulant

D

davy76

XLDnaute Nouveau
Bonjour,

J aimerais savoir si il est possible de copier dans un tableau de synthèse les résultats liés à des calculs qui bouge en fonction d'un menu déroulant.
Pour l'exemple, a chaque fois que je change la donnée du menu déroulant cellule jaune, un calcul se fait dans les cellules vert.
J'aimerais que le résultat soit copier dans un tableau de synthèse en bleu sur la ligne correspondant au lien en jaune.
J'espère avoir été clair.
Merci pour vos conseils.
 

Pièces jointes

  • Test calcul.xlsx
    18.3 KB · Affichages: 19
Solution
Voyez le fichier joint et ces 2 macros dans le code de la feuille "Synthese" :
VB: 
Private Sub Worksheet_Activate()
Dim F As Worksheet, mem, P As Range, i&
Set F = Sheets("Eval 2020")
mem = F.[H26]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If [B1] = "" Then [B1] = "CHM"
Set P = IIf(UCase([B1]) = "CHM", F.[G44:G56], F.[L44:L56])
Range("B3:N" & Rows.Count).ClearContents 'RAZ
For i = 1 To Application.CountA([A:A]) - 2
    F.Range("H26") = Range("A2").Offset(i)
    Range("B2:N2").Offset(i) = Application.Transpose(P)
Next
F.[H26] = mem
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub
Trier par date Trier par votes
D

davy76

XLDnaute Nouveau
Merci pour ta réponse, mais je me rend compte que je n'ai pas été tres clair dans mon explication.
En fait, dans le menu déroulant tu dois choisir le lien (LIEN 1, LIEN 2,....)
Celui, ci ira chercher les valeurs correspondants a la ligne et fera le calcul a, b, c, d,...
j'aimerais que ces résultats aille ensuite ce copier dans le tableau de synthese sur la ligne correspondant au LIEN sur la Feuil 1. Exemple les résultats a,b,c,d vont se coller pour le LIEN 1 en Cellule L2 à T2. Pour le LIEN 2 en CELLULE L3 à T3. Et ainsi de suite.
Car dans mon tableau d'origine, je ne veux copier que le resultat de mes calculs, je ne peux pas utiliser les valeurs qui compose le calcul car il y a trop de variable.
je ne sais pas si j ai été plus clair.
Mais merci de ton aide.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir davy76, JHA,

Oui il faut du VBA pour remplir le tableau de synthèse.

Voyez le fichier joint et cette macro dans le code de la feuille "TEST" :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mem, P As Range, i&
mem = [C2]
Application.ScreenUpdating = False
Application.EnableEvents = False
If [K2] = "" Then [K2] = "nbr1"
Set P = [E4:E12].Offset(, Right([K2], 1))
For i = 1 To 18
    Range("C2") = "LIEN " & i
    Range("K3:S3").Offset(i) = Application.Transpose(P)
Next
[C2] = mem
Application.EnableEvents = True
End Sub
Elle se déclenche quand on modifie une cellule quelconque.

Nota : j'ai fait le plus simple possible.

A+
 

Pièces jointes

  • Test calcul essai(1).xlsm
    23.2 KB · Affichages: 10
Vote positif 0 Vote négatif
D

davy76

XLDnaute Nouveau
Bonjour Job75,

Merci a toi, c'est exactement ce que je cherche et maintenant si le tableau de synthèse est sur un autre onglet comme dans le fichier joint. Comment je procède ?
 

Pièces jointes

  • Copie de Test calcul essai(1).xlsm
    23.4 KB · Affichages: 3
Vote positif 0 Vote négatif
D

davy76

XLDnaute Nouveau
Et du coup deuxième question, comme il s'agit d'un fichier générique j'ai mis LIEN 1, LIEN2, LIEN 3 mais comment je fais pour y mettre les vrai intitulé? Car une fois que je change ca ne fonctionne plus le VBA fait référence au nom "LIEN"
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour davy76,

Fichier (2) et la macro :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mem, P As Range, F As Worksheet, i&
mem = [C2]
Application.ScreenUpdating = False
Application.EnableEvents = False
If [K2] = "" Then [K2] = "nbr1"
Set P = [E4:E12].Offset(, Right([K2], 1))
Set F = Sheets("Synthese")
For i = 1 To 18
    Range("C2") = F.Range("A2").Offset(i)
    F.Range("B2:J2").Offset(i) = Application.Transpose(P)
Next
[C2] = mem
Application.EnableEvents = True
End Sub
A+
 

Pièces jointes

  • Test calcul essai(2).xlsm
    24.3 KB · Affichages: 2
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Il est plus simple d'utiliser cette macro dans le code de la feuille "Synthese", fichier (3) :
VB: 
Private Sub Worksheet_Activate()
Dim F As Worksheet, mem, P As Range, i&
Set F = Sheets("Test")
mem = F.[C2]
Application.ScreenUpdating = False
If F.[K2] = "" Then F.[K2] = "nbr1"
Set P = F.[E4:E12].Offset(, Right(F.[K2], 1))
For i = 1 To 18
    F.Range("C2") = Range("A2").Offset(i)
    Range("B2:J2").Offset(i) = Application.Transpose(P)
Next
F.[C2] = mem
End Sub
Elle se déclenche quand on active la feuille.
 

Pièces jointes

  • Test calcul essai(3).xlsm
    25.9 KB · Affichages: 2
Vote positif 0 Vote négatif
D

davy76

XLDnaute Nouveau
Merci a toi, mais je suis vraiment nul je n'arrive pas a le retransposé dans mon fichier.
faut vraiment que je comprenne lol.
Je t'envoi mon fichier si tu arrives a me faire la même chose mais avec le vrai fichier.
Dans la synthèse je dois pouvoir choisir 2 références en A2 comme pour le fichier test en K2.
Et en fonction de ce choix il va copier soit les cellules G44 à G55 ou L44 à L55 dans la synthèse.
Merci a toi encore une fois.
 

Pièces jointes

  • Outils vba.xlsm
    592.9 KB · Affichages: 2
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Voyez le fichier joint et ces 2 macros dans le code de la feuille "Synthese" :
VB: 
Private Sub Worksheet_Activate()
Dim F As Worksheet, mem, P As Range, i&
Set F = Sheets("Eval 2020")
mem = F.[H26]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If [B1] = "" Then [B1] = "CHM"
Set P = IIf(UCase([B1]) = "CHM", F.[G44:G56], F.[L44:L56])
Range("B3:N" & Rows.Count).ClearContents 'RAZ
For i = 1 To Application.CountA([A:A]) - 2
    F.Range("H26") = Range("A2").Offset(i)
    Range("B2:N2").Offset(i) = Application.Transpose(P)
Next
F.[H26] = mem
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub
 

Pièces jointes

  • Outils vba(1).xlsm
    595.5 KB · Affichages: 6
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
XL 2016 Calcul de date par rapport à un critère
Réponses
10
Affichages
220
JHA
J
M
  • Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
778
MCO2406
M
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
460
Nel'
N
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
654
crocrocro
C
R
  • Résolu(e)
Autres Réorganiser ou masquer suivant un menu déroulant
2
Réponses
15
Affichages
714
Phil69970
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
717
chaelie2015
B
  • Résolu(e)
XL 2019 Concours / MFC de mise en surbrillance de numéro selon résultats 13 ou <13
Réponses
4
Affichages
202
berru76
B
N
  • Question
XL 2019 Aide pour optimiser mon tableau Excel de suivi d'activité
Réponses
6
Affichages
352
Nicolaasss
N
A
  • Question
XL 2016 Gestion de liste de courses pour sejour de groupe
Réponses
1
Affichages
475
AtTheOne
S
  • Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
460
Jacky67
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
715
Pac41240
P
3
  • Question
XL 2010 Copier un tableau croisé dynamique même si celui ci a un nombre de ligne variable
Réponses
4
Affichages
716
306255
3
R
  • Question
XL 2019 Calcul Turf. PMU Trouver la plus performant selon les critères de course
Réponses
2
Affichages
1 K
Compte Supprimé 979
C
H
  • Résolu(e)
Autres copier des colonnes de tableau dans un autre onglet
Réponses
8
Affichages
615
hervoul
H
  • Question
Microsoft 365 Menu deroulant et PDF
Réponses
1
Affichages
563
kiki29
Q
  • Question
XL 2019 copier une ligne en fonction de la valeur d'une cellule
Réponses
10
Affichages
889
quetzal974
Q
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
1 K
Phil69970
  • Question
Microsoft 365 [RESOLU] Problème lié au modèle de données
Réponses
4
Affichages
3 K
Heodrene
C
  • Question
Autres copier coller cellule d'un fichier source
Réponses
12
Affichages
699
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…