Discussion :

[yannlvr]

Bonjour à tous,

Je suis en train de programmer une base de données sur EXCEL mais ne maitrise pas le VBA. J'ai une premiere page ou je rentre des codes barres dans une colonne, suivi par 5 criteres (colonne 2: noms colonne 3: famille colonne 4: sous famille ...) c'est ma base de données.
Sur ma deuxieme page, je souhaite saisir dans une case de la colonne 3 un code barre ( existant sur la premiere feuille) et j'aimerais voir apparaitre automatiquement les 5 criteres dans les cases suivantes, critères qu'on irait chercher dans la page 1 . (une histoire de copier coller de cellules entre deux feuilles; il me faut creer une boucle sur les valeurs de ma premiere colonne page 1, et chercher dans cette liste la valeur que j'ai saisie page 2 colonne 3 ligne X puis executer le copier coller)

Est ce possible?
connaissez vous les lignes de code qui m'ammeneraient à ce résultat?

En vous remerciant tous pour votre aide,

Cordialement Yann

[Pierre Fauconnier]

Bonjour et bienvenue,

Il n'est pas nécessaire d'utiliser les boucles, et bien plus performant d'utiliser les outils de recherche à ta disposition.

Trois solutions parmi d'autres:

1) Tu passes la formule RechercheV en VBA dans les cellules adjacentes de la cellule qui contient la valeur de recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  ActiveCell(1, 2).Formula = "=vlookup(" & ActiveCell.Address(0, 0) & ",donnees,2,0)"
  ActiveCell(1, 3).Formula = "=vlookup(" & ActiveCell.Address(0, 0) & ",donnees,3,0)"
  ...

Avantage: Si tu changes la valeur en Excel, comme tu as une formule, les valeurs s'adaptent.

2) Tu évalues la fonction RECHERCHEV. ici, j'ai utilisé une plage nommée Donnees représentant ta "table de données"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Recherche1()
  ActiveCell(1, 2).Value = Evaluate("vlookup(" & ActiveCell.Address & ",Donnees,2,0)")
  ActiveCell(1, 3).Value = Evaluate("vlookup(" & ActiveCell.Address & ",Donnees,3,0)")
  ...
End Sub

Avantage: Pas d'arrêt sur une donnée non trouvée

3) Tu peux aussi effectuer une recherche dans la première colonne de ta base, puis récupérer les valeurs des cellules à droite. J'ai considéré que tes données démarraient en colonne A d'une feuille nommée Données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Recherche()
  Dim CelluleCible As Range, CelluleSource As Range
 
  Set CelluleCible = ActiveCell
 
  Set CelluleSource = Worksheets("données").Range("a:a").Find(what:=CelluleCible.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not CelluleSource Is Nothing Then
    CelluleCible(1, 2) = CelluleSource(1, 2)
    CelluleCible(1, 3) = CelluleSource(1, 3)
    ...
  End If
End Sub

Avantage: Tu peux intercepter dans le Else le fait que la valeur n'est pas trouvée

Code lancé en fonction de la cellule active, à adapter à ton cas.

[yannlvr]

Ohhh Mille mercis!!

Je vais tenter d'appliquer tout cela à ma programmation et vous tiens au courant des résultats!

A charge de revanche (mais certainement pas sur le meme forum "macro VBA" ;-)

Cordialement Yann . .