Formule dans excel

Fermé
coccinnelle78 Messages postés 2 Date d'inscription samedi 20 février 2016 Statut Membre Dernière intervention 22 février 2016 - 20 févr. 2016 à 19:38
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 22 févr. 2016 à 20:56
Bonjour,

Je me permets de vous solliciter de l'aide car je n'arrive pas à trouver de solution.
Dans une de mes colonnes excel, je souhaiterais que toutes les personnes ayant accès à ce tableau, saisissent de la même façon ex: STA-PES-2016 et qu'un numéro d'incrémentation se fasse automatiquement
Qu'elle formule dois-je appliquer?
Merci pour votre aide
Delphine

3 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 711
20 févr. 2016 à 22:24
Bonjour,

Ce que tu demande ne correspond pas aux caractéristiques d'excel (ou d'un autre tableur d'ailleurs). En effet si tu mets une formule dans une cellule, la saisie d'une information dans la cellule va écraser la formule.
Tu ne peux obtenir cela que grâce à une macro.
0
coccinnelle78 Messages postés 2 Date d'inscription samedi 20 février 2016 Statut Membre Dernière intervention 22 février 2016
22 févr. 2016 à 11:26
Bonjour,

Merci pour ton explication.
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
22 févr. 2016 à 18:34
Bonjour

Comme te l'a dit gbinforme (salut à toi en passant), il n'y a qu'une macro pour faire ça
Un exemple de ce que ça pourrait donner
http://www.cjoint.com/c/FBwrHfDDLfW

Cdlmnt
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
Modifié par ccm81 le 22/02/2016 à 21:06
Une erreur à corriger
lignes à remplacer:
  If s Is Nothing Then
Target.Value = Target.Value & sep & Left(fin, Len(fin) - 1) & "1"
Else
n = Right(s, Len(fin)) + 1
fins = String(Len(fin) - 1 - Round((Log(n) / Log(10))), "0") & n
Target.Value = nom & sep & fins
End If

Cdlmnt
0