Bonjour à tous,

Me voilà de nouveau afin de compléter la database de"www.developpez.net" d'une nouvelle question !!!

Si je ne me trompe pas, je n'ai pas réussi à trouver une réponse à mon problème.
Mon problème est le suivant, lorsque j'insère une ligne dans mon tableau via ma macro "ajouter une ligne", j'ai glissé le code suivant qui permet d'ajouter un numéro d'identification:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If ActiveCell.Offset(-1, -1).Value = "N° de l'A.O" Then
ActiveCell.Offset(0, -1).Value = 1
Else
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
End If
Jusque la, tout va bien !
Sauf que si je supprime une ligne via ma macro "supprimer une ligne", la numérotation de mon tableau ne s'actualise pas. Ce qui veut dire que si je supprime la ligne numero 4, dans ma numérotation ,nous aurons 1,2,3,5.
Je suis sur que le code n'est pas sorcier mais je n'arrive pas à intégrer ceci dans mes lignes suivantes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton2_Click()
Dim A As Integer
A = ComboBox6.ListIndex + 1
Feuil1.Unprotect
 
         If Me.ComboBox6.ListCount >= 0 And A > 0 Then
           'Supprime la ligne
           Sheets("Base de données").[BASEDEDONNEES].Rows(A).Delete
         End If
Feuil1.Protect
Unload BASEDEDONNEESS
End Sub
Quelqu'un peut il m'aider ?!

Merci encore !!!