Range et cells

Bonjour,
J’ai un problème.
Voici mon code :

Code:

---

For each cellule in Range(Cells(4,m), Cells(17,m))

---

Cette ligne de code ne fonctionne pas. Je ne peux pas faire Range("C4:C17") car je veux appliquer ça sur plusieurs colonnes. Je ne sais pas comment faire.
Merci pour votre aide

Bonjour,
Petit exemple d'écriture sur la plage D3:J7 de la feuille active

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Const Sr As Long = 3 ' Ligne de départ : 3 Const Sc As Integer = 4 ' Colonne de départ : 4 soit D Dim r As Long, c As Integer For r = 0 To 4 ' 5 lignes For c = 0 To 6 ' 7 colonnes Cells(Sr + r, Sc + c).Value = "li " & Sr + r & " | co" & Sc + c Next c Next r End Sub

---

Salut

Ton code devrait pourtant fonctionner, comment as-tu déclaré ta variable m? Et quelle valeur lui as-tu attribué?
Tu peux essayer le code suivant

Code:

---

1 2 3 4 5 6 7

Sub test() Dim m As Integer   m = 3 Range(Cells(4, m), Cells(17, m)).Select   End Sub

---

Ou quelques choses comme ça pour simplifier un peu l'écriture (tout dépend comment tu détermines le nombre de lignes qui doivent être prises en compte.

Code:

---

For each cellule in Cells(4,m).resize(13)

---

La méthode resize te permet de modifier, en nombre de ligne et de colonne, la plage que tu veux pointer.

Sinon deux choses:

• En premier lieu, il est préférable de citer la feuille sur laquelle tu travailles Feuil1.Cells(...). Tu peux utiliser le codeName de la feuille pour se faire
  Pièce jointe 614839
• Si tes données sont dans un tableau, essaie d'utiliser les tableaux structurés, il est ensuite possible d'y faire référence dans ton code VBA, ce qui simplifie souvent la vie, notamment par rapport au nombre de lignes à prendre en compte

++
Qwaz

D’accord merci beaucoup pour vos réponses, je vais regarder.