OVH Cloud OVH Cloud

Augmenter d'une unité

9 réponses
Avatar
SaxBob
Bonjour à toutes et tous et Bonnes Fêtes de fin d'année!

Voici le problème. Dans une cellule au format standard, j'avais jusqu'à
présent un nombre de 4 chiffres que j'incrémentais avec la macro suivante:

ActiveCell.Value = ActiveCell.Value + 1

Je suis désormais obligé de faire précéder ce nombre par deux lettres du
style: SP2541

Je n'arrive pas à modifier la macro pour passer de SP2541 à SP2542.

Une petite idée?

Merci.

SaxBob

9 réponses

Avatar
Jacky
Bonjour,

Ceci peut-être
'-------
ActiveCell = Left(ActiveCell, 2) & Mid(ActiveCell, 3, Len(ActiveCell)) + 1
'-------

--
Salutations
JJ



"SaxBob" a écrit dans le message de news:
C1BB0339.8FCD%
Bonjour à toutes et tous et Bonnes Fêtes de fin d'année!

Voici le problème. Dans une cellule au format standard, j'avais jusqu'à
présent un nombre de 4 chiffres que j'incrémentais avec la macro suivante:

ActiveCell.Value = ActiveCell.Value + 1

Je suis désormais obligé de faire précéder ce nombre par deux lettres du
style: SP2541

Je n'arrive pas à modifier la macro pour passer de SP2541 à SP2542.

Une petite idée?

Merci.

SaxBob



Avatar
RGI
Bonjour

Comme ceci

ActiveCell.Value = "SP" & ActiveCell.Value + 1

Salutations

RGI



Bonjour à toutes et tous et Bonnes Fêtes de fin d'année!

Voici le problème. Dans une cellule au format standard, j'avais jusqu'à
présent un nombre de 4 chiffres que j'incrémentais avec la macro suivante:

ActiveCell.Value = ActiveCell.Value + 1

Je suis désormais obligé de faire précéder ce nombre par deux lettres du
style: SP2541

Je n'arrive pas à modifier la macro pour passer de SP2541 à SP2542.

Une petite idée?

Merci.

SaxBob




Avatar
SaxBob
Merci pour cette réponse ultra rapide.

On a certes progressé puisque avec cette macro je peux passer de SP2541 à
SP2542 mais (car il y a malheureusement un mais) si la valeur de départ est
SP0003, je passe alors à SP4 (les "0" disparaissent). Et bien sur,
j'aimerais garder ces "0".


Le 29/12/06 17:56, dans #, « Jacky »
a écrit :

ActiveCell = Left(ActiveCell, 2) & Mid(ActiveCell, 3, Len(ActiveCell)) + 1


Avatar
SaxBob
Bonjour et merci de votre intérêt.

Le SP et le nombre à incrémenter sont collés dans la même cellule et votre
formule m'amène une erreur 13: Type incompatible.

SaxBob


Le 29/12/06 18:01, dans #, « RGI »
a écrit :

ActiveCell.Value = "SP" & ActiveCell.Value + 1


Avatar
RGI
ActiveCell = Left(ActiveCell, 2) & Format(Mid(ActiveCell, 3,
Len(ActiveCell)) + 1, "0000")

RGI


Merci pour cette réponse ultra rapide.

On a certes progressé puisque avec cette macro je peux passer de SP2541 à
SP2542 mais (car il y a malheureusement un mais) si la valeur de départ est
SP0003, je passe alors à SP4 (les "0" disparaissent). Et bien sur,
j'aimerais garder ces "0".


Le 29/12/06 17:56, dans #, « Jacky »


ActiveCell = Left(ActiveCell, 2) & Mid(ActiveCell, 3, Len(ActiveCell)) + 1







Avatar
SaxBob
Ah que bravo!!!
Merci beaucoup. Je m'en va boire un coup à votre santé et vous souhaiter une
très bonne année. (Pas la peine de demander à jps s'il veut se joindre à moi
pour ce toast, tel que je le connais, il m'a sans doute déjà devancé...)

SaxBob


Le 29/12/06 18:20, dans , « RGI »
a écrit :

ActiveCell = Left(ActiveCell, 2) & Format(Mid(ActiveCell, 3,
Len(ActiveCell)) + 1, "0000")


Avatar
Jacky
Re...
j'aimerais garder ces "0".
'----------

ActiveCell = Left(ActiveCell, 2) & Format(Mid(ActiveCell, 3,
Len(ActiveCell)) + 1, "0000")
'------------
--
Salutations
JJ



"SaxBob" a écrit dans le message de news:
C1BB0A37.90FF%
Merci pour cette réponse ultra rapide.

On a certes progressé puisque avec cette macro je peux passer de SP2541 à
SP2542 mais (car il y a malheureusement un mais) si la valeur de départ
est
SP0003, je passe alors à SP4 (les "0" disparaissent). Et bien sur,
j'aimerais garder ces "0".


Le 29/12/06 17:56, dans #, « Jacky »

ActiveCell = Left(ActiveCell, 2) & Mid(ActiveCell, 3, Len(ActiveCell)) +
1





Avatar
jps
;-))))
ah! ces marseillais, toujours le mot qui vous arrache le coeur, peuchère
tu vas bien, bernard? tu classes tes morceaux un par un maintenant??????
jps

"SaxBob" a écrit dans le message de news:
C1BB0EA6.910E%
Ah que bravo!!!
Merci beaucoup. Je m'en va boire un coup à votre santé et vous souhaiter
une
très bonne année. (Pas la peine de demander à jps s'il veut se joindre à
moi
pour ce toast, tel que je le connais, il m'a sans doute déjà devancé...)

SaxBob


Le 29/12/06 18:20, dans , « RGI »

ActiveCell = Left(ActiveCell, 2) & Format(Mid(ActiveCell, 3,
Len(ActiveCell)) + 1, "0000")





Avatar
SaxBob
Salut jps

Tu utilises les smileys maintenant!! :-))))))))))))))))))))))

Non non, je te prépares seulement un fichier pour numéroter tes abattis en
prévision d'un prochain tournoi de pétanque (Fanny me fait dire que tu lui
manques...).

Une petite que tu as peut être déjà sur tes tablettes.

Un jeune juif dit à sa mère:

"Maman, toi qui dit me connaître par coeur, je vais t'amener à dîner la
fille que j'ai décidé d'épouser accompagnée de deux de ses copines. Je te
laisse deviner laquelle est l'heureuse élue. Le soir venue, le fils arrive
avec les trois filles qui paraissent être jumelles tant elles se
ressemblent. L'une en robe jaune, l'autre en robe rouge et la dernière en
robe verte. A la première occasion, le fils rejoint sa mère dans la cuisine
et lui demande avec un sourire moqueur:
- Alors maman, voyons si tu me connais aussi bien que tu le prétends.
Laquelle vais-je épouser?
La mère sans hésiter répond:
- Celle avec la robe jaune!
Et le fils atterré:
- Mais maman! Comment as-tu fait?
- Je sais pas; je l'aime pas...

Gerald Ford, James Brown, Pierre Delanoë, Jacques Crozemarie et maintenant
Anne-Marie Carrière... Couvre toi bien avant de sortir jps.

SaxBob

Le 29/12/06 18:32, dans , « jps »
a écrit :

;-))))
ah! ces marseillais, toujours le mot qui vous arrache le coeur, peuchère
tu vas bien, bernard? tu classes tes morceaux un par un maintenant??????
jps

"SaxBob" a écrit dans le message de news:
C1BB0EA6.910E%
Ah que bravo!!!
Merci beaucoup. Je m'en va boire un coup à votre santé et vous souhaiter
une
très bonne année. (Pas la peine de demander à jps s'il veut se joindre à
moi
pour ce toast, tel que je le connais, il m'a sans doute déjà devancé...)

SaxBob


Le 29/12/06 18:20, dans , « RGI »

ActiveCell = Left(ActiveCell, 2) & Format(Mid(ActiveCell, 3,
Len(ActiveCell)) + 1, "0000")