Discussion :

[TROISPTITLA]

Bonjour à tous,

J'essaye dans la même feuille de sélectionner deux fichiers dans deux cellules différentes le tout dans la même feuille excel.
Je n'arrive pas à activer la deuxième cellule avec la macro évènementielle.
Voici mon code pour une cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If ActiveCell.Address <> "$D$3" Then Exit Sub
    Cancel = True
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Show
        ActiveCell = .SelectedItems(1)
    End With
End Sub

J'aimerais pouvoir avoir la même action pour la cellule $D$4 mais je n'arrive pas à trouver comment faire....

En vous souhaitant un excellent Dimanche !!

[yalehaire]

Bonjour
En remplaçant :

Code :

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

ActiveCell.Address <> "$D$3" Then

par :

Code :

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

If Target.Address <> "$D$3" And Target.Address <> "$D$4" Then Exit Sub