Copier des colonnes entières selon critère vers une autre fe

Bonjour à tous,

J'ai cherché un peu partout la solution mais malheureusement je n'ai rien trouvé qui correspondait à mon objectif.

J'ai une feuille "Trace" et une feuille "Cat1"

Je souhaite copier toutes les colonnes de "Trace" qui contient "1" en première ligne et les coller sur "Cat1".

Comme étapes j'ai pensé à une boucle comme :

• Définition de la dimension du tableau de "Trace"
• Définition de la première colonne à traiter "B:B"
• Définition de la première cellule "B1" de la colonne "B:B"
• Vérification de sa valeur :

Merci de votre aide car je n'arrive pas à formuler sous VBA

Sub toto()
dim i as integer, j as integer
j=1
with Sheets("Trace")
For i = 1 to .cells(1,.columns.count).end(xltoleft).column
If cstr(.cells(1,i)) = "1" then
.cells(1,i).entirecolumn.copy destination;=Sheets("Cat1").cells(1,j)
j=j+1
end if
next i
end with
end sub

Comme c'est beau !

Merci EngueEngue.

Peut-être sauras-tu me dire comment, dans un graphique, prendre en compte le fait que le tableau a des dimensions variables ?

(Graphique de type nuage de points sans marqueur, liés)

On ne peut pas.

Il va falloir redimensionner les bornes de tes séries.

Ok, merci