VBA , vérifier la présence d'une valeur dans une plage de cellules

0

Bonjour chers tous, depuis 2 jours je bute sur un code vba qui devrait me permettre de vérifier la présence d’une valeur dans une plage de cellule. SI cette valeur existe ce code doit m'afficher un message de confirmation et aussi la cellule dans laquelle elle se trouve (voir fichier excel en PJ https://www.cjoint.com/c/IIymZadXgO6

la valeur cherchée est une combinaison entre : un matricule, un mois et une année

Je me sers d'un formulaire pour préciser chacune de ces 3 valeurs et le bouton "RESULTAT" est censé me dire si cette combinaison existe dans ma plage de cellule du fichier excel (voir fichier excel en PJ). https://www.cjoint.com/c/IIymZadXgO6

Vous pouvez voir le code derrière le bouton "RESULTAT" mais je vous le copie ici

Private Sub CommandButton3_Click()

Dim cellulecherchee As Range, ligne As Integer, col As Integer, valeur_cherchee As String

valeur_cherchee = ComboBox_matricule & ComboBox_mois_paie & ComboBox_annee_paie '& ComboBox_annee_paie 'enregistrement dont on veut vérifier la présence dans le livre

cellulecherchee = Feuil7.Range("E5:E50").Find(what:=valeur_cherchee, lookat:=xlWhole)

If cellulecherchee Is Nothing Then

MsgBox ("pas trouvé")

Else

ligne = cellulecherchee.Row

col = cellulecherchee.Column

MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col & " , cellulecherchee.Address")

End If

End Sub



matsniper Posté le 24 septembre, 14:52
par matsniper
Répondre
0
0

Rebonjour famille, 

mon problème a été résolu. C’était au  niveau de "cellulecherchee" ; il fallait plutôt écrire

cellulecherchee = Feuil7.Range("E5:E50").Find(what:=valeur_cherchee, LookIn:=xlValues, lookat:=xlWhole)

et non cellulecherchee = Feuil7.Range("E5:E50").Find(what:=valeur_cherchee, lookat:=xlWhole)

c'est  LookIn:=xlValues qui faisait défaut

GRAND MERCI A UN AUTRE CHAMPION D'EXCEL

matsniper Posté le 25 septembre, 15:53
par matsniper

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :