fichier salaries - Afficher message d'info

[ianis]

Bonjour à tous,

J'aurai besoin SVP de vos conseils.
Je souhaiterais faire afficher un message d'information dans le cas où la personne saisie un nom qui ne figure pas dans le fichier. Exemple: Si la personne saisi le nom de Z " cette personne ne fait pas partie de notre société"
Merci de votre aide.

Cordialement.

Ianis

 

[skoobi]

Re : fichier salaries - Afficher message d'info

Bonsoir,

modifie la macro comme ceci:

Sub Macro1()
Noms = InputBox("Quel est le salarié recherché ?", "DRH DEPARTEMENT")
Set sal = Range("SALARIES!A6:B16").Find(Noms, LookIn:=xlValues, lookat:=xlWhole)
If Not sal Is Nothing Then
    MsgBox " Le salaire de M. " & UCase(Noms) & " est de " & sal & " Euros", vbOKOnly, "DIRECTION DES RESSOURCES HUMAINES"
Else: MsgBox "cette personne ne fait pas partie de notre société"
End If

End Sub

 

[Cousinhub]

Re : fichier salaries - Afficher message d'info

Bonsoir,
remplace ton code par ceci :

Sub Macro1()
Noms = InputBox("Quel est le salarié recherché ?", "DRH DEPARTEMENT")
If Noms <> "" And Evaluate("COUNTIF(A6:B16," & """" & Noms & """)") > 0 Then
sal = WorksheetFunction.VLookup(Noms, Range("SALARIES!A6:B16"), 2, False)
MsgBox " Le salaire de M. " & UCase(Noms) & " est de " & sal & " Euros", vbOKOnly, "DIRECTION DES RESSOURCES HUMAINES"
End If

End Sub

 

[ianis]

Re : fichier salaries - Afficher message d'info

Bonsoir,

Merci beaucoup !

Ianis

 

[ianis]

Re : fichier salaries - Afficher message d'info

Bonsoir,

Merci beaucoup !

 

[kjin]

Re : fichier salaries - Afficher message d'info

bonsoir le fil,
Une petite rectif de la macro de skoobi je pense
Sub Macro1()
Noms = InputBox("Quel est le salarié recherché ?", "DRH DEPARTEMENT")
Set sal = Range("SALARIES!A6:A16").Find(Noms, LookIn:=xlValues,
lookat:=xlWhole)
If Not sal Is Nothing Then
MsgBox " Le salaire de M. " & UCase(Noms) & " est de " & sal.Offset(0, 1).Value & " Euros", vbOKOnly, "DIRECTION DES RESSOURCES HUMAINES"
Else: MsgBox "cette personne ne fait pas partie de notre société"
End If
End Sub

A+
kjin

 

[jmd2]

Re : fichier salaries - Afficher message d'info

hello

pense aussi aux possibiltés d'Excel sans macro, notamment avec une saisie du nom par liste déroulante basée sur la liste des salariés (et en plus l'utilisateur gagne du temps)

il vaut mieux automatiser la saisie que gérer des erreurs.
ça énerve l'utilisateur.

bon travail