[Résolu] Incrémenter un nombre dans celulle suivante

[Lone-wolf]

Bonjour à tous,

j'aimerais obtenir ce résultat:

si celulle A1 = 10; A2 vas de 11 à 20; A3 de 21 à 30 etc. c'est comme un compteur au faite.

Pour l'instant j'ai ceci:

Sub Test()
Dim x As Integer, i As Integer, t As Double
For x = 1 To 10
i = i + 1
Range("A1").Value = i
If Range("A1").Value = 10 Then: Range("A65536").End(xlUp).Offset(1, 0).Value = i
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
Next
End Sub

A2 affiche la valeur 10 sans continuer l'incrémentation.


A+ 😎

 

[Gorfael]

Re : Incrémenter un nombre dans celulle suivante

Salut Lone-wolf et le forum

A2 affiche la valeur 10 sans continuer l'incrémentation.

Aucune raison qu'il continue, puisque la macro s'arrête, i à atteint sa valeur maximale.

Juste une remarque : vu ton "ancienneté", tu devrais avoir compris que pour avoir une aide adéquate, il faut donner le but final de la macro.

Pas sûr de comprendre le problème : tu veux faire des cellules qui agissent comme un compteur avec unité en A1, dizaine en A2, centaine en A3, etc. ?
fait ta boucle de 0 à ton nombre max et utilise des instructions dans le style :

[A1]=i mod 10

A+

 

[Grand Chaman Excel]

Re : Incrémenter un nombre dans celulle suivante

Bonjour Lone-Wolf, Gorfael, le forum,

Si j'ai bien compris ta demande, essaie ceci :

Sub Test()
Dim t As Double
Dim rg As Range

Set rg = Range("A60000").End(xlUp)

Do
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
If (rg Mod 10 = 0) Then
    Set rg = rg.Offset(1, 0)
    rg = rg.Offset(-1, 0) + 1
Else
    rg = rg + 1
End If
Loop Until rg.Row = 20      'pour arrêter le code... à adapter

End Sub

A+

 

[Lone-wolf]

Re : Incrémenter un nombre dans celulle suivante

Bonjour Gorfael,

Non. Je te montre le premier code que j'ai fait.

Sub Test()
Dim x As Integer, i As Integer, t As Double
For x = 1 To 10
    i = i + 1
     [A1].Value = i
If [A1].Value = 10 Then: [A2].Value = i
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
  Next
  
For j = 1 To 10
k = k + 1
[A2].Value = i
If [A2].Value = i Then: [A2].Value = i + k
t = Timer + 0.5: Do Until Timer > t: DoEvents: Loop
    Next
End Sub

A + 😎

 

[Lone-wolf]

Re : Incrémenter un nombre dans celulle suivante

Bonjour Grand Chaman,

Joli! C'est tout à fait ça!! 😀

Merci Schöne beaucoup! 😉



A+ 😎