Discussion :

[gilou41]

Bonjour à tous,
en espérant que personne n'ait attrapé de coup de soleil ces derniers temps, je me permets de vous appeler de nouveau à l'aide.
J'ai un tableau dans lequel j'ai besoin de récuperer un champ complet pour le coller dans une autre feuille.
de A1 à A10 j'ai une valeur X
de A11 à A50 une valeur Y
de A51 à A70 une valeur Z
ect...
Nota: le nombre de valeur n'est pas figé
Dans les colonnes B,C,D... j'ai des résultats associés à chacunes des valeurs.
Si je veux récupérer toutes les valeurs associée à Y et les coller dans une autres feuilles à quoi ressemble le code?

1) recherche dans col A dees valeurs Y
2) récuperer le champ A11 à D50
3) copier l'ensemble dans une feuille

Cela me paraissait simple sur le papier et pourtant ...
Merci d'avance pour l'éventuel coup de main

[Halo2550]

Bonjour gilou41,

Tu déclare une plage

Code :

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

Dim plage As Range

Tu fais une boucle qui parcoure ta colonne A

Code :

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

1
2
for i = prem_ligne to dern_ligne
    set cell_courante = cells(i, 1)

Si tu as la valeur Y tu l'ajoute à ta plage avec quelque chose dans le genre

Code :

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

1
2
if cell_courante = Y then
    plage = Union(plage, range(cell_courante, cells(cell_courante.row, 4))) ' 4 pour la colonne D '

Tu copies ta plage

Code :

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

plage.copy destination:=ta_feuille.ta_cellule_de_destination