Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recopie d'une colonne vers une autre suivant critere

leonardo

XLDnaute Nouveau
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

XLDnaute Barbatruc
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.
 

haonv

XLDnaute Occasionnel
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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…