Discussion :

[mathspountz]

Bonjour,

J'ai un problème qui va vous paraitre simple. J'aimerais incrémenter une série pour effectuer une action sur chaque cellules dans la plage "C10:AA10".

Si je devais effectuer la même chose sur la plage "C10:C35" je ferais :

Code :

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

1
2
3
4
Dim i as integer
For i = 1 to 25
Range("C" & i).select
Next i

Mais là, ce sont les colonnes qui sont variables et je ne sais comment m'y prendre...
Quelqu'un aurait-il une solution ?

[Fvandermeulen]

Salut,

Il suffit d'utiliser Cells au lieu de Range.

Cells fonctionne avec le numéro de ligne et numéro de colonne
Ex:

Code :

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

sheets("TaFeuille").cells(2,5) 'correspond à Range("E2")

Dès lors

Code :

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

1
2
3
4
5
Dim C as integer
For C = 3 to 27 '3 pour C; 27 pour AA
'L'action (en évitant les Select, ça fait perdre du temps)
sheets("TaFeuille").cells(10,C)="ici ce que tu veux sans select"
Next C

C'est un peu casse tête au début quand on a prit l'habitude de travailler avec Range mais ensuite on utilise plus que ça même quand on incrémente pas les colonnes.

A+

[mathspountz]

Merci beaucoup ! En plus j'avais lu ça à mes début mais je ne l'avais jamais utilisé et ça m'était sorti de la tête !

Merci !