Comment dire "différent" en langage VB

Bonjour à tous, j'ai une macro qui me copie dans un tableau toutes mes lignes qui sont égale à 0. J'aimerai faire la même chose mais qu'il me copie lorsque le résultat est différent de 0... Est-ce que quelqu'un peut me dire comment SVP ? Voici le code :

Option Explicit 

Dim cell As Range
Dim n As Integer
Dim c As Integer
Dim DL As Integer
Dim NumLign As Integer

Sub PasIntervention()
    n = 1
    DL = Sheets("Feuil1").Range("D65536").End(xlUp).Row
    For Each cell In Range("D2:D" & DL)
        If cell = 0 Then
            NumLign = cell.Row
            For c = 1 To 5
                Sheets("Feuil2").Cells(n + 1, c) = Sheets("Feuil1").Cells(NumLign, c).Value
            Next
            n = n + 1
        End If
    Next
    Sheets("Feuil2").Select
End Sub

Merci de votre aide

Bonsoir,

Remplace

If cell = 0 Then

par

If cell <> 0 Then

Amicalement

Dan

Bonsoir et merci pour la réponse. Je venais a peine de trouver ceci :

If cell > 0 Then

Mais je vais utiliser le tiens cela sera plus sûre... Merci pour la réponse aussi rapide.

Bonne soirée

Re,

C'est aussi correct mais là ta macro copiera si la valeur de ta cellule est supérieure à 0. La proposition que je t'ai faite copiera toute valeur différente de 0; qu'elle soit négative ou positive.

Bonne soirée

Dan

Et bien justement c'est vraiment se qu'il me fallait ta macro... Comme je ne connais pas cette fonction (différent) j'avais essayé et c'est comme sa que j'en étais venu a mettre supérieur.

Merci et bonne soirée

Bonjour,

J'ai un peu le même problème sauf que quand je me le symbole <> "90" dans mon code cela ne fonctionne pas. Pourriez-vous m'aider?

voici ma macro :

Sub extraction()

Application.ScreenUpdating = False

Dim sh As Worksheet

On Error Resume Next

For Each sh In Sheets

sh.ShowAllData

Next sh

Dim derlig As Long

Dim F1 As Worksheet

Dim F2 As Worksheet

Set F1 = Sheets("No FA")

Set F2 = Sheets("Statut No 90")

derlig = F2.Range("A" & Rows.Count).End(xlUp).Row

F2.Range("A4:Y" & derlig).ClearContents

F1.Range("A1", "Y" & F1.Range("A" & F1.Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="90"

F1.Range("A1:Y100000").SpecialCells(xlCellTypeVisible).Copy Destination:=F2.Range("A4")

Application.ScreenUpdating = True

End Sub

Mercid'avance.

Bonjour,

tu aurais dû commencer ton propre topic, un ancien moins de personnes lisent.

Met-toi en enregistrement de macro et met ton filtre manuellement.

Tu auras l'essentiel de la syntaxe.

eric

merci ce que je vais faire

Bonjour,

C'est simple, il te faut l'écrire de cette façon "<>" & 90 :

F1.Range("A1", "Y" & F1.Range("A" & F1.Rows.Count).End(xlUp).Row).AutoFilter 3, "<>" & 90

Bonjour THEZE,

Merci beaucoup je m'en vais tester ça une fois devant mon ordi.

Merci encore 😉

Bonjour Theze,

J'ai testé et cela ne fonctionne pas j'ai créer un topique ou j'ai share le doc. Avec une petite explication en prime.

Le topique est Correction Macro (signe différent) si tu peux jeter un coup d'oeil ce serait super.

Merci bien et bonne journée à toi.