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