incrémenter une partie de la cellule

bjr tous le monde :yaisse2:
j'ai fais une macro dont le but est d'incrémenter une partie de la cellule(M10)
la valeur de départ est M00108

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If Cells(10, 13) <> "" Then If Mid(Cells(10, 13).Value, 2, 3) > 9 And Mid(Cells(10, 13).Value, 2, 3) < 99 Then Cells(10, 13) = "M0" & Mid(Cells(10, 13).Value, 2, 3) + 1 & "08" ElseIf Mid(Cells(10, 13).Value, 2, 3) = 9 Then Cells(10, 13) = "M01008" ElseIf Mid(Cells(10, 13).Value, 2, 3) = 99 Then Cells(10, 13) = "M10008" ElseIf Mid(Cells(10, 13).Value, 2, 3) < 9 Then Cells(10, 13) = "M00" & Mid(Cells(10, 13).Value, 2, 3) + 1 & "08" Else Cells(10, 13) = "M" & Mid(Cells(10, 13).Value, 2, 3) + 1 & "08" End If End If

---

la macro ça marche mais est ce que vous pouvez m'aidez de la reduire un peu car elle est un peu grande
merci.

Bonjour

essaye ca (si j'ai tout compris)

Code:

---

1 2 3

if cells(10,13)>"" then Mid(Cells(10, 13).Value, 2, 3) = format(val(Mid(Cells(10, 13).Value, 2, 3))+1,"000") end if

---

bjr
ça marche pas
j'obtien un message:
variable requise.impossible de l'affecter à cette expression
en selectionnant .value
merci

Bonjour,

fais un select case sur Mid(Cells(10, 13).Value, 2, 3)

bien sûr..!
:salut:

avec cette ligne de code tu trouvera ton bonheur.

Code:

---

Cells(10, 13).Value = "M" & Format(CDbl(Mid(Cells(10, 13).Value, 2, 3)) + 1, "000") & "08"

---

Bonne soirée

Abed_H :king:

bjr
merci tous le monde
merci abed H
ton code ça marche bien.
:yaisse2::yaisse2::yaisse2: