T
toubib
Guest
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
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