recopie d'une plage de cellules sous condition

[davacorp]

Bonjour,

Je cherche la façon de réaliser la chose suivante (si possible sans macro...).

J'ai une colonne d'items :
X1
X2
X3
X4
...

En face de chaque item de cette colonne, se trouve une valeur : 0, 1 ou vide.

Je voudrais pouvoir recopier dans une autre feuille uniquement les items de cette colonne (Xn) qui prennent la valeur 1, également sous la forme d'une colonne (j'exclus donc les items qui prennent la valeur 0 ou bien vide).

Merci

 

[laetitia90]

Re : recopie d'une plage de cellules sous condition

bonjour davacorp le forum . copy de la feuille1 colonne A vers feuille2 colonne A

Sub es()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 2) = 1 Then Sheets("Feuil2").Range("a" & Rows.Count).End(xlUp)(2) = .Cells(i, 1)
Next i: End With
End Sub

 

[2passage]

Re : recopie d'une plage de cellules sous condition

Bonjour,

Sans macro, ça pourrait donner quelque chose comme l'exemple joint.
A tester

++

Edit : Bon.. Ca marche mais c'est en 2 colonnes, je n'arrive pas à faire mieux... je m'empêtre dans mes formules matricielles sans réussir à faire propre.

 

[davacorp]

Re : recopie d'une plage de cellules sous condition

Merci beaucoup
Je vais essayer de voir comment la transformer.