Programme VBA pour extraire des données selon une condition

Bonjour à tous,
Je suis novice en VBA donc je viens demander votre aide.
Je dois réaliser un programme VBA pour :
Qu'à partir d'une base de données, comparer les salaires des collaborateurs exerçant des fonctions identique. Je dois donc calculer le salaire moyen par fonction (employé, cadre...) puis extraire les matricules pour lesquels le salaire ne rentre pas dans la fourchette (l'utilisateur peut vouloir que les salaires mini et maxi ne s'écarte que de 20% maximum, ou 30%, selon son choix).

J'ai donc commencé mon programme VBA (cf fichier VBA) ainsi qu'une base de données (cf fichier "Base" excel).

Pour l'instant je me concentre uniquement sur les employés et mon programme fonctionne sauf que pour les salaires qui dépasse le mini ou le maxi, à la fin, dans mon "Msgbox" il me sort par exemple: valeur hors fourchette pour les matricules 43000 2700 etc... . Tout mon problème est donc de faire en sorte que lorsqu'il détecte un salaire en dehors de la fourchette, il ne m'affiche pas ce salaire mais plutôt le matricule qui correspond à ce salaire.
A savoir que pour mes tests j'utilise une fourchette de 20%.

Merci de votre aide :D :D

Je pense que ceci répond à ton souhait.

remplacer

Code:

---

CoordonnesCellErreur = CoordonnesCellErreur & ", " & Cell.Value

---

par cela

Code:

---

CoordonnesCellErreur = CoordonnesCellErreur & ", " & Cell.Offset(0, -3).Value

---

bonne journée

Merci beaucoup a_diard pour ta réponse. En effet maintenant ça marche.
Juste une autre petite question, il y a t-il un moyen pour faire en sorte que dans mon MsgBox il ne m'affiche pas : " Valeur hors fourchettes pour les matricules E0102, E0103 ,,,,,,,,,,,,,,,,,,,, " mais plutôt "Valeur hors fourchettes pour les matricules E0102, E0103."

En effet toutes mes autres cellules de E7 à E100 étant pour l'instant vides, il considère qu'elle valent 0 et qu'elle sont donc "hors fourchette". Il y a t-il un moyen de faire en sorte qu'il ne prenne pas en compte ces cellules vides ?

merci d'avance

Bonsoir à tous
Peut erte comme ça :
1/ à ajouter

Code:

---

1 2	Dim DernLigne As Long DernLigne = Sheets("BaseSalaires").Range("B" & Rows.Count).End(xlUp).Row

---

et ça :
2/ à modifier

Code:

---

Set maplage = Range("E3:E" & DernLigne)

---

Merci beaucoup pour vos réponses, tout marche parfaitement.

Bonne journée