Discussion :

[abouhossam]

bjr tous le monde
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 :

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

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.

[wilfried_42]

Bonjour

essaye ca (si j'ai tout compris)

Code :

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

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

[abouhossam]

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

[ucfoutu]

Bonjour,

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

[Abed_H]

bien sûr..!


avec cette ligne de code tu trouvera ton bonheur.

Code :

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

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

Bonne soirée

Abed_H

[abouhossam]

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