Discussion :

[stdebordeau]

bonjour à tous

l'objet range refuse obstinément d'accepter mon paramétrage. que puis je faire?
concrètement je voudrais par exemple pouvoir écrire le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i = 1 to nbr
range(cells(i,i),cells(i+1,i+1)).select
next i

il reconnait par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range(cells(1,1),cells(2,2))

mais ne reconnaît pas lorsque les arguments de cells sont des variables par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range(cells(i,i),cells(i+1,i+1))

pourtant je travail avec cells sans problème comme dans l'exemple suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i = 1 to nbr
cells(i,i).select
next i

merci de m'aider
c'est dure VB!!!

[Oussbaba au rhum]

salut,
la fonction fonctionne avec une variable
j'ai déjà fait un truc du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for i=1 to 6
  g = 45 + i
  cell = "E" & g & ":" & "K" & g
  ActiveSheet.Range(cell).Value = ""
next i

De plus, j'ai testé le code suivant et il fonctionne sans soucis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i = 1 To 2
Range(Cells(i, i), Cells(i + 1, i + 1)).Select
Next i

[Gorfael]

Salut
Pas de problème non plus chez moi, mais comme tu utilises SELECT, l'erreur peut provenir de là, ou de la définition de i
A+