Incrémenter +1 une cellule sous format Text

Bonsoir,

J'aimerai incrémenter de +1 une cellule hébergeant du texte.

Je m'explique, dans la cellule je parviens à incrémenter de +1 un nombre, par contre j'aimerai appliquer une syntaxe de ce style (FRA_AHR_1) dans ma cellule et l'incrémenter systématiquement de +1 ... Comment dois je faire Svp ?

ci dessous le code.

Merci.

Code:

---

1 2 3

Sub avec_imprimer_2_copies() Sheets("Bon de Livraison").Range("I1").Value = Sheets("Bon de Livraison").Range("N1").Value Sheets("Bon de Livraison").Range("N1").Value = Sheets("Bon de Livraison").Range("I1").Value + 1

---

Bonsoir,

Code:

---

1 2	t=Split(FRA_AHR_1,"_") V=replace("FRA_AHR_1","_" & t(ubound(t)),"_" & cint(t(ubound(t)))+1)

---

'soir !

Code:

---

1 2 3 4 5 6

With Worksheets("Bon de Livraison") SP = Split(.[N1].Value, "_") SP(UBound(SP)) = SP(UBound(SP)) + 1 .[I1].Value = .[N1].Value .[N1].Value = Join(SP, "_") End With

---

_________________________________________________________________________________________________________

   :arrow:  Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

… Nuit ! ;)

Code:

---

1 2 3 4

With Worksheets("Bon de Livraison") .Range("I1").Value = .Range("N1").Value: N$ = .Range("I1").Value .Range("N1").Value = Left(N, InStrRev(N, "_")) & Mid(N, InStrRev(N, "_") + 1, Len(N)) + 1 End With

---

petite variante qui mixte les codes :

Code:

---

1 2 3 4

With Worksheets("Bon de Livraison") .Range("I1").Value = .Range("N1").Value: N$ = .Range("I1").Value .Range("N1").Value = Left(N, InStrRev(N, "_")) & Split(N, "_")(UBound(Split(N, "_"))) + 1 End With

---

Bonjour
Du rigolo pour rire un peu avant la pêche :

Code:

---

1 2 3

prefix = prefix & " " Mid(prefix, 9, 7) = Format(Val(Mid(prefix, 9, 7)) + 1, "#####") prefix = Trim(prefix)

---

où prefix est une variable = par exemple "FRA_AHR_12"

Salut Jacques ;),
j'aurais jamais pensé à faire une variante de ce genre,
comme quoi tout les chemins mènent à Rome
:plusser:

Edit : PS : si vous me voyez moins normal, moins de temps :( et là je suis sur du shell (terminal OS X )et de l'Applescript

Bonjour Robert
Déjà debout ? Tu vas toi aussi à la pêche ?

Bon on va en faire une petite fonction --->>

Code:

---

1 2 3 4 5

Private Function avanti(Q As String, P As String) As String Q = Q & " " Mid(Q, Len(P) + 1, 7) = Format(Val(Mid(Q, Len(P) + 1, 7)) + 1, "#####") avanti = Trim(Q) End Function

---

Exemples d'appel :
MsgBox avanti("FRA_AHR_1", "FRA_AHR_")
MsgBox avanti("FRA_AHR_472", "FRA_AHR_")


Amitiés à toi.

EDIT : c'est mieux après un café bien serré --->>
Un peu d'universel (et de plus réfléchi) --->>

Code:

---

1 2 3 4 5

Private Function avanti(Q As String, sep As String) As String P = InStrRev(Q, sep) Mid(Q, P + 1, 7) = Val(Mid(Q, P + 1, 7)) + 1 avanti = Q End Function

---

Exemple d'appels :

Code:

---

1 2 3 4

MsgBox avanti("FRA_AHR_1", "_") MsgBox avanti("La.Louvine/14", "/") MsgBox avanti("n'importe quoi@271", "@") MsgBox avanti("toto-1274", "-")

---

Comme quoi, il faut savoir prendre le temps de se réveiller ...