Macro pour supp une ligne vide

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention - 5 janv. 2018 à 11:06

Bonjour,

j'ai une feuil qui contient la premiere ligne vide et je vouderai la supp avec un code macro automatique, merci de m'aider!!

Afficher la suite

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
Mètre en ligne - Guide
Caractere vide - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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.

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

comment puis je ajouter cette macro a une autre macro??

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Tu fais un call

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

comment je comment par
Sub
...
...
...
...
call
...
...
...
End sub

?? comme ça

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

https://forums.commentcamarche.net/forum/affich-37622021-vba-appel-d-une-macro-dans-une-autre-macro

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

Voila le code que j'ai pu sortir avec:

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

Réponse 2 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Sub supp()
    Call NETTOYAGE()
    Sheets("Output").Rows("1:1").Delete Shift:=xlUp
End Sub

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

elle n'a pas supprimé la ligne

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

qlq'un peut m'aider? merci

Discussions similaires

le frigo ne marche pas....

Internat nourriture

taxe foncière pour locataire

Formaté mais pas de connexion Internet ?

besoin d'aide pour la conversion de format

Votre réponse

Discussions similaires