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 !

[Arone77]

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 :

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

Au passage, super cool votre citation !!!

[Marc-L]

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 :

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

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

_________________________________________________________________________________________________________

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

[Arone77]

Bonjour,

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

Code :

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

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

[Arone77]

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 :

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

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