Rapport de message :*
 

Re: Aide sur code

Titre du sujet : Re: Aide sur code
par Eric le 12/05/2009 00:01:37

Bonsoir à tous
Bonsoir Kelly

Tu peux ajouter ceci :
   With Worksheets("Janvier").Range(maligne)   'modifier Janvier, maligne = Target(1).Row & ":" & Target(1).Row
    Set d = .Find(a, LookIn:=xlValues, Lookat:=xlPart)   'a = variable recherchéeTarget(1).Value
        If Not d Is Nothing Then
            KO = True
        End If
    End With

Eric