petit souci avec se morceau de code

[chrisdu73]

Bonjour,

j'ai un souci avec se morceau de code, pourquoi j'ai une erreur d'execution 'code 1004' quand la ligne en rouge s'execute ?
cette macro devrait m'éffacer les lignes dont la cellule en B et vide

Sub Macro3()
Dim lig
Range("K" & Range("K65000").End(xlUp).Row).Select
Do While lig <> 1
lig = ActiveCell.Row
If Range("B" & lig) = "" Then
ActiveCell.EntireRow.Delete
End If
Range("B" & lig - 1).Select
Loop
End Sub

merci pour votre aide une fois de plus

Chris

 

[soenda]

Re : petit souci avec se morceau de code

Bonsoir le fil, Chrisdu73

pourquoi j'ai une erreur d'execution 'code 1004' quand la ligne en rouge s'execute ?
Range("B" & lig - 1).Select

Probablement parce L - 1 vaut 0 dans cette ligne ...

A plus

 

[chrisdu73]

Re : petit souci avec se morceau de code

y a t'il une solution a cela ?

merci pour deja pour cette premiere reponse

Chris

 

[soenda]

Re : petit souci avec se morceau de code

Re,

Par exemple:

Range("B" & IIf(lig > 1, lig - 1, 1)).Select

Ca permet déjà de vérifier que l'erreur est bien là,
de plus il est préférable de contrôler la valeur de lig.

A plus

 

[chrisdu73]

Re : petit souci avec se morceau de code

merci a toi pour cette rapide intervention et se petit commentaire qui m'aide a comprendre

merci

Chris