Discussion :

[af_airone]

Bonjour je voudrais une macro qui ressemble a cela:

j ai un tableau excel qui ressmeble à

ACCESSORID = U0000302 NAME #NOM?
ACCESSORID = U0010160 NAME #NOM?
LAST USED = 2025/10/05 11:33 CP U(CTI7) FAC(TPX7 ) COUNT(00049)
ACCESSORID = U0019480 NAME #NOM?
LAST USED = 2026/10/05 08:59 CP U(CTI7) FAC(TPX7 ) COUNT(00054)

on fait une boucle qui va parcourir le tableau en descendant ligne par ligne
si je trouve last used,
j aimerais effacer la ligne au dessus de last used et la ligne lastused et ce pour tout le tableau

ensuite j aimerais que tout les lignes devenues vides ben disparaissent

le tableau est gros c est pour cela que je vous demande votre aide(2000 lignes)

en gros je voisl e truc comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A2: A2000").Select
For i = 1 To Selection.Count
 If (Cells(i, 1).Value) =

.........

et la je sais pas dire comprend last used et dire remove lien du dessu plus efface la ligne vide ^^

par avance merci.

[ouskel'n'or]

Tu as essayé avec find pour trouver tous tes "LAST USED" ? et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rows(ActiveCell.Row).Offset(-1).Select
    Selection.Delete Shift:=xlUp

pour supprimer la ligne précédente

A+

[ouskel'n'or]

Tiens, j'avais un moment avantle repas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub LaMacro()
Dim Fin as boolean
    On Error Resume Next
        Cells.Find(What:="LAST USED", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False).Activate
        Do While Not fin
            Selection.Delete Shift:=xlUp
            Rows(ActiveCell.Row).Offset(-1).Select
            Selection.Delete Shift:=xlUp
            Range("A1").Select
            Cells.FindNext(After:=ActiveCell).Activate
            fin = Err <> 0
        Loop
    Err.Clear
End Sub

A+

[af_airone]

oki merci si je comprend bien tu cherche le champ last used avec la fonction find et tu remontes avec ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(ActiveCell.Row).Offset(-1).Select

poru choisir la ligne precedente ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Delete Shift:=xlUp

permet de virer la ligne

c est très malin
merci

parcontre il delete que la selection et non pas la ligne entière avec selection.delete shift := xlup

moi ce que j aimerais faire c est un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

delete.entirerow

je dois remplacer selection.delete shift:= xlup par ?

[Megaxel]

Pendant qu'Ouskel'n'or mange, je reprend le flambeau:
Le 'EntireRow' marche très bien, si tu l'utilises correctement, c'est à dire sur une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaCellule.EntireRow.Delete Shift:=xlUp

Ça devrait te convenir.
Ou pour coller à ce que tu as déjà:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Selection.EntireRow.Delete Shift:=xlUp

[af_airone]

excellent
c est parfait now

problem solve et en plus j ai pu apprendre encore un grand merci