Fonction Excel incrémentation automatique???VBA excel URGENTRésolu

Question

Bonjour,je voulais savoir s'il y avait une fonction dans excel qui permettrait d'augmenter un num&#233;ro de devis par exemple automatiquement??
C'est pour mon projet de stage,j'effectue des devis,j'ai fait la pr&#233;sentation du devis et le num&#233;ro du devis doit se trouver dans la celllule "AB2".Existe il une fonction pour mon probl&#232;me?une fonction qu'on pourrait mettre dans la cellule?
MERCI D'AVANCE.

sacha1435 · Answer

Bonjour erti,

Quel excel ? si tu a Xl97 il y a pas mal d'exemple dans le dossier "SAMPLE" et tu y trouveras ton bonher.

Sinon, il y a plusieur m&#233;thode avec ou sans VBA, le mieux est de nous donner ta m&#233;thode et eventuellement un bout du code VBA.

Car pour le moment la question est tr&#232;s vaste :-)

Sacha
  \!/
    00
     !

erti1711 · Answer

J'ai la version Offici XP,

sacha1435 · Answer

Bonjour je suppose que tu a un template devis avec lequel tu commence un devis,
dans ce document type a la cellule AB2 tu met la valeur 0.
dans  le module thisworkbook tu place ce code.

Private Sub Workbook_Open()
Dim cel As Range
Set cel = ThisWorkbook.Sheets(1).Range("AB2")
cel.Value = cel.Value + 1


End Sub

ici on d&#233;clanche l'incr&#233;mentation a l'ouverture du workbook, mais tu peux le faire sur la sauvegard ou tout autre &#233;venement.

j'esp&#232;re que cela pourat t'aider.

Sacha

  \!/
    00
     !

erti1711 · Answer

Bonjour Sacha1435,voici le code que tu m'avais fournis en MP.Je le met sur le forum,il marche nikel.Merci



Sub test()
Set cel = ThisWorkbook.Sheets("Sheet1").Range("AB2") 'le num apparait ds la cellule AB2
    i = Right(cel, Len(cel) - 2)
    i = i + 1
   cel.Value = "DE" & i  'le num commence par DE.....
End Sub

Fonction Excel incrémentation automatique???VBA excel URGENT

4 réponses

Discussions similaires