Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 recherche valeur dans colonne si vba

  • Initiateur de la discussion Initiateur de la discussion gothc
  • Date de début Date de début

gothc

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur1.xlsx
    15.1 KB · Affichages: 16
Trier par date Trier par votes

Jacky67

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


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

Pièces jointes

  • outillage.xlsm
    20.7 KB · Affichages: 11
Dernière édition:
Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel
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
 

Pièces jointes

  • outil.xlsm
    56.5 KB · Affichages: 3
Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel
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
 

Pièces jointes

  • outil.xlsm
    64.4 KB · Affichages: 2
Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel
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
 
Dernière édition:
Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel
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)


VB: 
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
 
Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel
Bon j'ai trouvé une solution avec 2 macros pour faire le boulot c'est pas la solution la plus simple mais elle fonctionne
VB: 
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
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
gothc à dit:
Je laisse le fichier avec la dernière version si une personne veut simplifier ou amélioré le fichier
merci
Cliquez pour agrandir...
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.
VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Résolu(e)
XL 2019 Copie Valeur Feuille VBA
Réponses
9
Affichages
478
Stepha
S
S
  • Résolu(e)
Microsoft 365 Conserver lien hypertexte avec une fonction RechercheV
2
Réponses
19
Affichages
912
job75
D
  • Question Question
Microsoft 365 Calcul à partir d'une table
Réponses
2
Affichages
270
DR85
D
K
  • Question Question
Autres 'Résolu'Effectuer en VBA une recherche dans une colonne
Réponses
3
Affichages
470
klorane
K
S
  • Question Question
Microsoft 365 Index Match ligne et Mach colonne
Réponses
11
Affichages
406
Souimanga
S
S
  • Question Question
XL 2021 Recherche de communes dans un rayon de x km
Réponses
14
Affichages
699
mapomme
  • Question Question
XL 2016 Recherche/Remplace en VBA
Réponses
7
Affichages
536
crackerwood
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
435
Webperegrino
W
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
403
job75
V
  • Question Question
XL 2021 ListeBox avec plusieurs colonnes
Réponses
8
Affichages
343
vmax67
V
B
  • Question Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
487
bedley
B
  • Question Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
881
Dudu2
T
  • Résolu(e)
XL 2013 Affichage Dynamique des Tolérances via Listes Déroulantes
Réponses
5
Affichages
345
djidji59430
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
818
olivier1984
O
M
  • Résolu(e)
Microsoft 365 Trouver la dernière valeur non vide selon 2 critères
Réponses
12
Affichages
429
job75
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
20
Affichages
1 K
LuanaDDC
L
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
168
crocrocro
C
F
  • Question Question
XL 2016 Faire une somme en fonction de 2 critères + 1 critère si contient un texte
Réponses
2
Affichages
491
flo189
F
O
  • Résolu(e)
XL 2013 Formule ou Codage VBA qui met à jour un tableau en fonction de quantité
Réponses
5
Affichages
244
onyirimba
O
E
  • Résolu(e)
Microsoft 365 formule index + equiv appliqué a un taux de change
Réponses
10
Affichages
188
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…