D
darib52
Guest
bonsoir à tous,
j'ai un bug dans la macro ci-dessous.
un coup de main serait le bienvenu.
merci d'avance à ceux qui prendront le temps de lire ce message.
Sub Macro1()
Dim mesLignes As String
Dim x As Long
For x = 65 To Range('A65536').End(xlUp).Row Step 72
mesLignes = IIf(mesLignes = '', x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)
Next
Range(mesLignes).Delete
End Sub
j'ai un bug dans la macro ci-dessous.
un coup de main serait le bienvenu.
merci d'avance à ceux qui prendront le temps de lire ce message.
Sub Macro1()
Dim mesLignes As String
Dim x As Long
For x = 65 To Range('A65536').End(xlUp).Row Step 72
mesLignes = IIf(mesLignes = '', x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)
Next
Range(mesLignes).Delete
End Sub