incrementer la reference d'une cellule

Bonsoir

J'utiliserais directement celltest sans utiliser test

for celltest = 1 to 10
if range("c" & celltest) = range("d1" then
...
next celltest

Je te conseille aussi d'utiliser CellTest ou Celltest plutôt que celltest.
C'est plus facile pour le débogage car VBA convertit les minuscules en
majuscules et c'est plus lisible à la relecture...


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

anonymous@discussions.microsoft.com wrote:

Bonjour,

comment puis-je utiliser une variable de type "count"
pour incrementer la reference d'une cellule.

voici l'exemple,

Public Sub testloop()
Dim test As Byte
Dim celltest As Byte
test = 1
celltest = 1
For celltest = 1 To 10
If Range("c(test)") = Range("d1") Then
Range("a1").Select
ActiveCell.Formula = test
test = test + 1
End If
Next celltest
End Sub


Merci!!!!