copier coller que les valeurs positives

Bonjour
N'y a t-il pas erreur en notant "c1:c2" ?

herve62 à dit:

Bonjour

Code:

i=1
For Each c In Worksheets("Feuil1").[a1:a10]
If IsNumeric(c) And c > 0 Then
Worksheets("Feuil2").Cells(i, 3) = c
i = i + 1
End If
Next c

N'y a t-il pas erreur en notant "c1:c2" ?

Cliquez pour agrandir...

Bonjour herve62
tout d'abord un grand merci de me proposer cette solution
(N'y a t-il pas erreur en notant "c1:c2) bien oui desolée



Ta solution adapter à mon classeur ça donne :

Sub report()
i = 10
For Each c In Worksheets("commandes b").[g10:g58]
If IsNumeric(c) And c > 0 Then
Worksheets("commandes c").Cells(i, 15) = c
i = i + 1
End If
Next c
End Sub


Cela fonctionne ,mais ça me mets les valeurs positifs les unes sous les autres
_je souhaiterais quelle reste à leur niveaux (pour retomber à la bonne place )
suis je clair????
merci beaucoup
Evelyne

Bonjour herve62
tout d'abord un grand merci de me proposer cette solution
(N'y a t-il pas erreur en notant "c1:c2) bien oui desolée



Ta solution adapter à mon classeur ça donne :

Sub report()
i = 10
For Each c In Worksheets("commandes b").[g10:g58]
If IsNumeric(c) And c > 0 Then
Worksheets("commandes c").Cells(i, 15) = c
i = i + 1
End If
Next c
End Sub


Cela fonctionne ,mais ça me mets les valeurs positifs les unes sous les autres
_je souhaiterais quelle reste à leur niveaux (pour retomber à la bonne place )
suis je clair????
merci beaucoup
Evelyne

Tout simple tu déplaces le I=I+1 après le "end IF"
Bonne soirée