recopie d'une colonne vers une autre suivant critere

Papou-net

XLDnaute Barbatruc

• 18 Février 2010

• #2

Re : recopie d'une colonne vers une autre suivant critere

Bonsoir leonardo,

Voici un exemple de macro (déclenchement par une méthode de ton choix) :

Code:

Private Sub Copie()
lg = 1
With Feuil1
  For Each cel In .Range("A1:A23")
    If cel.Value <> 0 Then
      Cells(lg, 2) = cel.Value
      lg = lg + 1
    End If
  Next
End With
End Sub

Espérant avoir répondu.

Cordialement.

 

Vote positif 0 Vote négatif

H

haonv

XLDnaute Occasionnel

• 18 Février 2010

• #3

Re : recopie d'une colonne vers une autre suivant critere

bonsoir leonardo ,papou-net ,

Une autre solution par formule matricielle.

Amicalement

 

Pièces jointes

• pour leonardo.xls

  24 KB · Affichages: 68

Vote positif 0 Vote négatif

L

leonardo

Guest

• 18 Février 2010

• #4

Re : recopie d'une colonne vers une autre suivant critere

merci pour tout Papou
cordialement
Leonardo

 

Vote positif 0 Vote négatif

L

leonardo

Guest

• 18 Février 2010

• #5

Re : recopie d'une colonne vers une autre suivant critere

Merci a toi aussi HAONV
Cordialement
Leonardo

 

Vote positif 0 Vote négatif

L

leonardo

Guest

• 18 Février 2010

• #6

Re : recopie d'une colonne vers une autre suivant critere

Rebonsoir HAONV

Rien a dire ,c'est propre et sans bavure
apres essai,je garde comme model .
Merci encore
Cordialement
Leonardo

 

Vote positif 0 Vote négatif