Discussion :

[jbggg]

bonjour,

je voulais savoir comment s'écrit la syntaxe d'une boucle sous vba.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim alphag As Long
Dim i As Integer
Dim point As Integer
point = Range("C11").Value 
Dim a As Long
Dim b As Long
 
a = Range("C17").Value
b = Range("B17").Value
 
alphag = a + b
 
Range("D17").Value = alphag

je m'explique: la variable "point" est une valeur saisie par l'utilisateur.
il va donc y avoir a aditionner les cellules de C17+point et B17+point dans la cellule D17+point

ainsi si point vaut 3:
>il faut que VBA remplisse D17=B17+C17, D19=B19+C19, D21=B21+C21

merci

[Godzestla]

Salut,

pourrais-tu être un peu plus explicite.

Je ne comprends pas pourquoi tu souhaites faire une boucle car quand tu dis que si point vaut 3 tu dois calculer D17, D19 et D21. Quel est le rapport avec 3 ?

Merci.

[fring]

Bonjour jbggg, godzestla

Si je comprend bien, ça devrait ressembler à

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim i As Integer, point As Integer, x As Integer
 
point = Range("C11").Value
x = 17 '<-- ligne de départ
 
For i = 1 To point
Cells(x, 4) = Cells(x, 2) + Cells(x, 3)
x = x + 2 '<-- pas de 2 pour l'incrémentation des lignes
Next
End Sub

[jbggg]

merci beaucoup ça fonctionne.

par contre je ne sais pas comment faire pour que si l'on clik sur un bouton (start par exemple) les calcule se font automatiquement.

car pour le moment je suis obligé de lancer manuellement la sub pour qu'elle fonctionne.

[Godzestla]

Salut,

C'est simple
1)tu crées un bouton à l'endroit souhaité via la Toolbar <Control Toolbox>
2) Tu arranges ces caractéristiques via l'icone properties. Il est utile de choisir la propriété (NAME) de manière parlante.
3) Tu <Double-clic> ton bouton et tu es dans VB pour saisir le code de ton bouton

4) Ton code à saisir doit reseembler à ceci

Code :

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

1
2
3
4
 
Private Sub BouclageButton_Click()
Application.Run "Bouclage_MAcro"
End Sub

ou tu dois remplacer
-"Bouclage_MAcro" par le nom de ta macro
-BouclageButton par le nom de ton controle bouton.

J'espère que cela t'aidera.

Après il faut quitter le "mode design" via l'icone ad-hoc de la barre d'outil sinon ton controle bouton restera inactif.

Thierry.

[jbggg]

Merci de la reponse mais cela ne fonctionne pas
certainement parce mes macro sont dans un module??