Discussion :

[malpas]

Bonjour,

Une question concernant les listes déroulantes.

je souhaiterais que ma liste déroulante qui se trouve dans la Feuille1, aille chercher (copier) :

- Dans la feuille2 la plage de cellule A1:B7 en conservant le texte et la mise en forme et le colle dans la feuille1, la même colonne, et une ligne en dessous où se trouve la liste déroulante, lorsque je sélectionne le premier élément de ma liste déroulante.

- Dans la feuille3 la plage de cellule A1:B7 en conservant le texte et la mise en forme et le colle dans la feuille1, la même colonne, et une ligne en dessous où se trouve la liste déroulante, lorsque je sélectionne le second élément de ma liste déroulante.

- Dans la feuille4 la plage de cellule A1:B7 en conservant le texte et la mise en forme et le colle dans la feuille1, la même colonne, et une ligne en dessous où se trouve la liste déroulante, lorsque je sélectionne le troisième élément de ma liste déroulante.

- ....etc......

et qu'il ne passe rien lorsque je sélectionne la cellule vide de ma liste déroulante.

MERCI de votre aide

@+++

[mercatog]

Tes feuilles sont bien nommées feuille2, feuille3...etc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
Dim i As Integer
 
i = 1 + ComboBox1.ListIndex
If i > 1 Then
    On Error Resume Next
    Sheets("feuille" & i).Range("A1:B7").Copy Range("B6")
    On Error GoTo 0
Else
    Range("B6:C12").Clear
End If
End Sub

[malpas]

Bonjour,

Pas réellement ce que je recherche. En effet, mais cela est de me faute, quand je parle de "liste déroulante" je ne parle pas de "ComboBox" mais de liste déroulante que l'on fait en allant dans "Données" puis "Validation" enfin "options".

Donc je reformule ma demande !

- que si le texte dans D2 (mis par liste déroulante) est "Départ", alors aller chercher (copier)
dans la feuille "Départ" la plage de cellule A1:B7 en conservant le texte, la mise en forme, la validation (en faite tout) et le colle dans la feuille1, la même colonne, et 2 lignes en dessous où se trouve la cellule de choix (liste déroulante).

- que si le texte dans D2 (mis par liste déroulante) est "Trajet", alors aller chercher (copier)
dans la feuille "Trajet" la plage de cellule A1:B9 en conservant le texte, la mise en forme, la validation (en faite tout) et le colle dans la feuille1, la même colonne, et 2 lignes en dessous où se trouve la cellule de choix (liste déroulante).

- que si le texte dans D2 (mis par liste déroulante) est "Arrêt", alors aller chercher (copier)
dans la feuille "Arrêt" la plage de cellule A1:B8 en conservant le texte, la mise en forme, la validation (en faite tout) et le colle dans la feuille1, la même colonne, et 2 lignes en dessous où se trouve la cellule de choix (liste déroulante).

- que si le texte dans D2 (mis par liste déroulante) est "Arrivée", alors aller chercher (copier)
dans la feuille "Arrivée" la plage de cellule A1:B5 en conservant le texte, la mise en forme, la validation (en faite tout) et le colle dans la feuille1, la même colonne, et 2 lignes en dessous où se trouve la cellule de choix (liste déroulante).

- que si le texte dans D2 (mis par liste déroulante) est "Fin", alors aller chercher (copier)
dans la feuille "Fin" la plage de cellule A1:B2 en conservant le texte, la mise en forme, la validation (en faite tout) et le colle dans la feuille1, la même colonne, et 2 lignes en dessous où se trouve la cellule de choix (liste déroulante).

et qu'il ne passe rien lorsque je sélectionne la cellule vide de ma liste déroulante.

ENCORE MERCI pour votre précieuse aide ! @++++

[mercatog]

Edit
une piste à adapter
à mettre dans l'évènement Change de ta feuille1

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
    Application.EnableEvents = False
    Range("D4:E12").Clear
    On Error Resume Next
    Sheets(Target.Value).Range("A1:B9").Copy Range("D4")
    Application.EnableEvents = True
End If
End Sub