Rechercher, Find

[deni29]

Bonjour le forum,

Dans ma macro, je rencontre un probléme de recherche (Find).
Voir le fichier joint, cela est plus facile à expliquer.

Merçi d'avance

Deni29

 

[Hervé]

Re : Rechercher, Find

bonjour

c'est normal

tu places ton exit sub apres la recherche sur la feuille 2004, le code s'arrete donc ici, une version corrigé en evitant les goto :

Private Sub Valider_Click()
Dim Ref As String
Dim feuille
Dim c As Range

Ref = TextBox1.Value

For Each feuille In Array("2004", "2005", "2006")
    With Sheets(feuille)
        Set c = .Columns(2).Find(Ref)
        If Not c Is Nothing Then
            .Activate
            c.Activate
            MsgBox "La référence " & Ref & " que vous voulez saisir, est déjà attribuée en " & feuille & vbCrLf & vbCrLf _
            & "Saisir une autre référence !", vbOKCancel, "Saisie"
            Exit Sub
        End If
    End With
Next feuille

Sheets("New").Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
Unload Me
        
End Sub

salut

 

[deni29]

Re : Rechercher, Find

Hervé,

Merci beaucoup pour ta solution, beaucoup plus "propre" et rapide

Merci encore

Deni29