Recherche VBA

bonjour

explication

j'ai une liste d'article avec référence qui me sert a réaliser des ouvrage, exemple "ref: 2,6,21,7=ouvrage N°1

je voudrais savoir si il est possible de recherche des référence données pour les inséré dans une autre feuille

du genre"recherche réference 2,6,21,7feuille 1---copie feuille 2 en vba

merci

Bonjour

Une base

Sub test()
Dim Cel As Range
Dim Ref as Integer

  Ref = 2
  Set Cel = Sheets("Feuil1").Columns("A").Find(what:=ref, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Sheets("Feuil2").Range("C20") = Cel.Offset(0, 5)
  End If

End Sub

Risque de ne pas fonctionner suivant le contexte de ton fichier

merci

quel que explication

Sub test()

Dim Cel As Range

Dim Ref as Integer

Ref = 2 'est ce la référence a cherche

Set Cel = Sheets("Feuil1").Columns("A").Find(what:=ref, LookIn:=xlValues, lookat:=xlWhole) ' feuil1= feuille de recherche et columns a est la colonne, et ref c'est quqoi?

If Not Cel Is Nothing Then

Sheets("Feuil2").Range("C20") = Cel.Offset(0, 5) ' feuill de destination avec la cellule

End If

End Sub

merci pour les info

Bonjour

pascal.59 a écrit :

Ref = 2 'est ce la référence a cherche

Oui

pascal.59 a écrit :

et ref c'est quqoi?

c'est toujours la référence à chercher

merci

Set Cel = Sheets("Feuil1").Columns("A").Find(what:=ref, LookIn:=xlValues, lookat:=xlWhole) ' feuil1= feuille de recherche et columns

je laisse Ref ou je remplace par le nombre a recherche

merci

Bonjour

Tu fais comme tu veux

Soit tu modifies Ref en y mettant le nombre à chercher

Ref = 215

Sois tu remplaces Ref par le nombre à chercher

Set Cel = Sheets("Feuil1").Columns("A").Find(what:=215, LookIn:=xlValues, lookat:=xlWhole)

merci

explication très clair

si maintenant je souhaite rechercher d'autre "Ref" pour les copie en dessous

quel procédure, j'ajoute derrière le 4 ou bien il faut créer une nouvelle condition

merci

Bonjour à toi aussi

Un fichier dans lequel tu indiques ce que tu veux obtenir serait le bienvenu

re

voici le fichier

Bonjour

Voici une version