J'ai un tableau avec en colonne A des noms, en colonne B et C des
codes alpha et en colonne D la somme des codes.
En clair en D j'ai soit 0, soit 0.25, soit 0.5, soit 0.75, soit 1
J'aimerai copier dans une autre feuille du classeur les noms qui se
trouvent en A uniquement si la valeur en D est différente de 0
Ex: A1 = Moi -- B1=P -- C1=P -- D1=1 donc A1 doit être copiée
Etc pour chaque ligne du tableau.
Je dois dire que là je me suis mis la barre un peu haute.
Merci pour votre aide.
Philev
Quand on pense qu'il suffirait que les gens n'achètent pas pour que ça ne se vende plus.
Coluche
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
J'aimerai copier dans une autre feuille du classeur les noms qui se trouvent en A uniquement si la valeur en D est différente de 0
Ceci peut-être: '------------ Sub jj() derlg = Sheets("feuil1").Range("a65536").End(3).Row For Each c In Range("a1:a" & derlg) If c.Offset(0, 3) <> 0 Then x = x + 1 Sheets("Feuil2").Range("a" & x) = c End If Next End Sub '---------- Salutations JJ
Bonsoir,
J'aimerai copier dans une autre feuille du classeur les noms qui se
trouvent en A uniquement si la valeur en D est différente de 0
Ceci peut-être:
'------------
Sub jj()
derlg = Sheets("feuil1").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlg)
If c.Offset(0, 3) <> 0 Then
x = x + 1
Sheets("Feuil2").Range("a" & x) = c
End If
Next
End Sub
'----------
Salutations
JJ
J'aimerai copier dans une autre feuille du classeur les noms qui se trouvent en A uniquement si la valeur en D est différente de 0
Ceci peut-être: '------------ Sub jj() derlg = Sheets("feuil1").Range("a65536").End(3).Row For Each c In Range("a1:a" & derlg) If c.Offset(0, 3) <> 0 Then x = x + 1 Sheets("Feuil2").Range("a" & x) = c End If Next End Sub '---------- Salutations JJ
JB
Sub Archives() ligneRecap = 1 For i = 2 To [a65000].End(xlUp).Row If Cells(i, 4) > 0 Then ligneRecap = ligneRecap + 1 Cells(i, 1).Copy Sheets("feuil2").Cells(ligneRecap, 1) End If Next i End Sub
Cordialement JB
Sub Archives()
ligneRecap = 1
For i = 2 To [a65000].End(xlUp).Row
If Cells(i, 4) > 0 Then
ligneRecap = ligneRecap + 1
Cells(i, 1).Copy Sheets("feuil2").Cells(ligneRecap, 1)
End If
Next i
End Sub
Sub Archives() ligneRecap = 1 For i = 2 To [a65000].End(xlUp).Row If Cells(i, 4) > 0 Then ligneRecap = ligneRecap + 1 Cells(i, 1).Copy Sheets("feuil2").Cells(ligneRecap, 1) End If Next i End Sub
