B
Benoit
Guest
Bonjour
Je debute sous VBA et j'aimerai savoir comment faire pour utiliser range avec une variable, dans une boucle.
Je vous donne mon code
Merci d'avance
Benoit
Sub test()
'
' test Macro
' Macro recorded 12/08/2004 by Benoit Evrard
'
'
Dim COMPTEUR, AUTRE, BOX
For COMPTEUR = I To BW
AUTRE = 8
BOX = "COMPTEUR$92"
If BOX <> 0 Then
NOUVEAU = Range("COMPTEUR$5").Address
Range(NOUVEAU$).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A$AUTRE").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet1").Select
Range("COMPTEUR$4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B$AUTRE").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
AUTRE = AUTRE + 1
Else
End If
Next
End Sub
Je debute sous VBA et j'aimerai savoir comment faire pour utiliser range avec une variable, dans une boucle.
Je vous donne mon code
Merci d'avance
Benoit
Sub test()
'
' test Macro
' Macro recorded 12/08/2004 by Benoit Evrard
'
'
Dim COMPTEUR, AUTRE, BOX
For COMPTEUR = I To BW
AUTRE = 8
BOX = "COMPTEUR$92"
If BOX <> 0 Then
NOUVEAU = Range("COMPTEUR$5").Address
Range(NOUVEAU$).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A$AUTRE").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Sheet1").Select
Range("COMPTEUR$4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B$AUTRE").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
AUTRE = AUTRE + 1
Else
End If
Next
End Sub