Bonjour à tous,

Après plusieurs recherches et essais, je m'en remets à vous.

Voici mon problème : dans un classeur Excel j'ai deux onglets Feuille1 et Feuille2. Dans la Feuille1 un tableau mis à jour automatiquement via MySQL comportant 6 colonnes. Dans la feuille2, un tableau de 40 colonnes.

Je souhaiterais qu'au clic d'une cellule du tableau de la Feuille2 dans la colonne 20 (plage T8:T203), une MsgBox apparaît avec les valeurs trouvés dans le tableau de la Feuille1 en prenant comme critère (crit1) la cellule T6 (date, cellule fixe, en valeur > ou =) et la valeur de la cellule en colonne1 (crit2) de la Feuille1 (cellule provenant de la ligne sur laquelle je clique). Ces valeurs sont disponibles dans la Feuille1 : crit1 = colonne 6, crit2 = colonne 3. Les valeurs qui doivent apparaître dans la Msgbox proviennent du Tableau de la Feuille1 en colonne 6 et 4.

Il y a 1 à plusieurs valeurs à retourner dans la MsgBox.

Ci-dessous, le MsgBox à afficher :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
    If Not Application.Intersect(Target, Range("T8:T203")) Is Nothing Then
 
 
 
    MsgBox ("Voici la liste des expéditions programmées :" & vbLf & "Date" & " " & "Nb colis" & "Colis"), vbInformation
 
    End If
 
End Sub
Merci d'avance pour votre aide.