CODE VBA à creer

Slt, slt

Merci à toute l’équipe de m'aider.

Je voudrais créer une macro qui devra ajouter à la première cellule A1, ( valeur de la cellule "1" ) , une variable qui sera de 1 au premier tour puis augmentée de 1 à chaque tour.
Cependant, la macro devra s’arrêter quand la valeur de la variable ajouter est supérieure à 30, exemple, +1, +2, +3, +4...+30; la macro s’arrête
La macro devra s'arrêter aussi quand la somme de la variable debuté en A1 sera supérieure à 200.

Je patiente pour les suggestions.:D

Bonjour,

Si j'ai bien compris

Code:

---

1 2 3 4 5 6 7

Sub Ajouter() Application.ScreenUpdating = False For i = 1 To 30 [A1] = [A1] + i If [A1] + i > 200 Then Exit Sub Next i End Sub

---

Cdlt

Bonjour,

Ce n'est pas exactement cela, puisque je veux que la macro me donne la liste des nombres en question ( le résultat , on s'entend :roll:), exemple
1
1+1
2+2
4+3
7+4
11+5
16+6
.......
Elle devra s'arreter arrivé à + 30
Elle devra aussi s'arreter quand le " ....+.... est superieur à 200
Le calcul à faire se presente ainsi:

A1
A1+1 =A2
A2+2 = A3
A3+3 =A4
......

Voila plus d'explications, Merci d m filer un coup de main

Bonjour,

Est-ce cela?

Code:

---

1 2 3 4 5 6 7

Sub Ajouter() Application.ScreenUpdating = False For i = 1 To 30 Cells(i + 1, "A") = Cells(i, "A") + i If Cells(i + 1, "A") + i > 200 Then Exit Sub Next i End Sub

---

Question:Je suppose que la valeur en A1, est une valeur autre que 1, donc la macro doit s'arrêter à la première des 2 butées trouvées, soit +30 boucles, soit somme >200, est-ce bien cela que je dois comprendre?

Cdlt

Salut

Si je comprends bien...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Sub Ajouter() Dim i As Integer Dim Total As Integer, Total2 As Integer Application.ScreenUpdating = False   Total = 1 With Feuil1 .Range("A1") = 1 For i = 1 To 30 'If Total > 200 Then Exit For 'ligne a activer ici si on ne veut pas noter un calcul >200 Total2 = Total + i .Cells(i + 1, "A").Value = CStr(Total) & " + " & CStr(i) & " = " & CStr(Total2) Total = Total + i If Total > 200 Then Exit For 'ligne a activer ici si on veut noter le 1er calcul >200 Next i End With   Application.ScreenUpdating = True   End Sub

---

On peut connaitre le but d'un tel code car j'avoue qu'à moins d'un exercice scolaire, un code qui ressort systèmatiquement la même chose ne me parait pas avoir beaucoup de sens.
Style ça https://nosdevoirs.fr/devoir/844660 ?
++
Qwaz

Merci Arthur ! c'est exactement ce que je voulais.