Discussion :

[Arone77]

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

[Marc-L]

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, …

[Arone77]

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 ?

[Marc-L]

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 !

[Arone77]

Très bien !

Mais c'est possible d'avoir un exemple ?

[Marc-L]

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 !