VBA - Après suppression d'une ligne via une macro, réinitialiser la numérotation des lignes

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:

---

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:

---

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 !!! :)

Bonjour,

inutile de réinventer la roue au risque qu'elle fusse carrée en VBA alors qu'une simple formule de feuille de calculs …

Voir donc l'aide Excel par exemple de la fonction LIGNE !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

J'ai déjà pensé à utiliser cette solution, c'est à dire à écrire dans ma première cellule "numéro de ligne" : =Ligne(A1) et ainsi dérouler dans le reste de mes cellules pour afficher la numérotation.
Mon problème, c'est que comme l'outil que je crée sera destiné à d'autres utilisateurs, je protège ma feuille de toute modification apporter via leurs manipulations.
D'où la nécessité que la numérotation soit actualisée automatiquement...

Pensez vous à une manip autre que celle citée ?

C'était juste pour éviter une usine à gaz et au passage il suffit juste de =LIGNE() …

Car en VBA même une formule de calculs peut être utilisée !

Et qui plus est cela s'actualise justement automatiquement en cas de suppression d'une ligne, quel confort !

Très bien !

Mais c'est possible d'avoir un exemple ?

C'est à dire ?!
Tu as déjà tout ce qu'il faut : la formule identique à insérer dans la colonne de numérotation …

Si une ligne est supprimée, il n'y a rien à faire si la feuille est bien en mode de calcul automatique !

Et en cas d'insertion, juste ajouter la formule dans la cellule via la propriété FormulaLocal …
Sans compter la manipulation en activant au préalable l'Enregistreur de macros livrant une base de code sur un plateau !

Mais si jamais l'utilisateur est en mode calcul manuel, un suppression de ligne ne corrigerait pas la numérotation et je ne serai plus la pour lui expliquer pourquoi.

Ca doit bien être possible de coder une ligne à la suite de ce code qui permettent de renuméroter mes colonnes de ma colonne !:

Code:

---

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

---

Au passage, super cool votre citation !!!

Comme c'est aussi possible en une unique instruction VBA de passer en mode de calcul automatique ‼


Sinon soit produire sa p'tite usine en bouclant sur les cellules pour les renuméroter

soit adopter enfin une logique excelienne sans boucle et donc plus efficace même en VBA
comme cet exemple à tester dans un nouveau classeur :

Code:

---

1 2 3 4 5

Sub Demo() With [C10:C19] .Value = Evaluate("ROW(1:" & .Count & ")") End With End Sub

---

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

j'ai essayé d'adapter votre conseil en codant avec la méthode suivante:

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) l = Cells(Rows.Count, 1).End(xlUp).Row Range("A19:A" & l).FormulaLocal = "=ligne()-18" End Sub

---

Mais il m'indique que "la méthode formulalocal de l'objet range a échoué.

Est ce que vous avez une idée de mon problème ?

Cordialement !!!

J'ai trouvé la réponse à mon problème en insérant mon code juste après celles permettant d’insérer une ligne dans mon tableau. Apparemment, ça marche... Je ne sais pas si c'est la meilleur solution par contre !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

On Error Resume Next Application.ScreenUpdating = False i = 19 Do While Cells(i, 1) <> "" Cells(i, 1).Offset(1, 1).Select i = i + 1 Loop     ActiveCell.Value = BASEDEDONNEESA.TextBox2.Value ActiveCell.Offset(0, 1).Value = BASEDEDONNEESA.TextBox3.Value ActiveCell.Offset(0, 2).Value = BASEDEDONNEESA.TextBox4.Value ActiveCell.Offset(0, 3).Value = BASEDEDONNEESA.ComboBox1.Value ActiveCell.Offset(0, 4).Value = BASEDEDONNEESA.ComboBox2.Value ActiveCell.Offset(0, 5).Value = envoiListefiliale ActiveCell.Offset(0, 6).Value = BASEDEDONNEESA.TextBox8.Value ActiveCell.Offset(0, 7).Value = BASEDEDONNEESA.TextBox9.Value ActiveCell.Offset(0, 8).Value = BASEDEDONNEESA.TextBox10.Value ActiveCell.Offset(0, 9).Value = BASEDEDONNEESA.TextBox21.Value ActiveCell.Offset(0, 10).Value = BASEDEDONNEESA.ListBox2.Value ActiveCell.Offset(0, 11).Value = BASEDEDONNEESA.TextBox23.Value ActiveCell.Offset(0, 12).Value = BASEDEDONNEESA.ListBox3.Value ActiveCell.Offset(0, 13).Value = BASEDEDONNEESA.TextBox24.Value ActiveCell.Offset(0, 14).Value = BASEDEDONNEESA.ListBox4.Value ActiveCell.Offset(0, 16).Value = BASEDEDONNEESA.TextBox26.Value ActiveCell.Offset(0, 15).Value = BASEDEDONNEESA.ComboBox3.Value ActiveCell.Offset(0, 17).Value = BASEDEDONNEESA.TextBox18.Value 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 l = Cells(Rows.Count, 19).End(xlUp).Row Range("A19:A" & l).FormulaLocal = "=ligne()-18"     ActiveCell.PasteSpecial Paste:=xlPasteAllExceptBorders     Application.CutCopyMode = False Application.ScreenUpdating = True Feuil1.Protect Unload BASEDEDONNEESA   End Sub

---