aide sous excel utiliser range avec des variables

[Benoit]

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

 

[Arnaud]

salut,

il faut que ta variable soit en dehors des " "

par exemple :

Range("A" & Mavariable)

 

[Pascal76]

Bonjour

Essaies ceci

Sub test()
'
' test Macro
' Macro recorded 12/08/2004 by Benoit Evrard
'

'
Dim COMPTEUR as Integer, AUTRE as Integer, BOX as Long
AUTRE = 8
For COMPTEUR = 9 To 75

BOX = Sheets("Sheet1").cells(92,COMPTEUR)
If BOX <> 0 Then
Sheets("Sheet2").Range("A" & AUTRE)=Sheets("Sheet1").cells(5,COMPTEUR).Value
Sheets("Sheet2").Range("B" & AUTRE)=Sheets("Sheet1").cells(4,COMPTEUR).Value
AUTRE = AUTRE + 1
End If
Next

End Sub

Bon courage

Pascal

 

[Benoit]

Je sais pas ca marche paa

Est ce que je dois obligatoirement definir tout les types de mes variables ??

Merci

Benoit

 

[Pascal76]

Re

tu peux joindre une partie d u fichier STP ??

Car là ta macro je l'ai modifié sans tester juste de visu.

Pascal

 

[Benoit]

Desole Pascal je ne te repondais pas a toi

Attend je teste

Merci

 

[Benoit]

En utilisant ton scripte, je perds ma condition ( if ) et il ne me copie que l'une de mes lignes en colonne.

En ecrivant cell(1,1), on se reporte a la 1ere cellule ( A1 ) ???


Merci

Benoit

 

[Pascal76]

re

oui A1

cells(ligne, colonne)

Pascal