Incrementation

JSCH19 -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je travaille sur Excel depuis un bon bout de temps,je travaille sur un numero de facture qui comprend des lettres au debut et un numero au milieu et le mois a la fin comme:FACT-001-OCT et tout ce que j'ai fait pour arriver a le faire c'est casi impossible pour moi de l'incrementer,j aimerais que vous m'aidez svp.

Configuration: Windows / Internet Explorer 11.0

4 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonsoir,

    Dès le départ j'avais compris un manque de clarté et de terme mal exprimé comme incrémentation qui est plus utilisé dans le fait de déplacer des données ou formules par un cliqué/glissé
    dans ton cas tu aurais parler d'incrémenté un compteur aurait été plus parlant et aurait permis de partir directement sur du VBA

    en VBA il faut connaitre le langage ou chaque signe à son importance comme les guillemets
    regarde ta ligne de commande
    Sheets("ventes").Range("B2").Value = Sheets("ventes").Range("B2").Value + 1

    et tu crées un format personnalisé en B2
    "FACT-"000"-OCT"

    Mais pourquoi passer par du VBA, il suffit de créer le format personnalisé et saisir simplement le numéro de facture 1 ou 2 etc et tu auras FACT-"001"-OCT, FACT-"002"-OCT etc
    2
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour
    dans la cellule de la 1° ligne à numéroter:
    ="FACT-"&TEXTE(LIGNE(A1);"000")&"-OCT"
    crdlmnt
    0
    1. Jsch19
       
      J’ai fait tout ca mais le numéro ne change pas
      0
    2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      C'est curieux ! J'ai essayé, à mon tour, et ça marche parfaitement !
      Fais un copier-coller de la formule, au lieu de la saisir au clavier.
      Mais surtout, il faut la saisir dans la cellule A1 ! ...
      0
    3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      bonjour
      Non, comme la formule fait référence à LIGNE(A1) pour le premier rang, elle peut être collée n'importe où dans la feuille.(et c'est le but) C'est seulement lorsqu'on utilise LIGNE() sans adresse qu'elle renvoie le N° de ligne qui la contient.
      0
    4. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      Tout-à-fait exact !
      J'ai été un peu trop pressé, et pas assez attentif ...
      Merci, ami Vaucluse, et à bientôt.
      0
  3. via55 Messages postés 14392 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour à tous

    Autre possibilité :
    Ne rentrer que les nombres dans les cellules 1, 2 etc que tu peux incrémenter en tirant vers le bas ou par formule style =A1+1
    Mettre les cellules en Format personnalisé et entrer comme type : "FACT-"000"-OCT"

    Cdlmnt
    Via
    0
  4. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    Bonjour à tous

    Changement du mois en automatique

    ="FACT-"&TEXTE(LIGNE(A1);"000")&"-"&CHOISIR(MOIS(MAINTENANT());"JAN";"FEV";"MAR";"AVR";"MAI";"JUN";"JUL";"AOU";"SEP";"OCT";"NOV";"DEC")
    0
    1. Jsch19
       
      Bonjour,j ai un petit problème,depuis plus de deux jour je travaille pour incrémenter un No de facture j’y suis parvenu mais cela ne me suffit pas puisque je veux que mon numéro comprenne Des lettres-numero-mois ex:FACT-001-OCT mon problème n est pas de le mettre dans une celule avec des formules j ai essayer et j’y suis parvenu,je compte utiliser cette facture pour effectuer des Ventes donc j ai fait une Macro et c est la que je n’arrive pas a incrémenter la facture après chaque Vente.j ai crée une fonction qui m’a permis de l’obtenir... function (numero,Date)
      Debut=‘’FACT-‘’
      Milieu=Format(Mid(numero,6,3)+1,’’000 ‘’)
      Fin=‘’-‘’&UCase(format(Date,’’MMM’’))
      Nouveaunum=Debut&Milieu&Fin
      Mais maintenant la mon problème c est de l’incrementer en VBA parce que cela me donne une erreur quand je fais ; sheets (‘’ventes’’).range(‘’b2’’).value=Sheets(‘’ventes ‘’).range(‘’b2).value +1
      0
    2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
       
      Tu aurais pu préciser dès le départ que c'était une macro ...
      0