copier coller que les valeurs positives

[Evelynetfrancois]

Bonjour tout le monde ,je cherche sans trouver je fais donc un appel .......merci !
je souhaiterais copier (a1:a10)feuil 1 ,et coller en (c1:c10)feuil 2 , mais uniquement les valeurs positives
(en vba)
Merci pour toutes vos idées ou solutions...

Evelyne

 

[herve62]

Bonjour

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" ?

 

[Evelynetfrancois]

Bonjour

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" ?

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

 

[Evelynetfrancois]

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

 

[herve62]

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