Sup de lignes

Bonjour,

Il faut partir de la dernière ligne:

Sub sup_ligne_etoile2()
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = xxx Then Rows(i).Delete Shift:=xlUp
Next i
End sub

JB

On 30 jan, 09:55, "Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo> wrote:

Bonjour
j'ai un trou, car j'ai déjà vu
bon une range nommée
For Each RngNum In Dosheet.Range("a1:a" & ligd)
If RngNum = Matricule Then

RngNum.EntireRow.Delete

End If
Next

là çà va pas , c'est l'histoire de la ligne qui remonte et qui n'es t plus
prise en compte

--
Pierre
MVP Access

Salut,

Parcequ'il faut commencer par le bas :

With dosheet
For i = ligd To 1 Step -1
If .Cells(i, 1) = Matricule Then
.Cells(i, 1).EntireRow.Delete
End If
Next
End With


On 30 jan, 09:55, "Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo> wrote:

Bonjour
j'ai un trou, car j'ai déjà vu
bon une range nommée
For Each RngNum In Dosheet.Range("a1:a" & ligd)
If RngNum = Matricule Then

RngNum.EntireRow.Delete

End If
Next

là çà va pas , c'est l'histoire de la ligne qui remonte et qui n'es t plus
prise en compte

--
Pierre
MVP Access

Merci
partir de la fin, en vieillissant je me dis que c'est une bonne chose,
repartir de la fin (plus que 62 ans à vivre)

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1170148011.323327.134930@v45g2000cwv.googlegroups.com...
Salut,

Parcequ'il faut commencer par le bas :

With dosheet
For i = ligd To 1 Step -1
If .Cells(i, 1) = Matricule Then
.Cells(i, 1).EntireRow.Delete
End If
Next
End With


On 30 jan, 09:55, "Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo> wrote:

Bonjour
j'ai un trou, car j'ai déjà vu
bon une range nommée
For Each RngNum In Dosheet.Range("a1:a" & ligd)
If RngNum = Matricule Then

RngNum.EntireRow.Delete

End If
Next

là çà va pas , c'est l'histoire de la ligne qui remonte et qui n'est plus
prise en compte

--
Pierre
MVP Access

Bonsour® Pierre CFI [mvp] avec ferveur ;o))) vous nous disiez :

partir de la fin, en vieillissant je me dis que c'est une bonne chose,
repartir de la fin (plus que 62 ans à vivre)

???? commencer sa vie par des années de galères ????
oui mais : Al Zheimer aidant à faire passer la pilulle, dirait un certain
azerghii !!


--
--
@+
;o)))

ah ben non, tu gardes tout ce qui est matériel et intellectuel
le corps se rajeunit, et tu stoppes quand tu veux :o))
je me vois à la maternel, avec JPS comme prof de chant

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23c$vhlFRHHA.4188@TK2MSFTNGP06.phx.gbl...

Bonsour® Pierre CFI [mvp] avec ferveur ;o))) vous nous disiez :

partir de la fin, en vieillissant je me dis que c'est une bonne chose,
repartir de la fin (plus que 62 ans à vivre)

???? commencer sa vie par des années de galères ????
oui mais : Al Zheimer aidant à faire passer la pilulle, dirait un certain
azerghii !!


--
--
@+
;o)))