Retrouver une cellule dans une liste par un scan douchette

eriiic

XLDnaute Barbatruc

• 15 Octobre 2018

• #2

Bonjour,

si le scan est trouvé, "ok" est mis en D. La couleur est mise par MFC, et le scan effacé.
S'il n'est pas trouvé le scan n'est pas effacé.
eric

 

Pièces jointes

• INVENTAIRE.xlsm

  128.9 KB · Affichages: 80

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 15 Octobre 2018

• #3

Bonjour à tous,
Une autre proposition
Bruno

 

Pièces jointes

• INVENTAIRE (1).xlsm

  123 KB · Affichages: 75

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #4

eriiiic à dit:

Bonjour,

si le scan est trouvé, "ok" est mis en D. La couleur est mise par MFC, et le scan effacé.
S'il n'est pas trouvé le scan n'est pas effacé.
eric

Cliquez pour agrandir...

Merci beaucoup pour votre réponse. J'ai un message d'erreur avec la macro et je ne peux pas l'essayer. J'ai mis le message sur la feuille excel

 

Pièces jointes

• INVENTAIRE.xlsm

  306.1 KB · Affichages: 51

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #5

youky(BJ) à dit:

Bonjour à tous,
Une autre proposition
Bruno

Cliquez pour agrandir...

Merci beaucoup. Le fichier fonctionne parfaitement.
Y a t il un moyen de mettre en vert le jeu validé?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 15 Octobre 2018

• #6

Fait par MFC jusqu'à la ligne 2000
Il suffit de sélectionner la col A et Supp pour effacer et enlever les couleurs.
Bruno

 

Pièces jointes

• INVENTAIRE (1).xlsm

  123.1 KB · Affichages: 79

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #7

youky(BJ) à dit:

Fait par MFC jusqu'à la ligne 2000
Il suffit de sélectionner la col A et Supp pour effacer et enlever les couleurs.
Bruno

Cliquez pour agrandir...

Merci beaucoup. Je vais gagner énormément de temps. Très bonne journée

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 15 Octobre 2018

• #8

J'ai un message d'erreur...

Cliquez pour agrandir...

ajouter en 1ère ligne :

VB:

Dim c As Range

Bizarre que VBE ne me l'ai pas signalé vu que j'ai 'Déclaration des variables obligatoire'...
eric

 

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #9

eriiiic à dit:

ajouter en 1ère ligne :

VB:

Dim c As Range

Bizarre que VBE ne me l'ai pas signalé vu que j'ai 'Déclaration des variables obligatoire'...
eric

Cliquez pour agrandir...

Merci beaucoup. Ça fonctionne parfaitement

 

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #10

Bonsoir,

Tout fonctionne parfaitement. Je viens de l'essayer sur plusieurs jeux. A-t-on la possibilité que le curseur reste dans la case H4 pour le scan ou qu'il y revienne après consultation du jeu ou d'avoir un message pour retour à la case?

Avec mes 1000 jeux quand je suis tout en bas de la liste, il faut que je retourne manuellement à la case pour faire le scan.

Merci

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 15 Octobre 2018

• #11

C'est ce que fait ma proposition, ça me paraissait plus logique que ce que tu demandais.
eric

 

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #12

Je voudrai pouvoir aller au jeu validé pour vérifier que le code correspond au nom du jeu. Comme dans la proposition Youki mais que le curseur reste dans la case h4 pour éviter de jouer entre chaque jeu avec l’ascenseur.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 15 Octobre 2018

• #13

Hello
j'allais en [A1].select
remplacer par
[H4].Select

Bruno

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 15 Octobre 2018

• #14

On peut aussi inscrire à coté du scan pour éviter d'avoir la feuille qui se balade et avoir le résultat toujours au même endroit :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [scan].Address Then
        Set c = Columns(2).Find(Target.Value, , xlValues, xlWhole)
        Application.EnableEvents = False
        If Not c Is Nothing Then
            c.Interior.ColorIndex = 35
            [J4].Offset(, 1) = Target.Value
            [J5].Offset(, 1).Offset(1) = c.Offset(, 1).Value
            c.Offset(, 2) = "ok"
        Else
            [J4:J5] = ""
        End If
        Application.EnableEvents = True
        [scan].Select
    End If
End Sub

eric

 

Vote positif 0 Vote négatif

A

APEED

XLDnaute Nouveau

• 15 Octobre 2018

• #15

Merci pour tout. J'ai tout ce qu'il me faut. C'est absolument parfait.
Un grand bravo à vous

 

Vote positif 0 Vote négatif