Discussion :

[Alicia01]

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

Code :

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

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

[Philippe Tulliez]

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

Code :

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

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

[Qwazerty]

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 :

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

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 :

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

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
  
• 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

[Alicia01]

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