VBA Parcourir Colonne

Version imprimable

15/04/2013, 12h44
ThmsD

VBA Parcourir Colonne

Bonjour,

Je suis débutant en VBA et j'aimerais faire quelque chose d'assez simple mais je ne sais pas comment le coder sous VBA ... (J'ai effectuer des recherches : sans résultats).

Je souhaiterais faire une macro qui me permet de parcourir les cellules d'une colonne dans le but de leur donner une valeur différente.

Par exemple :

A

1
2
3
4
5

Dans l'exemple ou l'on incrémente de 1.

Pour l'instant je souhaite comprendre le "fonctionnement". Cette macro pourra me permettre de faire des tracés par la suite.

Bonjour,

il y as des tas de possibilités...

tiens par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub MaFonction()
Dim sh As Worksheet
Dim iL As Integer 'numéro de ligne en cours
 
Set sh = ThisWorkbook.Sheets("Feuil1") 'Définit la feuille concernée..
 
For iL = 1 To 5
    sh.Cells(iL, 1) = iL
Next
 
 
End Sub

15/04/2013, 13h05
QuestVba

Bonjour

Voici un lien pour commencer :http://silkyroad.developpez.com/vba/boucles/

Merci!

Je rencontre un autre soucis. Maintenant que j'arrive à parcourir chaque cellule de la colonne j'aimerais leur attribuer des valeurs différentes.

J'ai essayé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
 
    Dim i As Integer
 
    Dim j As Integer
 
        For i = 1 To 10
 
            For j = 1 To 100 Step 10
 
            Worksheets("Feuil3").Cells(i, 1) = j
 
            Next j
 
        Next j
 
End Sub

Ou bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
 
    Dim i As Integer
 
    Dim j As Integer
 
    i = 1
 
       Do While i <= 10
 
          For j = 1 To 100 Step 10
 
          Worksheets("Feuil3").Cells(i, 1) = j
 
          Next j
 
       i = i + 1
 
      Loop
 
End Sub

Dans le but d'obtenir :

A
0
10
20
30
40
50
etc ...

Mais sans succes.

Ou est mon erreur?

Merci par avance :)

Citation:

Envoyé par ThmsD

M...

Ou est mon erreur?
..

tu n'as pas besoin d'imbriquer 2 boucles ... une seule boucle suffit .. tu garde la boucle sur les numéros de lignes .. et tu calcule la valeur de ton j..
par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim i As Integer Dim j As Integer ' pour mémoire valeur initiale d'un entier = 0 cela tombe bien ... For i = 1 To 10 Worksheets("Feuil3").Cells(i, 1) = j J=J+10 Next i