Discussion :

[ChanQ57]

Bonjour à tous,

Désolé par avance pour ma question, car je suis persuadé que la réponse est toute simple mais malheureusement je suis novice .

J'ai un classeur excel avec 4 feuilles, et sur la première feuille en case B2, il y a un menu déroulant permettant de choisir 3 options. J'aurais souhaité qu'en fonction du choix dans cette cellule, l'onglet en question se copie sur ma première page.

je vous joins un exemple de fichier, car je me rends compte en me lisant que je ne suis pas clair

Merci d'avance pour votre aide

Test.xlsm

[Menhir]

je vous joins un exemple de fichier

Beaucoup de participants actifs de ce forum n'ouvrent pas les fichiers joints, surtout s'ils peuvent contenir des macros.
Lire ça : https://www.developpez.net/forums/d8...s-discussions/

J'ai un classeur excel avec 4 feuilles, et sur la première feuille en case B2, il y a un menu déroulant permettant de choisir 3 options. J'aurais souhaité qu'en fonction du choix dans cette cellule, l'onglet en question se copie sur ma première page.

Ca voudrait dire que la cellule dans laquelle tu fais la sélection sera écrasée par la copie ?

[ChanQ57]

Bonjour Menhir,

Désolé pour le fichier joint je n'avais pas vu cet article (novice jusqu'au bout hein haha).

En réalité, j'aimerais que le contenu des feuilles "NEW CLIENT", "TOP MATTER" et "RELATED MATTER" soient copiées sous le bandeau permettant le choix. Je ne sais pas si c'est réalisable mais merci par avance pour ton aide.

Q

[BENNASR]

bonjour

à tester

Code :

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

1
2
3
4
5
6
Sub test()
Sheets("OPENING").Range("A4:B43").ClearContents
Dim Page As String
Page = Sheets("OPENING").Range("B1").Value
Worksheets(Page).Range("A1:B40").Copy Sheets("OPENING").Range("A4")
End Sub

[ChanQ57]

Merci BENNASR,

En effet ce code fonctionne, par contre est-ce qu'il serait possible de faire en sorte que la feuille soit copié automatiquement en sélectionnant la valeur de B1 ?

Encore merci en tout cas

[BENNASR]

clic 2 fois sur la feuille appropriée

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Sheets("OPENING").Range("A4:B43").ClearContents
Dim Page As String
Page = Sheets("OPENING").Range("B1").Value
Worksheets(Page).Range("A1:B40").Copy Sheets("OPENING").Range("A4")
End Sub