XL 2010 Erreur résultat FIND

[herve62]

Bonjour
J'avais trouvé la solution d'affichage info selon valeur cellule via un code
Normalement en "Code" > G8 cela vient d'un autre fichier mais on pour l'exemple on entre un code , et pour G4 on entre direct la valeur
Le Hic c'est lors de l'effacement de G4 G8 j'ai un OK qui vient s'afficher au hasard , je comprends pas ???

 

[Robert]

Bonjour Hervé, bonjour le forum,

Pas clair du tout !...
Tu mets un commentaire en F1 qui dit c'est là qu'on efface et dans le code tu écris G4 :

If Not Application.Intersect(Target, Range("G4")) Is Nothing Then

Tu mélanges les colonnes de recherche selon le code ou le libellé... Je ne comprends pas pourquoi deux colonnes OK et Vérif OK.

Ton fichier modifié en pièce jointe :

 

[herve62]

merci Robert
mais pas encore bon

Tu mets un commentaire en F1 qui dit c'est là qu'on efface et dans le code tu écris G4 :

Relis Bien le com ce que j'ai écrit !!
Les 2 OK n'ont pas le même sens ni la même origine et ici c'est le tableau de Regroupement donc j'ai besoin des 2

Tu mélanges les colonnes de recherche

?? je recherche columns(1) pour les 2
Les 2 entrées à faire sont en G4 et G8
En F1 c'est la aussi le HIC , quand j'efface G8 j'ai un OK qui vie,nt se coller là ?? Idem en D2 si efface G4

 

[TooFatBoy]

Bonjour,

Peut-être un truc comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim c As Range, Code As Range

    If Target.Address = [scan].Address And Target.Value <> "" Then
        Set c = Columns(1).Find(Target.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Application.EnableEvents = False
            c.Offset(, 2) = "OK"
            Application.EnableEvents = True
        End If
    End If

    If Not Application.Intersect(Target, Range("G4")) Is Nothing And Range("G4").Value <> "" Then
        Set Code = Columns(1).Find(Target.Value, , xlValues, xlWhole)
        If Not Code Is Nothing Then
            Application.EnableEvents = False
            Code.Offset(, 3) = "OK"
            Application.EnableEvents = True
        End If
    End If

End Sub

 

[herve62]

Oui , j'ai laissé tombé , j'ai la solution c'est exactement ce que j'ai fait !!!
regarde c'est dans l'autre sujet en cours j'ai même ajouté le test si <> 0 sinon même vide ça met OK
Mais apparemment , personne ici n'a fait autre proposition ?????

 

[TooFatBoy]

Oui , j'ai laissé tombé , j'ai la solution c'est exactement ce que j'ai fait !!!
regarde c'est dans l'autre sujet en cours j'ai même ajouté le test si <> 0 sinon même vide ça met OK

Ah oui. Je viens de regarder, et ça ressemble effectivement à ma proposition, mais sans les EnableEvents.


Par contre, le nom "scan" est la cellule H4 et je trouve ça un pneu étrange... mais c'est peut-être normal.

 

[herve62]

OUI , c'est exprès c'était à l'origine et pour ne pas casser tout le reste de l'appli derrière pas complexe mais lourd
Bonne nuit