Problème code

[Kristof]

Bonjour,

Je rencontre un petit problème dans l'exécution de la macro écrite ci-après.
Toutes les lignes comprenant "un espace " ne sont pas supprimées, à peu près une ligne sur 2 le sont. Je crois avoir déjà lu une solution pour ce type de problème mais pas moyen de remettre la main dessus. La manière dont la commande est écrite n'est peut-être pas la bonne.

For Each Cel In Range("E67:E" & Range("E65536").End(xlUp).Row)

If Cel.Value = " " Then
li = Cel.Row
Cel.EntireRow.Delete
Cells(li + 20, 1).EntireRow.Insert Shift:=xlDown
End If
Next Cel

Merci d'avance pour votre aide.

 

[pierrejean]

Re : Problème code

bonjour Kristof

a tester

for n=Range("E65536").End(xlup).Row to 67 step-1
If Range("E" & n)= " " Then 
li = Range("E" & n).Row 
Rows(li).Delete 
Cells(li + 20, 1).EntireRow.Insert Shift:=xlDown 
End If 
Next n

Attention a etre sur qu'il y a des cellules remplies apres E67

 

[Kristof]

Re : Problème code

De nouveau merci Pierrejean! Mon problème est résolu.

Bonne journée.