recopie d'une colonne vers une autre suivant critere

[leonardo]

Bonjour a tous

Ce problème va sans doute vous paraitre simple,mais voila je but!
J'ai dans une colonne les cellules A1 à A23 avec des valeurs de 0 à 100.
un certain nombres ont pour valeur 0.
Mon soucis est de recopier A1 vers B1 si A1<> zero et cela jusqu'à
A23 vers B23, mais sans laisser de cellule vide dans la colonne B.

Voila j'espère avoir été clair dans mon explication.

Merci à tous de votre aide
Leonardo

 

[Papou-net]

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) :

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.

 

[haonv]

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

bonsoir leonardo ,papou-net ,

Une autre solution par formule matricielle.

Amicalement

 

[leonardo]

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

merci pour tout Papou
cordialement
Leonardo

 

[leonardo]

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

Merci a toi aussi HAONV
Cordialement
Leonardo

 

[leonardo]

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