Bonjour à tous,
Je possède une tablette Surface 3 dans laquelle je dois utiliser un fichier (Modèle.xlsm) contenant plusieurs listes déroulantes. Étant donné la difficulté que j'ai d'ouvrir une liste déroulante en pointant sur la flèche avec le doigt, je voudrais zoomer sur la liste afin d'effectuer un choix plus facilement. Un exemple a été fait pour la cellule AC15 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AC$15" Then
ActiveWindow.Zoom = 300
Application.Goto Target, Scroll:=True
SendKeys "%{down}"
Else
ActiveWindow.Zoom = 100
End If
End Sub
J'ai besoin d'aide car je désirerais qu'une fois l'élément est sélectionné dans la liste, le zoom 100 s'applique automatiquement et le curseur se positionne à la cellule A13, dans le coin supérieur droit de l'écran.
******************
Finalement, elle-il possible d'ouvrir un répertoire photo jusqu'en cliquant sur une case, exemple cellule D15 (Modèle.xlsm) et voir la photo 51 située dans le répertoire Photo (idem clic L15 - ouvrir photo 89)?
Répertoire de travail
Répertoire Photo
1.jpg
2.jpg
....
Modèle.xlsm
Merci à l'avance pour votre précieuse collaboration,
Salutations,
Renaud22
Je possède une tablette Surface 3 dans laquelle je dois utiliser un fichier (Modèle.xlsm) contenant plusieurs listes déroulantes. Étant donné la difficulté que j'ai d'ouvrir une liste déroulante en pointant sur la flèche avec le doigt, je voudrais zoomer sur la liste afin d'effectuer un choix plus facilement. Un exemple a été fait pour la cellule AC15 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AC$15" Then
ActiveWindow.Zoom = 300
Application.Goto Target, Scroll:=True
SendKeys "%{down}"
Else
ActiveWindow.Zoom = 100
End If
End Sub
J'ai besoin d'aide car je désirerais qu'une fois l'élément est sélectionné dans la liste, le zoom 100 s'applique automatiquement et le curseur se positionne à la cellule A13, dans le coin supérieur droit de l'écran.
******************
************Finalement, elle-il possible d'ouvrir un répertoire photo jusqu'en cliquant sur une case, exemple cellule D15 (Modèle.xlsm) et voir la photo 51 située dans le répertoire Photo (idem clic L15 - ouvrir photo 89)?
Répertoire de travail
Répertoire Photo
1.jpg
2.jpg
....
Modèle.xlsm
Merci à l'avance pour votre précieuse collaboration,
Salutations,
Renaud22