Recherche Valeur non nul et les copier

Bonjour ;

Je voulais copier le cellule de la colonne A dont la valeur dans la colonne B est différent de 0 ( Le 0 donner par une formule Déjà )

Merci

Bonjour le forum,

B1 : =SI(A1<>0;A1;"")

A tirer vers le bas.

mbbp

Merci mais je veux pas qu'il met le vide , je veux qu'il supprime les cellules dont la valeur =0

Bonjour

si tu tries sur la valeur B tu isole les 0 ou valeurs nulles

tu peux supprimer ensuite les lignes en une fois

Sans exemple difficile d'aller plus loin

Sur ce forum cherches " supprimer valeurs nulles", je suis sur qu'il y a des macros toutes faites qui pourront te servir

Cordialement

FINDRH

Re Bonjour

Autre méthode

1) trier la colonne B, cliquer sur une cellule du tableau

2) Barre outils Données ==> bouton Filtrer ==> cocher 0 dans menu déroulant entete colonne B

3) Supprimer ( la sélection est automatique)

4) Re Cliquer sur bouton filtrer

5) Trier par colonne A ou B ...

Cordialement

FINDRH

boujour

voila le fichier excel

je veux qu'il cherche les valeurs de la feuille 2 dont les valeurs de la colonne 0 ne sont pas nul ou vides et il fait une copie dans la feuille 1

Merci

Bonsoir

Sub Copie()
Application.ScreenUpdating = False
Dim Derlg As Integer, i As Integer, Premlg As Integer
    Derlg = Range("A65536").End(xlUp).Row
    For i = 2 To Derlg
        If IsNumeric(Cells(i, 15)) Then
        Rows(i).Copy
        Premlg = Sheets("1").Range("A65536").End(xlUp).Row + 1
        Sheets("1").Range("A" & Premlg).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
End Sub

Amicalement

Nad

Merci Nad c'est mon besoin mais je veux faire une copie de la premiére colonne seulement, que je dois changer dans le macro

merci encore

Re

Sub Copie()
Application.ScreenUpdating = False
Dim Derlg As Integer, i As Integer, Premlg As Integer
    Derlg = Range("A65536").End(xlUp).Row
    For i = 2 To Derlg
        If IsNumeric(Cells(i, 15)) Then
         Premlg = Sheets("1").Range("A65536").End(xlUp).Row + 1
        Cells(i, 1).Copy Sheets("1").Range("A" & Premlg)
        End If
    Next i
End Sub

Nad