Discussion :

[Jaquie]

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.

[ARTURO83]

Bonjour,

Si j'ai bien compris

Code :

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

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

[Jaquie]

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 ), 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

[ARTURO83]

Bonjour,

Est-ce cela?

Code :

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

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

[Qwazerty]

Salut

Si je comprends bien...

Code :

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

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

[Jaquie]

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