Microsoft 365 recherche valeur dans colonne si vba

[gothc]

Bonjour le forum
sur la feuil 1 dans la colonne E (Désignation) je recherche à afficher la valeur de la feuil 2 colonne B (Désignation) uniquement quand j'ai le code scan de la feuil 1 en D (Result Outil qui manques)
Je cherche une méthode VBA
Merci de votre aide
bonne soirée

 

[Jacky67]

Bonjour le forum
sur la feuil 1 dans la colonne E (Désignation) je recherche à afficher la valeur de la feuil 2 colonne B (Désignation) uniquement quand j'ai le code scan de la feuil 1 en D (Result Outil qui manques)
Je cherche une méthode VBA
Merci de votre aide
bonne soirée

Bonjour,
Une piste en PJ avec ce code dans le module de la feuille "Feuil1"

• 
  

• Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  If Intersect(Target, [d:d]) Is Nothing Or Target.Row = 1 Then Exit Sub
  Application.EnableEvents = False
  For Each C In Target
  If IsNumeric(Application.Match(C, [Feuil2!A:A], 0)) Then
  C.Offset(, 1) = Feuil2.Cells(Application.Match(C, [Feuil2!A:A], 0), 2)
  Else
  C.Offset(, 1) = ""
  End If
  Next
  Application.EnableEvents = True
  End Sub

 

[gothc]

Bonjour Jacky merci pour votre réponse je regarde comment je peux faire pour le mettre dans un bouton pour l'exécuter comme pour une Macro
Merci

​

 

[gothc]

oupss après contrôle le code ne fonctionne pas Jacky
Merci bonne journée

 

[Jacky67]

oupss après contrôle le code ne fonctionne pas Jacky
Merci bonne journée

Re..
S'il faut aussi traiter les outils manquants alors la v2

 

[gothc]

Merci pour votre réponse qui correspond à ma recherche tu es très fort Jacky
bonne fête de fin d'année

 

[gothc]

Je regarde maintenant comment afficher le résultat dans un userform
encore merci Jacky je laisse mon vrai fichier qui va permettre de le modifier et simplifier le fichier (plus facilement pour comprendre le fonctionnement) j'ai une base de donnée avec des articles
pour faire l'inventaire je scan le code barres de l'outil pour valider la présence de l'outil je recherche à afficher le résultat dans un userform puis demander à l'opérateur de contrôler la liste des outils qui manquent
Merci

 

[gothc]

J'avance dans le projet quand je clique sur contrôlé j'ai maintenant le résultat dans une listbox
je laisse le fichier disponible pour le faire évoluer
Merci

 

[gothc]

Re bonjour dans l'affichage du résultat dans mon userform1 je pense quil serais mieux d'avoir le numéro de l'outil feuil1 en G quand je rajoute cette ligne j'ai le résultat avec un décalage

Merci de votre aide

 

[gothc]

Bonjour je cherche une petite modification du code pour avoir en plus le numero en feuil1 G pour le résultat de la recherche en E feuil3

quand je rajoute cette ligne j'ai un decalage je sais pas pourquoi Feuil3.Cells(Lig, "f") = C.Offset(, 6)

Sub traiter()
    Dim Lig, C As Range
    Lig = 2
    Feuil3.Range("d2:e" & Rows.Count).ClearContents
    With Feuil1
    For Each C In .Range("a2:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        If IsError(Application.Match(C, [Feuil3!A:A], 0)) Then
            Feuil3.Cells(Lig, "d") = C
            Feuil3.Cells(Lig, "e") = C.Offset(, 1)
            Lig = Lig + 1
        End If
    Next
    End With
End Sub

 

[gothc]

Bon j'ai trouvé une solution avec 2 macros pour faire le boulot c'est pas la solution la plus simple mais elle fonctionne

Sub traiter()
    Dim Lig, C As Range
    Lig = 2
    Feuil3.Range("d2:e" & Rows.Count).ClearContents
    With Feuil1
    For Each C In .Range("a2:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        If IsError(Application.Match(C, [Feuil3!A:A], 0)) Then
            Feuil3.Cells(Lig, "d") = C
            Feuil3.Cells(Lig, "e") = C.Offset(, 1)
            Lig = Lig + 1
        End If
    Next
    End With
End Sub

Sub traiter1()
    Dim Lig, C As Range
    Lig = 2
    Feuil3.Range("f2:f" & Rows.Count).ClearContents
    With Feuil1
    For Each C In .Range("a2:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        If IsError(Application.Match(C, [Feuil3!A:A], 0)) Then
            Feuil3.Cells(Lig, "d") = C
            Feuil3.Cells(Lig, "f") = C.Offset(, 6)
            Lig = Lig + 1
        End If
    Next
    End With
End Sub

 

[gothc]

Je laisse le fichier avec la dernière version si une personne veut simplifier ou amélioré le fichier
merci

 

[Jacky67]

Je laisse le fichier avec la dernière version si une personne veut simplifier ou amélioré le fichier
merci

Re..
Ma version d'Excel ne permet pas de travailler sur ton classeur, désolé.
Ouvre un nouveau poste avec ton classeur en PJ pour d'autres questions.
Néanmoins, ce code met bien le n° de la colonne G(feuil1) en colonne F (feuille3) sans décalage.

Sub traiter()
    Dim Lig, C As Range
    Lig = 2
    Feuil3.Range("d2:f" & Rows.Count).ClearContents
    With Feuil1
        For Each C In .Range("a2:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            If IsError(Application.Match(C, [Feuil3!A:A], 0)) Then
                Feuil3.Cells(Lig, "d") = C
                Feuil3.Cells(Lig, "e") = C.Offset(, 1)
                Feuil3.Cells(Lig, "f") = C.Offset(, 6)
                Lig = Lig + 1
            End If
        Next
    End With
End Sub

Bon courage et bonne année 2021

 

[gothc]

Merci bonne année 2021
encore Merci pour ton aide