Discussion :

[Lux (le noob)]

Bonjour,

Je cherche une formule Vba qui me permette de remplacer le contenu entier d'une feuille de donnée par une autre, à la suite de l'évènement 'change' d'un combobox.
Les structures des données sont identiques, ce qui me permettra d'intervertir différentes pages de tarifications.

Merci d'avance

[Lux (le noob)]

Oups, je m'aperçois que je ne suis pas dans le bon forum... Si un modo peut me transférer en VBA excel...

Re,

J'ai trafiqué quelques bouts de code récupérés à droite à gauche. Quelqu'un pourrait m'indiquer ce qui ne sert à rien, ce qui est trop bourrin, ou s'il y a moyen de faire mieux et moins cher

Merci

J'ai quatre feuilles : "bio", "Meda", "Para" et "Pluri", + une qui me sert de matrice "Mod" :

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
Private Sub ComboBox2_Change()
Dim wb_Data As Workbook
Dim ws_Data As Worksheet
Dim ws_Rapport As Worksheet
 
Set wb_Data = Workbooks(Workbooks.Count)
If ComboBox2.ListIndex = 0 Then
Set ws_Data = wb_Data.Worksheets("Bio")
Else
If ComboBox2.ListIndex = 1 Then
Set ws_Data = wb_Data.Worksheets("Meda")
Else
If ComboBox2.ListIndex = 2 Then
Set ws_Data = wb_Data.Worksheets("Para")
Else
If ComboBox2.ListIndex = 3 Then
Set ws_Data = wb_Data.Worksheets("Pluri")
End If
End If
End If
End If
Set ws_Rapport = wb_Data.Worksheets("MoD")
ws_Data.Cells.Copy ws_Rapport.Range("A1")
 
End Sub

[Marc-L]

Bonjour,

C'est bien parce que tu t'es rendu compte de ta méprise !

En respectant la règle TBTO :

Code :

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

1
2
3
4
5
Private Sub ComboBox2_Change()
    With ThisWorkbook
        .Worksheets(Array("Bio", "Meda", "Para", "Pluri")(ComboBox2.ListIndex)).Cells.Copy .Worksheets("MoD").[A1]
    End With
End Sub

Peut être encore plus simple si les feuilles se suivent dans le bon ordre grâce à leurs numéros d'index …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …