macro d'effacement qui bloque

jeanpierre

Nous a quitté

Repose en paix

• 10 Janvier 2010

• #2

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...

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #3

Re : macro d'effacement qui bloque

Bonsoir jean-marcel

non 2 olonnes
mais quand je met

Code:

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

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Janvier 2010

• #4

Re : macro d'effacement qui bloque

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

Code:

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

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #5

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Janvier 2010

• #6

Re : macro d'effacement qui bloque

Re

Code:

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....

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #7

Re : macro d'effacement qui bloque

RE,

Merci jean-marcel cela fonctionne

mais dans le même domaine

j'ai:

Code:

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #8

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #9

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Janvier 2010

• #10

Re : macro d'effacement qui bloque

Re,

Code:

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

Code:

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

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #11

Re : macro d'effacement qui bloque

re,

heuuu j'ose?

aller j'ose

le code

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Janvier 2010

• #12

Re : macro d'effacement qui bloque

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

Code:

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #13

Re : macro d'effacement qui bloque

re

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

 

Dernière édition: 10 Janvier 2010

Vote positif 0 Vote négatif