Numerotation index

Bonjour à tous,

Je suis sur un projet avec une colonne Index que je voudrai incrémenter à chaque saisie.

Faut-il créer une macro ou un MFC.

Merci pour vos bons et loyaux supports techniques

bonjour,

La question ne se pose même pas ! Ce sera macro...

A+

Bonjour à tous,

Galopin merci du tuyau. Mais je ne sais pas faire cette MACRO.

Peux tu me donner encore un petit tuyau.

ma colonne Index se trouve en colonne A

Merci d'avance

Amicalement

Noel

Bonjour à tous,

Noel, il me semblait qu'on avait fait le tour du sujet sur ce fil :

https://forum.excel-pratique.com/viewtopic.php?t=8394&start=10&postdays=0&postorder=asc&highlight=

  Range("e17") = Range("TABLEAUBQ!b65536").End(xlUp) + 1 'prochain N°

Tu adapte à ton nouveau besoin.

Amicalement

Claude.

Bonjour à tous,

Claude je te remercie de me le rappeler mais je savais qu'on pouvais le faire comme cela. Mais ça se passe sur le même tableau donc le code que tu me fournis je ne vois vraiment pas comment l'adapter en saisie de ligne par ligne dans le même tableau.

Tu te rends peut-être compte de ma nullité il faudrai que j'achète le livre Excel pour les nuls mais je l'avais déjà feuilleté ce n'est pas expliqué comme sur ce forum.

Merci

Noel

re,

Tu sais, les livres ne t'apporterons qu'une étagère de + dans ta bibliothèque !

Bon, fais voir ta feuille et ton code ou tu veux incrémenter.

Claude.

Re,

Je t'expédie le fichier.

Je voudrai quand je saisie à partir de la colonne B

que la colonne A "Index" s'incrémente automatiquement

Merci d'avance

Amicalement

Noel

https://www.excel-pratique.com/~files/doc/6AosRClasseur1.xls

re,

Je ne vois aucun code !

il manque la feuille "Saisie" pour remplir une nouvelle ligne dans 'Base_fiche"

comment tu fais, actuellement ?

à suivre

Claude.

Bonjour,

n'ayant pas tout suivit,une possibilité avec SI.

Essaie et dis quoi.

en A3=SI(B3<>"";1;"")

en A4 =SI(B4<>"";A3+1;"") formule en A4 que tu tires vers le bas.

Donc quand tu écris dans la colonne B,le numéro s'inscrit automatiquement et est incrémenté de 1 .

A +

bonjour,

une solution à coller dans le module de la feuille concernée...

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect userinterfaceonly:=True
If Target.Column = 2 Then
If Target.Offset(0, -1) = Empty Then Target.Offset(0, -1) = WorksheetFunction.Max(Columns(1)) + 1
End If
End Sub

Nota : S'il y a un mot de passe sur la feuille il faudra mettre à la place :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect password:="TonMotDePasse" userinterfaceonly:=True
If Target.Column = 2 Then
If Target.Offset(0, -1) = Empty Then Target.Offset(0, -1) = WorksheetFunction.Max(Columns(1)) + 1
End If
End Sub

Nota2 : S'il y a déjà une macro Worksheet_Change c'est plus compliqué bien sur...

Nota3 : Avec MAC c'est surement plus compliqué !!!

A+

Re à tous,

J'ai pris note je vais essayer la proposition d'Henri, je pense qu'elle est plus adaptée car dans le module de mes feuilles j'ai déja un code.

Henri, je te tiens au courant de l'avance emnt.

@+

Cordialement

Noel

bonjour,

la proposition d'Henri n'est pas un index mais une numérotation des lignes : un Index "colle" à un enregistrement et sert à l'identiifier de manière non équivoque.

Elle convient parfaitement pour une base de donnée qui n'est pas destinée à être triée.

A+

Re à toute l'équipe,

Mon indexation marche avec la proposition d'Henri .

Je remercie à tous ceux qui sont intervenu sur ce fil pour mener à bien mon projet

entre autres: Galopin, Henri, Dan, Nad, Myta et Claude

Merci du deploiement de vos technicités pour avoir m'aider à réaliser mon projet.

Amicalement votre

Noel

Re,

Galopin, je suis tellement nul que je ne sais pas faire la différence avec Index et numérotation de ligne, je m'en excuse.

Je sais dans ce domaine il faut appeler un chat une chat. Mais étant donné la nullité de mon imprégnation d'excel, je n'utilise pas les bons mots pour une demande réelle.

Amicalement

Noel