Bonjour à toutes et à tous,

Je rencontre un problème pour effacer les lignes que je génère avec le code ci-dessous.
Une ligne est créée en fonction de la ldatewish1value(bsum).
Mon problème est qu’une fois ces lignes créées je souhaiterais faire un delete sur les lignes qui ont été ajoutées.
J’ai voulu essayer de nommer les lignes pour faire un delete entre deux lignes mais il se trouve que ma ligne se décale et perd le nom que je lui ai passé.
Pouvez-vous m’aider ou m’indiquer si une solution plus simple existe ?
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
On Error GoTo passealasuite
nbre_mois = ((Year(Date) - Year(ldatewish1value(bsum))) * 12) + Month(Date) - Month(ldatewish1value(bsum))
nbre_mois = nbre_mois
On Error GoTo passealasuite
 
    If lsummary1value(bsum) = Empty Or lsummary1value(bsum) = "" Then lsummary1value(bsum) = " -- "
    If lTeam1value(bsum) = Empty Or lTeam1value(bsum) = "" Then lTeam1value(bsum) = " -- "
    If lresponsible1value(bsum) = Empty Or lresponsible1value(bsum) = " " Then lresponsible1value(bsum) = " -- "
    If ldatewish1value(bsum) = Empty Or ldatewish1value(bsum) = "" Then ldatewish1value(bsum) = " -- "
    If lstatus1value(bsum) = Empty Or lstatus1value(bsum) = "" Then lstatus1value(bsum) = " -- "
 
    If ldatewish1value(bsum) = " -- " Then GoTo dt 'pas de date wish goto <1 mois
 
    If nbre_mois < 1 Then
dt:
        Application.ScreenUpdating = False
        Sheet9.Activate
        Sheet9.range("Actionplan1").Offset(1, 0).Select
        Selection.Insert
        Sheet9.range("Actionplan1").Select
        Selection.Copy
        Sheet9.range("Actionplan1").Offset(1, 0).Select
        ActiveSheet.Paste
 
               Sheet9.range("shorttermactions1").Offset(1) = lsummary1value(bsum)
               Sheet9.range("shorttermteam1").Offset(1) = lTeam1value(bsum)
               Sheet9.range("shorttermresponsible1").Offset(1) = lresponsible1value(bsum)
               Sheet9.range("shorttermduedate1").Offset(1) = ldatewish1value(bsum)
               Sheet9.range("shorttermstatus1").Offset(1) = lstatus1value(bsum)
 
             Application.ScreenUpdating = False
            GoTo passealasuite
 
     ElseIf nbre_mois >= 1 And nbre_mois < 3 Then
 
        Application.ScreenUpdating = False
        Sheet9.Activate
        Sheet9.range("Actionplan2").Offset(1, 0).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheet9.range("Actionplan2").Select
        Selection.Copy
        Sheet9.range("Actionplan2").Offset(1, 0).Select
        ActiveSheet.Paste
 
               Sheet9.range("mediumtermactions1").Offset(1) = lsummary1value(bsum)
               Sheet9.range("mediumtermteam1").Offset(1) = lTeam1value(bsum)
               Sheet9.range("mediumtermresponsible1").Offset(1) = lresponsible1value(bsum)
               Sheet9.range("mediumtermduedate1").Offset(1) = ldatewish1value(bsum)
               Sheet9.range("mediumtermstatus1").Offset(1) = lstatus1value(bsum)
 
             Application.ScreenUpdating = False
            GoTo passealasuite
 
    ElseIf nbre_mois >= 3 Then
 
        Application.ScreenUpdating = False
        Sheet9.Activate
        Sheet9.range("Actionplan3").Offset(1, 0).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheet9.range("Actionplan3").Select
        Selection.Copy
        Sheet9.range("Actionplan3").Offset(1, 0).Select
        ActiveSheet.Paste
 
               Sheet9.range("longtermactions1").Offset(1) = lsummary1value(bsum)
               Sheet9.range("longtermteam1").Offset(1) = lTeam1value(bsum)
               Sheet9.range("longtermresponsible1").Offset(1) = lresponsible1value(bsum)
               Sheet9.range("longtermduedate1").Offset(1) = ldatewish1value(bsum)
               Sheet9.range("longtermstatus1").Offset(1) = lstatus1value(bsum)
 
             Application.ScreenUpdating = False
            GoTo passealasuite
 
     End If 'fin de la condition date
passealasuite: