Comment générer un numéros automatiquement

Bonjour,

j'utilise excel comme gabarit pour produire des soumissions et factures pour ma petite entreprise. J'aimerais savoir si il existe un moyen de générer un numéros toujours différent, si possible séquentiel pour chaque nouveau document. En ce moment j'utilise la date + un nombre. Exemple : 291211-01 Pour le premier contrat du 29 décembre 2011. Mais j'aurais aimé une façon plus simple.

Merci,

Nicolas

Bonjour

nic74 a écrit :

Mais j'aurais aimé une façon plus simple

Simple cela veut dire quoi ?

Avec une macro

merci pour cette application; moi aussi je suis intéréssé

Banzai64 a écrit :

Bonjour

nic74 a écrit :

Mais j'aurais aimé une façon plus simple

Simple cela veut dire quoi ?

Avec une macro

Merci pour la macro,

• est-ce que ça peut se faire seulement pour une cellule, pas sur le document au complet?
• est-ce que ça peut se générer seul ou je dois absolument faire le n1 ?

Quand je disais plus simple, je voulais dire qu'en ce moment je le fais manuellement. J'écris la date et ajoute un numéros.

Merci beaucoup,

Nicolas

Bonjour

A voir si une méthode te convient

Merci !!!

Bonjour

Est-ce que il ya une possibilité d’utiliser la fonction « SI » avec la macro..?

parceque je n'arrive pas a généralisé pour toute la colone A.( voir votre exemple ci joint)

Merçi

Bonsoir

La macro n'est pas prévu pour

Mais on peut la modifier que si il y a une modification de la colonne B , cela inscrive/efface le numéro en colonne A

Code à coller dans le module de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns("B"), Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
      Target.Offset(0, -1) = "N" & Format(Now, "ddmmyyhhmmss")
    Else
      Target.Offset(0, -1).ClearContents
    End If
  End If
End Sub

SAlut

Merci ça fonctionne tres bien et je pense c'est la meilleur réponse pour notre ami

Banzai64 a écrit :

Bonsoir

La macro n'est pas prévu pour

Mais on peut la modifier que si il y a une modification de la colonne B , cela inscrive/efface le numéro en colonne A

Code à coller dans le module de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns("B"), Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
      Target.Offset(0, -1) = "N" & Format(Now, "ddmmyyhhmmss")
    Else
      Target.Offset(0, -1).ClearContents
    End If
  End If
End Sub

SAlut

Merci ça fonctionne tres bien et je pense c'est la meilleur réponse pour notre ami

Bonsoir

Merci pour votre aide , svp autres question tjr dans la mémé macro: comment faire remplacé le "ddmmyyhhmmss" par un chiffre ( commence par 1) et après il s'incrément

Bonsoir

sidah.med a écrit :

Merci ça fonctionne tres bien et je pense c'est la meilleur réponse pour notre ami

C'est plutôt à Nic74 de le dire non ?

Mais pour toi si le numéro généré est toujours en colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns("B"), Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
      Target.Offset(0, -1) = Application.Max(Columns(1)) + 1
    Else
      Target.Offset(0, -1).ClearContents
    End If
  End If
End Sub