Application.CommandBars.FindControl(ID:=1849).Execute

Question

Bonjour,

J'utilise <<Application.CommandBars.FindControl(ID:=1849).Execute>> pour effectuer une recherche.

J'aimerais qu'à chacune des ouvertures de la boîte de dialogue que la demande de la valeur à rechercher soit vide et que la recherche s'effectue dans la feuille, par colonne et Regarder dans Valeurs.

Merci d'avance

Marc

Answer 1

Bonjour,

Tu pourrais utiliser ceci :

Tu dois ajuster ce paramètre :  LookAt:=xlWhole ou xlPart

'-----------------------------------------

Sub test()

On Error Resume Next

Application.FindFormat.Clear

With ActiveSheet

    With .UsedRange

        .Find "", LookIn:=xlValues, LookAt:=xlWhole, searchOrder:=xlByColumns

    End With

End With

On Error GoTo 0

Application.CommandBars.FindControl(ID:=1849).Execute

End Sub

'-----------------------------------------

MichD

Answer 2

Bonjour,

Application.Dialogs(xlDialogFormulaFind).Show "", 2, , 2

La recherche se fait d'office sur la feuille.

Cordialement.

Daniel

Answer 3

bonjour,

Toujours dans le mille Mich

Merci

Marc