Discussion :

[sagitarium]

Bonjour à tous.

J'ai besoin sur une de mes feuilles EXcel de n'avoir ou de montrer qu'un certain nombre de lignes.
Je dispose deux deux fonctions qui ajoutent ou suppriment des lignes suivant ce que désire l'utilisateur.

La solution que j'ai choisi est de cacher toutes les lignes non utilisées. Lors de l'ajout d'une ligne j'insert une nouvelle ligne à l'endroit désiré. Parcontre quand je supprime une ligne je décale les lignes inférieures vers le haut et une nouvelle ligne apparaît.

Cette ligne me dérange!!

Avez vous des petites astuces à me proposer concernant cette situatiopn.
Si le problème n'est pas clair n'hésitez pas à me poser des questions.
Je paux aussi mettre à votre disposition le code.

Merci.
Sagitarium.

[Maiden002]

Bonjour ,

Pourrais tu nous montrer ton bout de code qui te permet de supprimer

Merci

[sagitarium]

Voici la procédure qui supprime une ligne.

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
46
47
48
49
 
 
Private Sub Supprimer_étape()
 
Dim ligne As Long
Dim Num_étape As Integer
 
'Récupération de la ligne de la case selectionnée
 
ligne = ActiveCell.Row
Num_étape = Feuil6.Cells(10, 9).Value
 
If ligne < 12 Then
    MsgBox ("Sélectionnez une ligne dans le corps du test.")
ElseIf Num_étape = 0 Then
    MsgBox ("Il n' y a pas d'étapes à supprimer.")
ElseIf ligne > 11 + Num_étape Then
    MsgBox ("Sélectionnez une ligne dans le corps du test.")
Else
 
'Suppresion de la ligne
 
    Feuil6.Rows(ligne).Delete xlShiftDown
    Num_étape = Num_étape - 1
    Feuil6.Cells(10, 9).Value = Num_étape
 
If ligne = 12 Then
        Feuil6.Cells(ligne, 1).Value = 1
        For i = ligne To Num_étape + 11
            If Feuil6.Cells(i, 1).Value = "" Then
               Exit For
            Else
                Feuil6.Cells(i + 1, 1).Value = Feuil6.Cells(i, 1).Value + 1
                Feuil6.Cells(Num_étape + 12, 1).Value = Num_étape
            End If
        Next i
    Else
        For i = ligne To Num_étape + 11
            If Feuil6.Cells(i, 1).Value = "" Then
                Exit For
            Else
                Feuil6.Cells(i, 1).Value = Feuil6.Cells(i - 1, 1).Value + 1
                Feuil6.Cells(Num_étape + 12, 1).Value = Num_étape
            End If
        Next i
    End If
End If
 
End Sub