Probleme de recherche

Bonsoir,

Je bugg comme mon petit programme. Je cherche l'adresse d'un devis dans un tableau. En colonne A les devis. Mon programme me répond pas trouvé et il semble que c'est du a une erreur 424. Voici la procédure. Si vous pouvez combler ma lacune merci.

Private Sub RechDevis()
M_Devis = "DEV-0134-22"
'recherche le devis à modifier
Sheets("Devis").Activate
MsgBox ActiveSheet.Name
Range("A1").Select
Dim Trouve As Range
Dim PlagedeRecherche As Range
Dim Valeur_Cherchee As String
Dim AdresseTrouvee As String
Valeur_Cherchee = M_Devis
Set PlagedeRecherche = ActiveSheet.colomns(1)

MsgBox PlagedeRecherche

Set Trouve = PlagedeRecherche.Cells.Find(what:=Valeur_Cherchee, lookat:=xlWhole)

If Trouve Is Nothing Then
    AdresseTrouvee = Valeur_Cherchee & "n'est pas présent dans " & PlagedeRecherche.Address
    Anc = 0
Else
    AdresseTrouvee = Trouve.Address
    Anc = 1
End If

Set PladedeRecherche = Nothing
Set Trouve = Nothing

'Pas de devis trouvé
If Anc = 0 Then
            MsgBox "Erreur dans le devis à modifier, Veuillez recommencer", vbOKOnly + vbInformation, "CONFIRMATION"
End If

'Devis trouvé
If Anc = 1 Then
MsgBox "Devis n° & M_Devis"

ligne = Mid(AdresseTrouvee, 4, 3)
ActiveCell.Offset(ligne - 1, 10).Activate
End If
End Sub

Hello,

le find comme ceci ça donne quoi ?

Set Trouve = PlagedeRecherche.Cells.Find(what:=Valeur_Cherchee, , LookIn:=xlValues, lookat:=xlWhole)

il bugg plus haut sur Set PlageDeRecherche

J'ai corrigé. ça marche parfaitement.

Merci beaucoup, je vais pouvoir poursuivre.

J'ai corrigé. ça marche parfaitement.

Merci beaucoup, je vais pouvoir poursuivre.