augmenter le chiffre dans une chaine de caractere Fermé

Question

Bonjour, 
je voudrais incrementé de 1 la chaine suivante :
photo n°001
donc
photo n°002
etc...
c'est une chaine alphanum et lien hypertexte pointant vers une photo!
merci

via55 · Answer

Bonsoir

Avec photo n°001 en A1, en A2 la formule :
=GAUCHE(A1;NBCAR(A1)-NBCAR(CNUM(DROITE(A1;3))+1))& CNUM(DROITE(A1;3))+1
A étirer ensuite vers le bas

Cdlmnt
Via

Raymond PENTIER · Answer

Tu peux aussi cliquer dans A1 et tirer la poignée (coin en bas à droite).
Si le texte se répète à l'identique, clique sur le pictogramme "Options de copie incrémentée" et choisis la deuxième option "Incrémenter une série" à la place de "Copier les cellules".

Raymond PENTIER · Answer

Il existe une troisième solution : sélectionner les cellules concernées, faire 
Format de cellule / Nombre / Personnalisée et saisir comme type
"photo N°"000 
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)

Raymond PENTIER · Answer

Ton message #5 -> 
Le pictogramme, c'est ça :  

Je précise que la recopie incrémentée n'a aucun effet sur les liens hypertextes, qu'il faut fabriquer un par un !

Maurice · Answer

Bonjour
Voila une macro pour les lien Hypertextes dans la colonne A

Sub TestHyperlink()
Chemin = ActiveWorkbook.Path & Application.PathSeparator
   Nlig = Range("A" & Rows.Count).End(xlUp).Row + 1
   S = Range("A" & Nlig - 1).Value
   T = Split(S, "°")(1)
   CheminFiche = Chemin & "photo n°" & Format(T + 1, "000")
   Range("A" & Nlig).Value = "photo n°" & Format(T + 1, "000")
   ActiveSheet.Hyperlinks.Add Range("A" & Nlig), CheminFiche & ".jpg"
End Sub

A+
Maurice

Augmenter le chiffre dans une chaine de caractere

5 réponses

Discussions similaires