suite à mon probleme de sélection

[chocapic_56]

re bonjour a tous

suite a mon probleme de selection résolut par pascal76 dans lequel je voulait selectionner les cellules positives d'une colonne pour les copier ailleur.
Maintenant je voudrai que certaine cellules de la ligne des cellules positives puissent suivre.

Exemple
A _ B _ C
1 XXX 0
2 YYY 1

je peux en effet faire:

sub test()
dim cellule as range
For Each cellule in range("b1:b2")
if cellule>0 Then range ("c65536").end(xlUp).offset(1,0)=cellule
Next
End sub

ce qui me copiera bien les celules positive de la colonne B dans la colonne C
mais je voudrai aussi que YYY aille dans la colonne D par exemple

désolé de l'exemple bidon mais je n'ai pas moyen de mettre un fichier exemple
Voila voila en vous remerciant d'avance 🙂

 

[pierrejean]

Re : suite à mon probleme de sélection

bonjour chocapic

a tester

sub test()
Dim cellule as Range
For Each cellule In Range("A1:A2")
If cellule > 0 Then
Range("C65536").End(xlUp).Offset(1, 0) = cellule
Range("D" & Range("C65536").End(xlUp).Row) = cellule.Offset(0, 1)
End If
Next
End sub

edit: version testée

 

[PascalXLD]

Re : suite à mon probleme de sélection

Bonjour

Pierrejean je pense que +1 n'est pas indispensable car tu viens de remplir ta colonne c donc c'est bien la dernière ligne qu'il faut prendre et non dernière ligne +1

 

[PascalXLD]

Re : suite à mon probleme de sélection

Re

Sinon autre proposition

Sub test()
Dim cellule As Range
For Each cellule In Range("A1:A10")
If cellule > 0 Then
maligne = Range("C65536").End(xlUp).Row + 1
Range("C" & maligne) = cellule
Range("D" & maligne) = cellule.Offset(0, 1)
End If
Next
End Sub

Bon courage

 

[chocapic_56]

Re : suite à mon probleme de sélection

merci apres quelque petite modif ca marche bien meme si faut encore que je regle un petit problem de doublon pas très cool qui va sans doute requierer votre aide prochainnement.

Grand merci tout de meme

 

[chocapic_56]

Re : suite à mon probleme de sélection

voila après de long minute de déséspoir a fouiller des réponses dans des archives je me résigne à poser mon problem , c'est plus facil.

voila, voila, voyons le problem en plus grandje voulai selectionner des cellules positives accompagné par certaine cellules adjacente et ca marche avec CA:

For Each cellule In Range("A1:A10")
If cellule > 0 Then
maligne = Range("C65536").End(xlUp).Row + 1
Range("C" & maligne) = cellule
Range("D" & maligne) = cellule.Offset(0, 1)
End If
Next

Mais,Mais,mais oui, problem je voudrai aussique si les cellules d'une autre colonne sont positive elle soient égalemen recopier

genre quelque chose comme ca:

for each cellule in range("a1:a10")
ou for each cellule in range ("e1:e10")

Me fai-je bien comprendre ?

 

[chocapic_56]

Re : suite à mon probleme de sélection

merci d'avance

 

[PascalXLD]

Re : suite à mon probleme de sélection

Re

modifies ainsi alors

Sub test()
Dim x As integer
For x = 1 to 10
if range("A" & x) > 0 and range("E" & x) > 0then
maligne = Range("C65536").End(xlUp).Row + 1
Range("C" & maligne) = cellule
Range("D" & maligne) = cellule.Offset(0, 1)
End If
Next
End Sub

 

[chocapic_56]

Re : suite à mon probleme de sélection

oki merci je vai tester ca. 🙂

 

[chocapic_56]

Re : suite à mon probleme de sélection

merci mais ca ne fonctionne pas

quand il arrive a :
Range("C" & maligne) = cellule
il ne reconnait pas cellule meme si j'ai déja rajouter
Dim cellule as range

Mystère

 

[PascalXLD]

Re : suite à mon probleme de sélection

OUps j'ai oublié de modifier une partie du code 🙁


Sub test()
Dim x As integer
For x = 1 to 10
if range("A" & x) > 0 and range("E" & x) > 0then
maligne = Range("C65536").End(xlUp).Row + 1
Range("C" & maligne) = range("A" & x)
Range("D" & maligne) = range("B" & x)
End If
Next
End Sub

 

[chocapic_56]

Re : suite à mon probleme de sélection

Merci ................