A voir également:
- Macro pour supp une ligne vide
- Comment supprimer une page vide sur word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager photos en ligne - Guide
- Caractere vide - Guide
- Mètre en ligne - Guide
2 réponses
Bonjour,
Tu peux utiliser l'enregistreur de macro pour t'aider à le coder toi même...
- Tu lances l'enregistreur,
- Tu supprimes la ligne à la main
- Tu arrête l'enregistreur puis tu regardes le code que ça t'a généré.
- Il ne te reste plus qu'à l'adapter à tes besoins.
Tu peux utiliser l'enregistreur de macro pour t'aider à le coder toi même...
- Tu lances l'enregistreur,
- Tu supprimes la ligne à la main
- Tu arrête l'enregistreur puis tu regardes le code que ça t'a généré.
- Il ne te reste plus qu'à l'adapter à tes besoins.
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
Sub supp()
Call NETTOYAGE()
Sheets("Output").Rows("1:1").Delete Shift:=xlUp
End Sub
Sub
...
...
...
...
call
...
...
...
End sub
?? comme ça
Sub supp()
Call NETTOYAGE(18254, 654897)
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub
est ce qu'il est correct?
la macro entiere:
Sub NETTOYAGE() If MsgBox("Etes-vous sur de vouloir nettoyer le journal?", vbOKCancel) = vbCancel Then End End If Dim sh As Worksheet Dim ws As Worksheet Dim a As Long Dim b As Long Set ws = Sheets("Input") Set sh = Sheets("Output") b = ws.Range("A1").End(xlDown).Row c = sh.Range("A1").End(xlDown).Row sh.Activate sh.Range("A1", Cells(c, "K")).Clear 'sh.Range("A1", Cells(c, "K")).Interior.Color = RGB(255, 255, 255) For a = 2 To b sh.Cells(a, "C") = ws.Cells(a, "C") sh.Cells(a, "A") = ws.Cells(a, "G") sh.Cells(a, "E") = ws.Cells(a, "K") sh.Cells(a, "B") = ws.Cells(a, "L") sh.Cells(a, "G") = ws.Cells(a, "M") sh.Cells(a, "D") = ws.Cells(a, "X") Next sh.Range("A2", Cells(b, "A")).NumberFormat = "dd/mm/yyyy;@" Dim maplageC As Range Set maplageC = sh.Range("G2", Cells(b, "G")) For Each cellule In maplageC If cellule.Value > 0 Then sh.Cells(cellule.Row, 6).Value = "C" Else sh.Cells(cellule.Row, 6).Value = "D" End If Next Range("H2").Select ActiveCell.FormulaR1C1 = "=MID(RC[-4],SEARCH("".TIF"",RC[-4])-8,8)" Selection.Copy Range("G60000").End(xlUp).Offset(0, 1).Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D2").Select ActiveCell.FormulaR1C1 = "=RC[4]" Selection.Copy Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("H:H").ClearContents Columns("D:D").EntireColumn.AutoFit Range("A2").Select Columns("A:G").Select Selection.AutoFilter ActiveSheet.Range("$A:$G").AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd Range("G60000").End(xlUp).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=RC[-1]" Selection.Copy Range(Selection, Range("H2")).Select ActiveSheet.Paste Selection.AutoFilter Columns("H:H").Copy Range("H1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Range("$A:$H").AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd Columns("G:G").SpecialCells(xlCellTypeVisible).ClearContents Selection.AutoFilter Columns("F:F").Delete Shift:=xlToLeft End Sub Sub supp() Call NETTOYAGE(18254, 654897) Rows("1:1").Select Selection.Delete Shift:=xlUp End Sub Sub test() Columns("A:G").Select Selection.AutoFilter ActiveSheet.Range("$A:$G").AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd Range("G60000").End(xlUp).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=RC[-1]" Selection.Copy Range(Selection, Range("H2")).Select ActiveSheet.Paste Selection.AutoFilter Columns("H:H").Copy Range("H1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Range("$A:$H").AutoFilter Field:=7, Criteria1:=">0", Operator:=xlAnd Columns("G:G").SpecialCells(xlCellTypeVisible).ClearContents Selection.AutoFilter End Sub