Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide sous excel utiliser range avec des variables

  • Initiateur de la discussion Benoit
  • Date de début
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
 
P

Pascal76

Guest
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
 
B

Benoit

Guest
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
 

Discussions similaires

Réponses
2
Affichages
180
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…