EXCEL FONCTION RECHERCHE AVEC RENVOI A CETTE LIGNE

Bonjour,

Avec un double clic n'importe où et cette macro dans ta feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep As Variant, cel As Range
    Cancel = True
    rep = Application.InputBox("Mot recherché ?", "Recherche")
    If Not rep = "Faux" Then
        Set cel = Cells.Find(rep, , , xlPart)
        If cel Is Nothing Then MsgBox "Mot absent" Else cel.Select
    End If
End Sub

Gbinforme

Peut tu me rajouter un code .
Quand le mots chercher va a la ligne il se mais en subrillance dune couleurs rouge ou autre stp

Bonjour,

cela me donne une ambiguïté avec le code déjà sur ma page
Dans ce cas il vaut mieux utiliser une procédure dans un module que tu appelles par un raccourci comme ctrl+p par exemple

il se mais en subrillance dune couleurs rouge ou autre stp
Là ce n'est pas une bonne pioche car si je te mets du rouge, il va rester ;-)
Je te fais clignoter la cellule, cela devrait être plus judicieux.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub position()
Dim rep As Variant, cel As Range, cpt As Integer, anc As Variant
    rep = Application.InputBox("Mot recherché ?", "Recherche")
    If Not rep = "Faux" Then
        Set cel = Cells.Find(rep, , , xlPart)
        If cel Is Nothing Then
            MsgBox "Mot absent"
        Else
            cel.Activate
            With cel.Interior
                anc = .ColorIndex
                For cpt = 1 To 30
                    .ColorIndex = IIf(cpt Mod 2 = 0, anc, 3)
                    Sleep 150
                Next cpt
            End With
        End If
    End If
End Sub

bonjour

le code marche pas

Merci pour tous genial.

dernier question

j'ai une ambiguite avec ca

code pour verrouille certaine cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1,A2,B2,D2,G2,H2,I2,J2,K2,L2,M2,N2,C1"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If

End Sub

code afficher une croix

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("J3:M70")) Is Nothing Then 'modifie ton tableau
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub

comment je peux faire pour enlever cette ambiguite au niveau de cette ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)