(Re)Bonjour,
Désolé mais claire comme du boudin ma question précedente. Plus simple :
J'ai 2 feuilles "BDD" et "Param"
Sur BDD SI j'ai 5 critères de présents dans col G, H, I, J et K je dois lire
un tableau sur param e1:k46 en fonction des critères en G et en K et écrire
l'info trouvée du tableau sur BDD en col W.
Cordialement
Merci
Michel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyjac
Bonjour Michel69,
J'utilise la méthode suivante : 1. Sélectionner Param, Charger le paramètre en mémoire 2. Sélectionner BDD ; pour chaque ligne ; vérfier les critères ; si OK écrire
En termes de VBA : Dim T1_Val(46,11) Sheets("Param").select For L = 1 to 47 For C = 1 to 11 T1_Val(L, C)Îlls(L,C) next Next Sheets(("BDD").select For L = Ligne_début to LIgne_fin For K = 1 to 46 if Cells(L,7) = T1_val(K,7) then if Cells(L,11) = T1_val(K,11) then écrire dans la colonne K ici exit for endif endif next Next
-- Papyjac
"Michel69" a écrit :
(Re)Bonjour, Désolé mais claire comme du boudin ma question précedente. Plus simple : J'ai 2 feuilles "BDD" et "Param" Sur BDD SI j'ai 5 critères de présents dans col G, H, I, J et K je dois lire un tableau sur param e1:k46 en fonction des critères en G et en K et écrire l'info trouvée du tableau sur BDD en col W. Cordialement Merci Michel
Bonjour Michel69,
J'utilise la méthode suivante :
1. Sélectionner Param, Charger le paramètre en mémoire
2. Sélectionner BDD ; pour chaque ligne ; vérfier les critères ; si OK écrire
En termes de VBA :
Dim T1_Val(46,11)
Sheets("Param").select
For L = 1 to 47
For C = 1 to 11
T1_Val(L, C)Îlls(L,C)
next
Next
Sheets(("BDD").select
For L = Ligne_début to LIgne_fin
For K = 1 to 46
if Cells(L,7) = T1_val(K,7) then
if Cells(L,11) = T1_val(K,11) then
écrire dans la colonne K ici
exit for
endif
endif
next
Next
--
Papyjac
"Michel69" a écrit :
(Re)Bonjour,
Désolé mais claire comme du boudin ma question précedente. Plus simple :
J'ai 2 feuilles "BDD" et "Param"
Sur BDD SI j'ai 5 critères de présents dans col G, H, I, J et K je dois lire
un tableau sur param e1:k46 en fonction des critères en G et en K et écrire
l'info trouvée du tableau sur BDD en col W.
Cordialement
Merci
Michel
J'utilise la méthode suivante : 1. Sélectionner Param, Charger le paramètre en mémoire 2. Sélectionner BDD ; pour chaque ligne ; vérfier les critères ; si OK écrire
En termes de VBA : Dim T1_Val(46,11) Sheets("Param").select For L = 1 to 47 For C = 1 to 11 T1_Val(L, C)Îlls(L,C) next Next Sheets(("BDD").select For L = Ligne_début to LIgne_fin For K = 1 to 46 if Cells(L,7) = T1_val(K,7) then if Cells(L,11) = T1_val(K,11) then écrire dans la colonne K ici exit for endif endif next Next
-- Papyjac
"Michel69" a écrit :
(Re)Bonjour, Désolé mais claire comme du boudin ma question précedente. Plus simple : J'ai 2 feuilles "BDD" et "Param" Sur BDD SI j'ai 5 critères de présents dans col G, H, I, J et K je dois lire un tableau sur param e1:k46 en fonction des critères en G et en K et écrire l'info trouvée du tableau sur BDD en col W. Cordialement Merci Michel