XL 2010 Erreur résultat FIND

herve62

XLDnaute Barbatruc
Supporter XLD
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 ???
 

Pièces jointes

  • Scan_info.xlsm
    18.4 KB · Affichages: 6
Dernière édition:

Robert

XLDnaute Barbatruc
Repose en paix
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 :

VB:
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 :
 

Pièces jointes

  • Hervé_ED_v01.xlsm
    18.7 KB · Affichages: 2

herve62

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
Bonjour,

Peut-être un truc comme ça :
VB:
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
 

TooFatBoy

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
312 837
Messages
2 092 658
Membres
105 482
dernier inscrit
Eric.FKF