incrementer une cellule d'ont les nombres sont espasers

Bonsoir
est ce qu'on peu ajouter 1 a une cellule qui contiend de l'espace entre les chifres exp : 2 0 1 9
il ya de l'espace entre les chiffre.
comment est ce qu'on peu faire en vba excell 2007
merci d'avance

Bonjour,

Si j'ai compris

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Plus1(Entree As String) As String Dim Nb As Long Nb = CLng(Replace(Entree, " ", "")) Plus1 = Format(Nb + 1, "# # # 0") End Function     Sub test() MsgBox Plus1("2 0 1 9") End Sub

---

Bonjour

La solution est différente selon que :
- la valeur (sa propriété) Value de la cellule est un nombre entier de 4 chiffres et que le format de la cellule fait qu'il s'affiche sous la forme "# # # #"
ou que
- la cellule contient du texte exprimé sous la forme de 4 chiffres séparés par un espace .

Or, ton message n'éclaire pas cet aspect.

Bonjour
Oui vous avez raison
je m'explique : j'ai une cellule [A837] dont le contenu est : 10 espaces puis 2 puis espace puis 0 puis espace puis 1 puis espace puis 9;soit
[A837] = : 2 0 1 9 et j'ai une macro mois suivant et je fait un test sur le mois si = 12 alors il faut ajouter 1 a [A837]
l'orsque j'ecrit : [A837].value=[A837]+1 ca ne marche pas comment est ce q'uon peu ajouter 1 a [A837]?
merci d'avance.

Bonjour

Citation:

---

Envoyé par hakim-r

je m'explique : j'ai une cellule [A837] dont le contenu est : 10 espaces puis 2 puis espace puis 0 puis espace puis 1 puis espace puis 9

---

Et tu pourrais nous expliquer pourquoi tu te compliques la tâche avec tes 13 espaces ?

à part une superstition avec 13 je n'en comprends pas l'intérêt alors qu'un format ferai parfaitement l'affaire.

Je plussoie anasecu, que je salue au passage.

Nonobstant (en imaginant que cette donnée soit le résultat subi d'une importation), voila l'une des dizaines de manières possibles de traiter.
Exemple :

Code:

---

1 2 3

Range("A1").Value = ": 2 0 1 9" pos = InStrRev(Range("A1").Text, " ") Range("A2").Value = ": " & Format(Val(Mid(Range("A1").Text, pos)) + 1, "# # # #")

---

Bonjour
oui ca marche bien avec le code que vous m'avez envoyer
merci et bonne journée

Citation:

---

Envoyé par hakim-r

Bonjour
oui ca marche bien avec le code que vous m'avez envoyer
merci et bonne journée

---

si c'est possible m'envoyer une autre code car en passant de 2020 a 2021 ne fonctionne pas
faut-il changer Range("A1").Value = ": 2 0 1 9" par Range("A1").Value = ": 2 0 2 0" manuellement? je que ça ce fait automatiquement
pardon si je vous dérange.

Il t'appartient d'analyser et d'adapter en fonction de ce que tu veux faire, à savoir :
1) où se trouve la donnée à incrémenter
et
2) où mettre le résultat de l'incrémentation.

J'estime personnellement que je t'en ai indiqué suffisamment pour te laisser maintenant seul.