macro d'effacement qui bloque

[bpol]

bonsoir,

j'ai une macro:

'
Dim Lastlig As Long
Lastlig = 1
For i = 8 To 2560
     [B]If Sheets("compte").Cells(65500, i).End(xlUp).Row > Lastlig Then[/B]
            Lastlig = Sheets("compte").Cells(6500, i).End(xlUp).Row
    
     End If

Next i

elle bloque à hauteur de la ligne en gras.

Pourquoi?

Bpol

 

[jeanpierre]

Re : macro d'effacement qui bloque

Bonjour bpol,

Un zéro de trop, il me semble....

For i = 8 To 2560

Bonne soirée.

Jean-Pierre

Edit : Bonsoir Jean-Marcel, encore bloqué par la neige et le verglas, moi...

 

[bpol]

Re : macro d'effacement qui bloque

Bonsoir jean-marcel

non 2 olonnes
mais quand je met

For i = 1 To 2

cela ne bloque pas mais cela n'éfface pas la dernière ligne

Edit Jeanpierre j'ai essayé ta solution il ne se passe rien

Bpol

 

[Efgé]

Re : macro d'effacement qui bloque

Bonjour bpol, Jean-Marcel, jeanpierre,
Je pense que ça devrait commencer comme ça, enfin peut être...

Dim Lastlig As Long
Lastlig = 1

Sheets("compte").Select
For i = Range("L65536").End(xlUp).Row To 2 Step -1
If cells (i,1)= Then...
End If

Next i

 

[bpol]

Re : macro d'effacement qui bloque

Bonsoir jean-marcel,

ce que je souhaite c'est effacer la dernière ligne remplie de la feuille compte

macro appeler par une autre

Merci

Bpol

 

[Efgé]

Re : macro d'effacement qui bloque

Re

Sub toto()
Sheets("compte").Select
i = Range("A65536").End(xlUp).Row
Cells(i, 1).EntireRow.Value = ""
End Sub

Cordialement

Edit: Quand je vous dis que je suis lent. Jean-Marcel en une seule ligne....

 

[bpol]

Re : macro d'effacement qui bloque

RE,

Merci jean-marcel cela fonctionne

mais dans le même domaine

j'ai:

Sheets("BD").Select
Dim l As Integer
For l = Cells(65256, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

mais ily a un soucis lorsque c'est la dernière ligne dont la colonne A est vide elle n'éfface pas

Merci à tout

Bpol

 

[bpol]

Re : macro d'effacement qui bloque

re,
attention ici c'est pas la dernière ligne mais la ligne où la cellule col A est vide

edit: ou puis je mettre le fichier une fois qu'il est terminé? afin que tout le monde en profite

bpol

 

[bpol]

Re : macro d'effacement qui bloque

merci jean-marcel de te décarcasser( to nom ne serais Ducroc par hasard😛)
mais cela fonctionne pour la dernière ligne mais cela fonctionne pas si la ligne ou la cel A est vide se trouve au milieu .
ex1:
A b etc
1 1/1/10
1/1/10
3 1/1/10

ex2:
A B etc
1 1/1/10
2 1/1/10
1/1/10
ex1 la 2e ligne doit être effacée
ex2 la dernière ligne doit être effacé

Bpol

 

[Efgé]

Re : macro d'effacement qui bloque

Re,

Sheets("BD").Select
Dim l As Integer
For l = i = Range("[COLOR="Red"][B]A[/B][/COLOR]65536").End(xlUp).Row To 1 Step - 1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Choisissez une colonne entièrement remplie à la place de A.
Ou

Sheets("BD").Select
Dim l As Integer
For l = i = Range("A65536").End(xlUp).Row  [COLOR="Red"][B]+ 3 [/B][/COLOR]To 1 Step - 1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Cordialement

 

[bpol]

Re : macro d'effacement qui bloque

re,

heuuu j'ose?

aller j'ose

le code

Sheets("BD").Select
Dim l As Integer
For l = i = Range("[B]B[/B]65536").End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l

ne fonctionne pas et la colonne B est toujours pleine

Bpol

 

[Efgé]

Re : macro d'effacement qui bloque

Re
Exacr, une erreur de copie dans mon dernier post 😉 , désolé

Sub Test ()
Sheets("BD").Select
Dim l As Long
For l = Range("B65536").End(xlUp).Row To 1 Step - 1
If Cells(l, 1).Value = "" Then 
Cells(l, 1).EntireRow.Delete
End If
Next l
End Sub

 

[bpol]

Re : macro d'effacement qui bloque

re

Ok merci à tout cela fonctionne!
me reste plus que la macro doublons et c'est terminé 🙄
Bpol