Programmation macro VBA excel
Bonjour
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
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
2 réponses
-
je pense que tu dois faire une bloucle
if Sheet1.rang("a1")=sheet2.rang("A1") then
..... -
Bonsoir
Petit exemple sur ma page 1 colonne 1 je mets des valeurs exemple 1 2 3
en colonne 2 A B C
Sur la page 2 si je tape 1 ça écrit A dans la cellule à coté
Private Sub Worksheet_Change(ByVal Target As Range)
XX = 1
' Boucle qui balaie la colonne 1 à partir de 1 et qui s'arrête dés que je trouve la ' première cellule vide
While Sheets(1).Cells(XX, 1) <> ""
If Sheets(1).Cells(XX, 1) = Target.Value Then
Cells(Target.Row, Target.Column + 1) = Sheets(1).Cells(XX, 2)
End If
XX = XX + 1
Wend
End Sub
Bonne programmation
