XL 2016 [ Résolu ] Formule VBA Incrément collone

[tsaout]

Dans un fichier excel je souhaiterais que la colonne A s'incrémente de 1 sans forcément de limite a chaque saisie dans la ligne.
Le but est que l'utilisateur arrive sur le fichier rentre les informations dont il dispose dans une ligne et à la saisie d'informations dans la dite ligne afficher l'ID incrémenter

 

[job75]

Bonjour tsaout, bienvenue sur XLD,

Comme dans la vraie vie, en entrant on dit bonjour, la Charte du forum le rappelle.

Organisez votre tableau en tableau structuré (menu Insertion => Tableau), voyez le fichier joint.

S'il y a des données en colonne A effacez-les et entrez en A2 la formule :

=MAX(A$1:DECALER([@Titre1];-1;))+1

A+

 

[tsaout]

Bonjour, désolé pour le message sans bonjour ni rien un peu pressé par la masse de boulot que j'avais mais un grand merci de la réponse rapide je pense que c'est une partie de la réponse mais en gros le but est que si un utilisateur rentre une données dans une cellule de la colonne B à AA la ligne qui comprend cette cellule prenne en colonne A un ID incrémenter automatiquement (un tri étant effectué sur un champ de date les ID ne sont pas dans l'ordre dans la colonne A) ceci afin de faciliter la vie de mes utilisateurs.

Encore désolé et à bientôt

 

[Santulud]

bonjour le fil,

@tsaout tu cherches a savoir combien de cellule sont non vide de la colonne B à AA ?

 

[tsaout]

Bonjour,

Non enfaite je cherche juste a ce que dès qu'une donnée est rentrée dans une des colonnes B à AA la colonne A prenne une valeur (un ID) qui serait incrémenté automatiquement.

exemple : je saisi quelque chose en Y3 la cellule A3 prendrait un ID, même chose si la cellule était W3 ou C3

 

[patricktoulon]

bonjour
a supposer que ton tableau commence en ligne 1

en A2 tu met

=SI(NB.SI(B2:AA2;"*")>0;A1+1;"")

et tu entends la formule vers le bas

 

[tsaout]

Bonjour,

Du coup je pense que excel n'arrive pas à calculer la formule car dans les cellules de la ligne il peut y avoir du texte, des dates ou autre

 

[Santulud]

essaye simplement avec :

=nbval(B2:AA2)


???

 

[job75]

Bonjour à tous,

les ID ne sont pas dans l'ordre dans la colonne A

Cela entraîne qu'on ne peut pas utiliser des formules pour calculer les ID en colonne A, il faut du VBA.

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
With ListObjects(1).DataBodyRange 'tableau Excel structuré
    Set Target = Intersect(Target.EntireRow, .Columns(1))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target
        If IsEmpty(Target) Then Target = Application.Max(.Columns(1)) + 1
    Next
    Application.EnableEvents = True
End With
End Sub

Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

A+

 

[tsaout]

Merci beaucoup job,

Fichier test qui fonctionne nickel par contre je n'arrive pas à l'appliquer à mon fichier une commande VBA est déjà en oeuvre dessus peut être que cela gêne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A345:A1000]) Is Nothing Then
Target(1, 2) = Now
End If
End Sub

Mais sinon c'est bien le principe que j'essaye de réaliser (si en plus le décompte pouvait commencer a 344)

 

[job75]

Il faudrait joindre votre fichier mais a priori le code de votre post #10 ne vaut pas grand-chose.

 

[tsaout]

Bonjour,

Ci-joint mon tableau.

Merci de prendre le temps de m'aider

 

[patricktoulon]

Bonjour
quand on travaille avec un tableau structuré je ne vois pas l'interet d'avoir des lignes vides
le tableaux doit se limiter au nombre de ligne utiles qu'il soit évolutif ou non
sinon je ne vois pas l’intérêt de l'utiliser autant utiliser un range normal
pour ton incrementation test nb.si et met lui ligne() - laligne du depart du tableau
enfin ton exemple n'est pas très représentatif de ton besoins
+ de 300 lignes vides dans un tableau structuré c'est insensé

 

[tsaout]

De base le tableau n'est pas en structuré mais je l'ai fait suite aux test et les informations de mon tableau recensant des date d'arrivées des nom etc je ne peut absolument joindre ces informations a mon exemple. Après le but est de pouvoir avoir un ID qui s'incrémente a partir de la ligne 345. Merci de tes conseils mais NB.SI ne correspond pas

PS : Pour les lignes vides c'est juste que j'utilise certaines formules dans des collones masquées et que donc j'en ai besoin

 

[job75]

Bonjour tsaout, patricktoulon, le forum,

En effet votre tableau n'a vraiment aucun sens.

Alors pour entrer les "Now" voyez le fichier (2) joint qui lui tient la route et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
With ListObjects(1).DataBodyRange 'tableau Excel structuré
    Set Target = Intersect(Target.EntireRow, .Columns(1))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target
        If IsEmpty(Target) Then Target = Application.Max(.Columns(1)) + 1: Target(1, 2) = Now
    Next
    Application.EnableEvents = True
End With
End Sub

Bonne journée.