Trouver valeur dernière cellule et ajouter +1

Bonjour,

Je souhaiterais générer automatiquement des numéro en colonne "A" en cliquant sur un commandButton

Pour ce je souhaiterais prendre la valeur de la dernière cellule non vide y ajouter "1" et le coller dans la dernière cellule vide.

Je n'arrive pas à compiler les brides de codes que j'ai trouvé sur le net pour que cela fonctionne.

En soit ça donnerais quelque chose comme :

A1: 2014-001

A2: 2014-002

A3: 2014-003

Merci pour le coup de main.

Bonjour

A tester

Private Sub CommandButton2_Click()
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = "2014-" & Format(Application.CountIf(Columns("A"), "2014-*") + 1, "000")
End Sub

Une fois de plus merci.

Bonjour Banzaï,

Si je voulais appliquer ton code à un autre classeur que celui qui contient le bouton de commande je fais comment??

Les deux classeurs sont ouverts.

Je n'arrive pas à appliquer le +1!!!!!

Merci

Bonjour

Il faut nommer le classeur et la feuille

Un truc dans ce style

Private Sub CommandButton2_Click()
  With Workbooks("Classeur").Sheets("Feuille")
    .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = "2014-" & Format(Application.CountIf(.Columns("A"), "2014-*") + 1, "000")
  End With
End Sub

Effectivement je n'avais pas utilisé la bonne façon poour appeler mon classeur.

Merci;

J'ai du mal à voler de mes propres ailes....

Quand tout se trouve sur la même feuille, j'y parviens tant bien que mal.

Les différents codes fournis, fonctionnent parfaitement.

Mais en dernir ce que j'aimerais c'est récupérer 2014-00+1 et alimenter une textBox.

Donc je clique sur le bouton de commande qui crée 2014-00+1, se renseigne au bon endroit jusque là pas de soucis.

Ensuite je voudrais récupérer ce nouveau chiffre et alimenter un textBox qui se situe sur la même feuille que mon bouton de commande.

Je sais pas si je suis clair..., je peux fournir un classeur test bien sur.

Merci,

Bonjour

JeremyW a écrit :

je peux fournir un classeur test bien sur.

Ah oui que voilà une bonne idée

Indiques bien ce que tu veux obtenir

Je souhaiterais en cliquant sur mon commandButton créer un nouveau numéro d'affaire (ce qui fonctionne déjà, merci) et pouvoir le récupérer dans la textBox

Bonjour

Je t'ai modifié la macro

-Fermeture du fichier

Private Sub CommandButton1_Click()
Dim Numero As String

  Application.ScreenUpdating = False
  With Workbooks.Open(Filename:=ThisWorkbook.Path & "\jeremy.xls")
    With .Sheets("Feuil1")
      Numero = "2014-" & Format(Application.CountIf(.Columns("A"), "2014-*") + 1, "000")
      .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Numero
      Me.TextBox1 = Numero
    End With
    .Close savechanges:=True      ' Il se ferme mais en s'enregistrant
  End With
End Sub

Merci beaucoup !!!

Bonjour Banzaï,

Je me permet de rouvrir un file qui est clôturé depuis un moment.

A l'utilisation, je me suis rendu compte d'une petite déconvenue.

Si les numéros se suivent, pas de soucis, le programme fonctionne parfaitement.

Cependant, si le dernier numéro ne se trouve pas à la suite des autres, ce qui peut arriver, le programme n'en tient pas compte.

Penses-tu qu'il soit possible de remédier à ce soucis.

Par avance je te remercie pour le temps que tu prendras

Bonjour

JeremyW a écrit :

Penses-tu qu'il soit possible de remédier à ce soucis.

Quel est la liste des numéros que tu veux obtenir en fonction du fichier que tu as posté

Je ne suis pas sur d'avoir bien compris ta question.

Jeremy est le fichier qui sert de base.

Avec créer n° d'affaire, je crée un nouveau numéro dans 'jeremy' sous le format 2014-000 à la suite du dernier.

Ton programme fonctionne parfaitement si la liste est complète, seulement à l'utilisation, certains numéros sont amenés à disparaitre.

Bonjour

Oui j'avais compris que certains numéros ont disparu

Mais avec le fichier que tu as fourni quel est(sont) le(s) numéro(s) qui doit(vent) sortir si on clique sur le bouton ?

Le bouton ne me sert qu'à créer une nouveau numéro et à l'extraire.

Les numéros qui sont amenés à disparaitre le seront de façon manuelle au fur et à mesure de leur état d'avancement

Bonjour

Tu n'as pas envie de répondre à ma question

Si j'appuie sur le bouton quel numéro (2014-.....) je dois obtenir avec le fichier que tu as fourni

Ton prochain message doit impérativement me donner le numéro

C'est vrai que mon exemple n'est pas très explicite.

Si on prend mon exemple, je devrais trouver 2014-036.

Donc générer un numéro +1 par rapport au dernier déjà inscrit

Bonjour

On y arrive enfin

Merci Banzaï et désolé pour le temps perdu à tenter de se comprendre.

Si je peux pousser un peu, j'aimerai déclarer 2014 comme une variable "année en cours".

De façon à ce qu'au premier janvier ça bascule en 2015.

J'essai tant bien que mal, mais je ne trouve pas la solution pour décliner l'année

En tous cas merci pour ton aide toujours aussi efficace