bonjour à tous;
mon probleme est le suivant: j'ai plusieurs feuilles excel, et 4 user form: le user form1 contient des boutons et en cliquant sur un des buoton il genre des statistique et il les affiche sur la feuille1; un bouton du user form2 il genre des statistiques et il les affiche sur la feuille2; un bouton du user form3 il genre des statistiques et il les affiche sur la feuille3; un bouton du user form4 il genre des statistiques et il les affiche sur la feuille4; ce que veux c'est de mettre certain de ces statistique de la feuille 'STATCONSOLIDEES" comme suit: (je donne un exemple de champs à affichier)
nomagence prodconso prodagri
xxxxxxxxx xxxxxxxxx xxxxxxx
xxxxxxxxx xxxxxxxxx xxxxxxx
sachant par exemple que pour le nomagence: il correspond au nom affiché sur la feuille1 c1; celui de la feuille2 c1, celui de la feuille 3 c1, et celui de la feuille4 c1
alors je voudrai savoir est ce que mon probleme est un probleme de consolidation, sachant que moi je veux qu'à chaque execution afficher le resultat des les feuilles voulu mias aussi dans la feuille(STATCONSOLIDEES)
en faisant des recherche je trouve pour la cosolidation ce gere de code:
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
25
26
27
28 ' désactivation de la mise à jour écran Application.ScreenUpdating = False Dim IdType As Integer Dim I As Long Dim NbrLig As Long Dim NumLig As Long Dim Feuille As Worksheet ' effacement de la feuille "Global" avant reconstruction Sheets("STATCONSOLIDEES").Cells.ClearContents ' on copie bout à bout dans la feuille "Global" ' le contenu des feuilles "partenaires" NumLig = 1 For Each Feuille In Worksheets Select Case Feuille.Name Case "STATISTIQUESAGRI", "STATISTIQUEHABITAT" Feuille.Activate NbrLig = Feuille.Cells(65536, 1).End(xlUp).Row Feuille.Range(Cells(1, 1), Cells(NbrLig, 1)).EntireRow.Copy Sheets("STATCONSOLIDEES").Activate Cells(NumLig, 1).Select ActiveSheet.Paste NumLig = NumLig + NbrLig End Select Next End Suba
Partager