Discussion :

[lafafmentvotre]

Bonjour à tous

Je cherche le moyen d'incrémenter une série "spéciale" dans Excel.

Je m'explique, ma série commence par :

10A070
10A075
10A079
10A080
10A085
10A089

Je souhaiterais pouvoir incrémenter pour que suivent :

10A090
10A095
10A099
10A100
10A105
10A109
....

Est ce possible ?

Merci par avance pour l'aide ou les conseils

[mercatog]

Code :

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

1
2
3
4
5
6
Sub tst()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("B" & i) = "10A" & Format(Int(Mid(Range("A" & i), 4)) + 20, "000")
Next i
End Sub

[lafafmentvotre]

Super Merci

Mais je vois qu'en fait cela analyse ce qu'il y a en colonne A et incrémente dans la colonne B.

Est ce possible de le faire en suivant vers le bas et éventuellement d'indiquer quand la boucle doit s'arrêter (soit en indiquant la veleur de fin ou le nombre d'incréments ?

Merci par avance

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tst()
Dim i As Long, k As Long
Dim L As Integer
'L = InputBox("nombre d'incréments")
L = 6 'nombre d'incréments à adapter
k = Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To L
    Range("A" & k) = "10A" & Format(Int(Mid(Range("A" & i), 4)) + 20, "000")
    k = k + 1
Next i
End Sub

[lafafmentvotre]

Alors là suis bluffé merci.

Par contre si je lance de nouveau la macro (avec 6 en L, par exemple), il n'incrémente pas dans la continuité de la dernière cellule mais il reprend plus haut. Je ne vis pas dans le script comment lui indiquer cela......

Merci pour l'aide

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tst()
Dim i As Long, k As Long, L As Long
 
L = Cells(Rows.Count, 1).End(xlUp).Row
k = L + 1
Do
    i = i + 1
    Range("A" & k) = "10A" & Format(Int(Mid(Range("A" & i), 4)) + 20, "000")
    k = k + 1
Loop Until i = L
End Sub