Microsoft 365 Sélectionner cellule en fonction d'une liste déroulante

[netparty]

Bonjour à tous
Je cherche le moyen de sélectionner 2 cellule en fonction de mon choix dans une liste déroulante comment est-ce possible de le faire ?

Exemple :
Si je choisi dans la liste déroulante "Sirène extérieur" j'aimerai que les cellules A13 et B13 soient sélectionnées pour que je puisse copier les 2 cellules.

Merci d'avance et bonne journée à tous

 

[JHA]

Bonjour à tous,

As-tu essayé une Mise en Forme Conditionnelle?

JHA

 

[netparty]

Bonjour à tous,

As-tu essayé une Mise en Forme Conditionnelle?

JHA

Non je n'ai pas essayé, le but de la sélection est de pouvoir couper la sélection pour la coller autre part.

Merci

 

[Phil69970]

Bonjour à tous

@netparty

Et si tu nous donnais un fichier avec toutes les infos cela nous éviterait de tout refaire 10 fois .....

le but de la sélection est de pouvoir couper la sélection pour la coller autre part.

Autre part c'est ou ?

 

[fanch55]

Salut,
A13:Bn représentent-ils une table ?

 

[netparty]

@Phil69970

Ci-joint mon fichier.
L'endroit ou je dois coller la sélection dois se faire sur la cellule active que je choisirais.

Merci

 

[netparty]

Salut,
A13:Bn représentent-ils une table ?

Non ce n'est pas une table

 

[Dranreb]

Bonjour.
Dans Feuil1 (Feuil1) :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$2" Then Exit Sub
   Me.[A12].Offset(WorksheetFunction.Match(Target.Value, _
      Me.[A13:A1000], 0), 0).Resize(1, 2).Select
   End Sub

 

[netparty]

Bonjour.
Dans Feuil1 (Feuil1) :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$2" Then Exit Sub
   Me.[A12].Offset(WorksheetFunction.Match(Target.Value, _
      Me.[A13:A1000], 0), 0).Resize(1, 2).Select
   End Sub

Bonjour @Dranreb

Merci cela fonctionne très bien autre question est-ce que cella fonctionne aussi si j'ai une autre liste déroulante qui recherche dans une autre plage?

 

[Dranreb]

Dans ce cas il vaudrait mieux l'écrire comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then
      Me.[A12].Offset(WorksheetFunction.Match(Target.Value, _
         Me.[A13:A1000], 0), 0).Resize(1, 2).Select
   ElseIf Target.Address = "…" Then
      Me.[…].Offset(WorksheetFunction.Match(Target.Value, _
         Me.[…], 0), 0).Resize(1, 2).Select
      End If
   End Sub