Erreur d execution '424

bonjour

je n'arrive pas à déboguer ce programme. Pouvez-vous voir ou se trouve l'erreur.

Private Sub UserForm_Initialize()

Dim valeurcherchee As Range

End Sub

Function recherchev(valeurcherchee As Variant, masource As Range, numerocolon As Integer) As Variant

'declaration de variable

Dim nblignes As Integer

Dim i As Integer

nblignes = 2500 ' on compte le nbr de ligne dans ma source de donnée

For i = 2 To nblignes

If masource(i, 4).Value = valeurcherchee.Value Then

recherchev = masource(i, numerocolon).Value ' affiche le résultat

GoTo Portedesortie 'arret de la boucle for

End If

Next i

Portedesortie:

End Function

Private Sub CommandButton1_Click()

valeurcherchee = TextBox1.Value

recherchev valeurcherchee, Sheets("Etude en cours").Range("A:O"), 4

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton2_Click()

Unload Me 'permet de fermer le formulaire

End Sub

Merci pour vos réponse.

Bonjour,

le nom de ta feuille 1 est Etude en cours et nom Feuil1

à voir si cela est ce dont tu recherches ci-joint,

crdlt,

André

Merci c'est parfaitement ce que je voulais,

cependant je souhaiterais quand je trouve que l'élément chercher est bien dans le fichier je veux récuperer le contenu de la 15 eme colonne.

merci pour votre réponse

Bonjour

une petit modife de la macro de Andre que je salue

pour une recherche dans la colonne D

a toi de voir

A+

Maurice

Private Sub CommandButton1_Click()
' bouton recherche
Dim Lig&
Dim Sel As Range
    Set Sel = Feuil1.Columns("D").Find(Me.TextBox1.Value, , xlValues, xlWhole)
    If Sel Is Nothing Then
        MsgBox "Recherche absente"
    Else
        Lig = Feuil1.Columns("D").Find(TextBox1.Value, , xlValues, xlWhole).Row
        MsgBox Feuil1.Cells(Lig, 15).Value
    End If
End Sub

Bonjour,

je vous remercie beaucoup.

Mon problème est résolu.

Maintenant je souhaiterais mettre le macro sur un fichier excel et faire la recherche sur un autre fichier sans l'ouvrir.

J'ai essayé ce code mais j'ai des erreurs.

Option Explicit

Private Sub CommandButton1_Click()

' bouton recherche

Dim lig&

Dim sel As Range

Dim sel1 As Range

Dim sel2 As Range

Dim fin As Long

Dim appXl As Excel.Application

Set appXl = CreateObject("Excel.Application")

With appXl

.Workbooks.Open ("D:\Users\Mosow\Desktop\SUIVI CAFF\suiviCAF2018.xlsm")

.Visible = False

End With

fin = Worksheets.Range("Etude en cours").UsedRange.Rows.Count

With Worksheets("Etude en cours").Range("D" & fin)

Set sel = .Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)

'Set sel1 = Sheets("Etudes finies").Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)

'Set sel2 = Sheets("Etudes archivees").Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)

If sel Is Nothing Then

MsgBox "Ce dossier n'est pas en étude ce jour pour Scopelec"

Else

lig = Feuil1.Columns("D").Find(TextBox1.Value, , xlValues, xlWhole).Row

MsgBox "COMMENTAIRE CAFF:" & Feuil1.Cells(lig, 15).Value

End If

End With

Set sel = Nothing

appXl.Workbooks("suiviCAF2018.xlsm").Close

Set appXl = Nothing

End Sub

Private Sub CommandButton2_Click()

Unload Me 'permet de fermer le formulaire

End Sub