bug dans macro

[darib52]

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

 

[bebere]

bonsoir Darib
remplace cette ligne
mesLignes = IIf(mesLignes = '', x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)

par celle-çi
if mesLignes = '' then
mesLignes = x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)
endif
sous réserve
à bientôt

 

[bebere]

bonjour Darib,le Forum



Sub Macro1()

Dim mesLignes As String
Dim x As Long
la variable meslignes=''
pour lui donner une valeur meslignes=Range('A' & x).value
pour effacer je pense qu'il faut commencer par la fin et il te faut au moins une condition

For x = Range('A65536').End(xlUp).Row To 65 Step -72

If Range('A' & x) = '' Then Range('A' & x) = x & ':' & x + 1
If Range('A' & x) = 'c' Then Range('A' & x).Delete
Next x

End Sub

à bientôt