For boucle sur une même cellule

[toubib]

Bonjour à tous,

j'ai un petit soucis sur un bout de code qui tourne en boucle sur une même case alors qu'il devrait normalement passé à celle d'en dessous:

nba = Range('a100').Value
Range('ap2:ap' & nba + 1).Select

Dim w As Range
For Each w In selection
If ActiveCell.Value = 0 Then
ActiveCell.Offset(0, -38).Select
selection.End(xlToRight).Select
selection.Copy
selection.End(xlToLeft).Select
ActiveCell.Offset(0, 39).Select
ActiveSheet.Paste
End If
Next w

ou j'ai aussi

nba = Range('a100').ValueRange('ap2:ap' & nba + 1).Select
Dim l As Byte
For l = 2 To nba + 1

If ActiveCell.Value = 0 Then
ActiveCell.Offset(0, -38).Select
selection.End(xlToRight).Select
selection.Copy
selection.End(xlToLeft).Select
ActiveCell.Offset(0, 39).Select
ActiveSheet.Paste
End If
Next l


j'ai essayé tout ce qui était à ma petite portée :s
vous voyez le soucis?

Message édité par: toubib, à: 05/10/2005 17:32

 

[PascalXLD]

Bonjour

Vu que tu boucle sur une selection puis que dans ton code tu fasses des select il s'y retrouve pas ton code.

Imagines ton code qui trouve une valeur à 0 il fait ton copier puis ton coller et là il n'y a plus qu'un cellule de selectionner donc pour lui la boucle est finie

Le plus simple serait de dire ce que tu veux faire comme cela on pourrait travailler sur un code plus propre sans select je pense

Bon courage

 

[toubib]

d'accord:

en fait ce que je veux faire c'est qu'il aille chercher la première cellule à droite de dx qu'il la copie et qu'il aille ensuite la copier en apx et que l'opération se répète pour les cellules jusqu'en ap & nba + 1 en s'adaptant à chaque fois bien sur à la ligne.


j'espère que c'est plus clair

 

[PascalXLD]

Re

essaies ceci :

Sub toto()

Dim x As Integer, nba As Integer

nba = Range('A100').Value + 1
For x = 2 To nba
If Range('AP' & x) = 0 Then
Range('AP' & x) = Cells(x, Range('D' & x).End(xlToRight).Column)
End If
Next x
End Sub

Bon courage

 

[toubib]

euh comment dire, c'est parfait
merci beaucoup et bonne soirée à toi ainsi qu'à tous ceux du forum