Discussion :

[bilou95650]

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 :

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

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

[Invité]

Bonsoir,

Code :

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

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

[Marc-L]

'soir !

Code :

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

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

_________________________________________________________________________________________________________

     Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

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

[RyuAutodidacte]

… Nuit !

Code :

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

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 :

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

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

[unparia]

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

Code :

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

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"

[RyuAutodidacte]

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


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

[unparia]

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

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

Code :

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

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 :

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

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 :

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

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 ...