Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imposer 2 chiffres

Imposer 2 chiffres

9 réponses
Avatar
Steph
Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de garder
un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Joël GARBE
Bonsoir,

un petit
Format(Numero, "00")
devrait faire l'affaire ?
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Steph" a écrit dans le message de news:

Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "00") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph





Avatar
YannX
"Steph" a écrit dans le message de
news:
Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder

un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)
Essaye qq.chose comme :

[A1] = Left([I4],
instr('-',[I4])+Right("00"&Format(1+VAL(Right([I4],2)),"00"),2)

Mais tout simplement Numero = Format(numero.Value,"00")


Merci de votre aide,

Steph





Avatar
AV
[A1] = "1215-" & [text(right(A4,2)+1,"00")]

AV
Avatar
Patrick Fredin
Bonjour,

Il faut mettre :

Numero = Format(Numero.Value, "00")

--
Patrick

"Steph" wrote in message
news:
Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph





Avatar
Jacky
Bonsoir steph
en A1
=GAUCHE(I4;5)&TEXTE(DROITE(I4;2)+1;"00")

Salutations
JJ

"Steph" a écrit dans le message de
news:
Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder

un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph





Avatar
LeSteph
Bonsoir Steph,

Sub testit1()
[a1] = Mid([i4], 1, Len([i4]) - 2) & _
Format(Val(Mid([i4], Len([i4]) - 1, 2)) + 1, "00")
End Sub

lSteph


"Steph" a écrit dans le message de news:

Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je prend
les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre complet
(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph





Avatar
YannX
Bnsr

Et puis pourquoi pas !
Trivial !
[A1]+1 / Format de cellule #####-##
Qui dit mieux !
§ Excel, c'est pour PRESENTER des nombres, pas vrai §
@+


"LeSteph" a écrit dans le message de
news:%
Bonsoir Steph,

Sub testit1()
[a1] = Mid([i4], 1, Len([i4]) - 2) & _
Format(Val(Mid([i4], Len([i4]) - 1, 2)) + 1, "00")
End Sub

lSteph


"Steph" a écrit dans le message de
news:


Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je
prend


les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre
complet


(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph









Avatar
AV
§ Excel, c'est pour PRESENTER des nombres, pas vrai §


Ça me semble considérablement réducteur mais de toute façon, "1215-01", c'est
pas un nombre !

AV

Avatar
LeSteph
Tu devrais relire l'énoncé, AMHA
AV lui a donné une bonne réponse
j'ai juste pris en compte en sus le préfixe.
Je sais que c'est la veille de la pleine lune mais
Zen !
merci
lSteph


"YannX" a écrit dans le message de news:

Bnsr

Et puis pourquoi pas !
Trivial !
[A1]+1 / Format de cellule #####-##
Qui dit mieux !
§ Excel, c'est pour PRESENTER des nombres, pas vrai §
@+


"LeSteph" a écrit dans le message de
news:%
Bonsoir Steph,

Sub testit1()
[a1] = Mid([i4], 1, Len([i4]) - 2) & _
Format(Val(Mid([i4], Len([i4]) - 1, 2)) + 1, "00")
End Sub

lSteph


"Steph" a écrit dans le message de
news:


Bonsoir,

Je prends un valeur dans une case "I4", (la valeur est "1215-01") je
prend


les 2 chiffres de droite, j'additionne 1 puis je recrée le chiffre
complet


(ceci afin d'incrémenter les 2 derniers chiffres), le problème est de
garder un nombre à 2 chiffres de garder le "0"

NumeroComplet = [I4]
Numero = Right(NumeroComplet, 2)
Numero = Numero + 1
Numero = Format(Numero.Value, "##") <--- pas juste !
[A1] = "1215" & (Numero)

Merci de votre aide,

Steph