[XL-2010] suppression de ligne ne marche plus [Résolu]

[tompom3108]

Bonjour à tous,
j'ai un code qui marchait la semaine dernière et aujourd'hui, lundi... j'arrive pas à comprendre pourquoi il ne veut plus marcher...

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
Option Explicit
 
 Public Sh As Worksheet
Public i As Integer, Num_Fact As String
Public np As Integer, Nc As Integer
Public Rnp As Range, Plag As Range
 '---------------------------------------------------------Créer un nouveau devis vierge
 Sub Nouveau_Devis()
 
 Num_Fact = Range("C10").Value
 
 
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Worksheets
    If InStr(Sh.Name, "Détail") > 0 Then
        Sh.Delete
 
    End If
Next Sh
Worksheets("Devis").Protect userinterfaceonly:=True
 
 Sheets("Devis").Activate
 
  Set Plag = Range("A23:A150")
 
 For Each Rnp In Plag
    If Rnp.Value = "Pied" Then ' il ne trouve pas la bonne cellule visiblement
    np = Rnp.Row 'il met np = 0 ? 
    Nc = np - 1
  End If
Next
 
 
  Range("F19").Value = "SDV-" & Year(Date) & "-" & Month(Date) & Day(Date) & "-" & Format(Num_Fact + 1, "0")
 Range("L5").Value = Date
 Range("A24:A27").ClearContents
 Range("C24:G27").ClearContents
 
   For i = Nc To 28 Step -1
        Cells(i, 1).EntireRow.Delete
    Next
 
Range("K13").Select
 
 End Sub

Si quelqu'un comprend et m'explique je lui serai infiniment reconnaissant.

[jfontaine]

Bonjour,

Lance ton code debugage "pas à pas" et vérifie si toutes les conditions sont ok pour la suppression

Code :

1
2
3
For i = Nc To 28 Step -1
   Cells(i, 1).EntireRow.Delete
Next

Quelle est la valeur de i au démarrage de cette boucle?

[gFZT82]

Bonjour,

Il faut que tu indiques la feuille concernée lorsque tu utilises Range.

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
Option Explicit
Public Sh As Worksheet
Public i As Integer, Num_Fact As String
Public np As Integer, Nc As Integer
Public Rnp As Range, Plag As Range
 '---------------------------------------------------------Créer un nouveau devis vierge
Sub Nouveau_Devis()
    Num_Fact = Worksheets("Feuil2").Range("C10").Value 'A ADAPTER
    Application.DisplayAlerts = False
    For Each Sh In ThisWorkbook.Worksheets
        If InStr(Sh.Name, "Détail") > 0 Then
            Sh.Delete
        End If
    Next Sh
    Worksheets("Devis").Protect userinterfaceonly:=True
    With Worksheets("Devis")
        Set Plag = .Range("A23:A150")
        For Each Rnp In Plag
            If Rnp.Value = "Pied" Then
                np = Rnp.Row
                Nc = np - 1
            End If
        Next
        .Range("F19").Value = "SDV-" & Year(Date) & "-" & Month(Date) & Day(Date) & "-" & Format(Num_Fact + 1, "0")
        .Range("L5").Value = Date
        .Range("A24:A27").ClearContents
        .Range("C24:G27").ClearContents
        For i = Nc To 28 Step -1
            Cells(i, 1).EntireRow.Delete
        Next
        .Range("K13").Select
    End With
End Sub

Cordialement.

[tompom3108]

ok merci pour vos réponses
j'ai changé "pied" par "pieddepage" dans le code et dans le classeur ça a suffit ...