Bonjour ,

Je vous contact suite à un problèmes que je rencontre dans mon code je veut grâce à cette ligne là assigner une plage de recherche qui me permet ensuite de trouver une valeur et lorsque cette valeur est trouver me donner le numéro de ligne :

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseOrTrouvee As String, AdresseDestTrouvee As String
 
    Valeur_Cherchee = Box_Origine.Value 'on cherche la valeur dans Box_Origine
 
    Set PlageDeRecherche = Sheets("Site").Columns(2) ' On définie la plage de recherche
 
    Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole)   ' On recherche Valeur_Cherchee dans la plage de recherche
 
    If Trouve Is Nothing Then  'Si il ne trouve rien
 
        AdresseOrTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
 
    Else
 
        AdresseOrTrouvee = Trouve.Row
 
    End If
Je précise que ce code est fonctionnel normalement , mais lorsque j'ai changer le tableau où je cherche mes valeurs pour l'adapter à un tableau de base de données j'ai un soucis au niveau de la PlageDeRecherche qui ne veut pas se mettre correctement x: , Voici le tableau :