probleme de sélection

[chocapic_56]

bonjour a tous.

j'explike mon problem il s'agit en faite de selectionner des cellules positives dans une colonne et de les coller dans une autre.Ca doit surement etre simple mai je suis bloké voici ce ke G fai mai ca marche pas.


Sub test()
dim cellule as range
dim selection1 as variant

set selection1=range("a1:a50")
For each cellule In selection1
If cellule>0 Then
Range(cellule).Select
Selection.copy
End if

Next
Range("B1").Select
ActiveSheet.Paste
End sub

Voila merci à vous. HELP

 

[pierrejean]

Re : probleme de sélection

bonjour chocapic

petit rappel préalable:

le langage SMS est assez mal vu ici

ensuite:

1) cellule etant un range
que peut bien etre un range(cellule) ?

2) a l'issue de ta boucle une seule cellule est selectionnée

si tu es pret a faire l'effort de preparer un fichier exemple , il y aura foule de forumeurs pour t'aider

 

[PascalXLD]

Re : probleme de sélection

Bonjour

Peut-être jsute comme ceci

Sub test()

For Each cellule In Range("a1:a50")
If cellule > 0 Then Range("B65536").End(xlUp).Offset(1, 0) = cellule
Next

End Sub

PS : On évite le langage SMS sur ce forum 😉

Edition : Bonjour Jeanpierre

 

[chocapic_56]

Re : probleme de sélection

merci à vous Jean-pierre et pascal76
désolé pour le language sms je ferrai attention. Promis je vai essayez des modif sur vos conseil.
je vous tien o courant et merci encore

 

[chocapic_56]

Re : probleme de sélection

Oups Pierrejean désolé de t'avoir écorché ton pseudonyme

 

[chocapic_56]

Re : probleme de sélection

merci de ton aide pascal76 mais ca marche toujour pa
peut etre que si je m'exprime mieux:
mon soucis est que dans une colonne, j'ai des valeurs nulles et d'autre positives dans le désordre
j'aimerai pouvoir les selectionner (les cellules positive) et les coller ailleur

et avec mes faibles connaissance de vsb c pa facil

 

[PascalXLD]

Re : probleme de sélection

re

tu peux dire ce qui ne marche pas

Peut-être joindre un bout de fichier

 

[chocapic_56]

Re : probleme de sélection

en fait je pense qu'il me trouve bien les cellules positives mais lorsqu'il recopie ces cellules ailleurs apparait dans les cellules destinatrice un morceau de code (bizarre) et non la valeur de la cellule.😕

pour vous donner un fichier test ca va etre dificil entreprise sécurisé et je ne peut donc pa importer de fichier sur le pc disposant d'internet.

 

[chocapic_56]

Re : probleme de sélection

Youpie merci pascal76
j'arrive au bout du problem
le code que tu ma passé fonctionne
je te remercie 😀 bonne journée a toi