Discussion :

[Laur3nt62]

Bonjour, je suis débutant en ce qui concerne Excel et j'aurai besoin de votre aide afin de finaliser un petit travail.

En fait, j'ai un tableau dans lequel je dois venir mettre certains composants avec leurs références, prix... comme c'est un tableau qui sera souvent mis à jour, composants ajoutés régulièrement, mais pas forcément dans un ordre précis, j'aurais besoin d'avoir une colonne qui numérote les entrées par ordre chronologique et n'ont pas par rapport à la position de la cellule.

Il faudrait donc qu'une cellule vide qui vient d'être remplie se voie attribuer le numéro 17 par exemple si avant uniquement 16 cellules de cette colonne étaient remplies.

Le problème est que je n'ai pas assez d'expérience pour m'attaquer aux macros bien que cela me semble indispensable ici .

Si quelqu'un à une idée je suis preneur.

Merci d'avance pour votre aide.

[casefayere]

Bonjour,

exemple : dans l'evenement "change" de ta feuille, quand les données sont entrées en A (à partir de A2), ce code permet de saisir l'incrémentation en E (par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Gv As Long
If Target.Column = 1 And Target.Row > 1 Then
    With ActiveSheet
        Gv = .Range("a" & .Rows.Count).End(xlUp).Row - 1
        Target(1, 5) = Gv 'colonne E
    End With
End If
End Sub

[Laur3nt62]

Merci pour cette réponse rapide
C'est presque ça, le seul petit problème est que l'incrémentation n'est pas continue, je pense que je me suis mal expliqué, par exemple :

Pièce A Réf A Prix A n° 1
Pièce B Réf B Prix B n° 2
Pièce F Réf F Prix F n° 6
Pièce C Réf C Prix C n° 3

Pièce E Réf E Prix E n° 5
Pièce D Réf D Prix D n° 4

Les pièces étant entrées dans l'ordre alphabétique, et un saut de cellule (cellule vide) ne doit pas influer l'incrémentation.

Quoi qu'il en soit merci pour ce bout de programme, ça me permet déjà de me mettre sur la voie.

[casefayere]

Essayes ce code, sur meme principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Gv As Long, dl As Long
If Target.Column = 1 And Target.Row > 1 Then
    With ActiveSheet
        dl = .Range("a" & .Rows.Count).End(xlUp).Row - 1
        Gv = Application.WorksheetFunction.CountA(.Range("a2:a" & dl))
        Target(1, 5) = Gv 'colonne E
    End With
End If
 
End Sub