ecriture boucle

[Dave de grenoble sur chaune]

Boujour tous

j'ai un petit probleme.
voila le debut de ma boucle

Dim nbligne
nbligne = Range('l1')
For d = 2 To nbligne
Cells(d, 8).Select
......


je voudrais selectionner la case de la 8° colone (comme ds la boucle que j'ai ecris), mais aussi la case just a coté , c-a-d la case de la 9° colone.

je sais pas si j'ai été tres clair, o pir je donnerais des complements d'informations

 

[dg62]

Bonjour Dave..., Le Forum

Range('H' & d & ':' & 'I' & d).Select

peut-être une solution.

 

[ChTi160]

Salut Dave
Salut dj62 elle est faite je la post
une possibilité qui correspond au code de Dj62
Sub selct()
Dim nbligne As Integer
nbligne = Range('C1')
For d = 2 To nbligne
Range(Cells(d, 8), Cells(d, 9)).Select
Next
End Sub
Amicalement
jean Marie

Message édité par: ChTi160, à: 02/05/2005 17:07