[Résolu]Macro Supprimer Cellules non vide +

Asus13x11 · 16 Mai 2013

Bonjour

Je sollicite votre connaissance par mon ignorance, lol.

Voilà mon PB :

Je cherche a faire une macro qui :
si les cellules de (H7:AT7) sont non vide les supprimer + supprimer la cellule haut dessus.

Cdt

Guest · 16 Mai 2013

Re : Macro Supprimer Cellules non vide +

Bonjour,

Supprimer ou vider les cellules? La plage n'est-elle pas H7:AS7? il n'y a rien en colonne AT

+ supprimer la cellule haut dessus.

Laquelle, de quelle colonne?

A+

Asus13x11 · 16 Mai 2013

Re : Macro Supprimer Cellules non vide +

Bonjour

vider les cellules, et H7:AS7 oui tu as raison désolé

exemple : en H7 j'ai une date que je doit vider + celle du dessus H6 tous ça sur toute la ligne

mais si la cellule H7 est vide ne pas vider la cellule H6

A+

Asus13x11 · 17 Mai 2013

Re : Macro Supprimer Cellules non vide +

J'ai trouvé mais un peu chaotique !! non ?
il n'y aurais pas plus propre SVP !

Merci

Sub Macro2()
'
' Macro2 Macro
'

'
Sheets("Feuil2").Select
Rows("6:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Feuil1").Select
Rows("6:7").Select
Selection.Copy
Sheets("Feuil2").Select
Rows("8:9").Select
ActiveSheet.Paste
Range("B7").Select
Sheets("Feuil1").Select

If Not IsEmpty(Range("H7")) Then
Range("H7").ClearContents
Range("H6").ClearContents
If Not IsEmpty(Range("H7")) Then
Range("I7").ClearContents
Range("I6").ClearContents
If Not IsEmpty(Range("H7")) Then
Range("J7").ClearContents
Range("J6").ClearContents

If Not IsEmpty(Range("L7")) Then
Range("L7").ClearContents
Range("L6").ClearContents
If Not IsEmpty(Range("M7")) Then
Range("M7").ClearContents
Range("M6").ClearContents
If Not IsEmpty(Range("N7")) Then
Range("N7").ClearContents
Range("N6").ClearContents
If Not IsEmpty(Range("O7")) Then
Range("O7").ClearContents
Range("O6").ClearContents
If Not IsEmpty(Range("P7")) Then
Range("P7").ClearContents
Range("P6").ClearContents
If Not IsEmpty(Range("Q7")) Then
Range("Q7").ClearContents
Range("Q6").ClearContents

If Not IsEmpty(Range("S7")) Then
Range("S7").ClearContents
Range("S6").ClearContents
If Not IsEmpty(Range("T7")) Then
Range("T7").ClearContents
Range("T6").ClearContents
If Not IsEmpty(Range("U7")) Then
Range("U7").ClearContents
Range("U6").ClearContents
If Not IsEmpty(Range("V7")) Then
Range("V7").ClearContents
Range("V6").ClearContents
If Not IsEmpty(Range("W7")) Then
Range("W7").ClearContents
Range("W6").ClearContents

If Not IsEmpty(Range("Y7")) Then
Range("Y7").ClearContents
Range("Y6").ClearContents
If Not IsEmpty(Range("Z7")) Then
Range("Z7").ClearContents
Range("Z6").ClearContents
If Not IsEmpty(Range("AA7")) Then
Range("AA7").ClearContents
Range("AA6").ClearContents
If Not IsEmpty(Range("AB7")) Then
Range("AB7").ClearContents
Range("AB6").ClearContents

If Not IsEmpty(Range("AD7")) Then
Range("AD7").ClearContents
Range("AD6").ClearContents
If Not IsEmpty(Range("AE7")) Then
Range("AE7").ClearContents
Range("AE6").ClearContents
If Not IsEmpty(Range("AF7")) Then
Range("AF7").ClearContents
Range("AF6").ClearContents

If Not IsEmpty(Range("AH7")) Then
Range("AH7").ClearContents
Range("AH6").ClearContents
If Not IsEmpty(Range("AI7")) Then
Range("AI7").ClearContents
Range("AI6").ClearContents
If Not IsEmpty(Range("AJ7")) Then
Range("AJ7").ClearContents
Range("AJ6").ClearContents

If Not IsEmpty(Range("AL7")) Then
Range("AL7").ClearContents
Range("AL6").ClearContents
If Not IsEmpty(Range("AM7")) Then
Range("AM7").ClearContents
Range("AM6").ClearContents
If Not IsEmpty(Range("AN7")) Then
Range("AN7").ClearContents
Range("AN6").ClearContents

If Not IsEmpty(Range("AP7")) Then
Range("AP7").ClearContents
Range("AP6").ClearContents
If Not IsEmpty(Range("AQ7")) Then
Range("AQ7").ClearContents
Range("AQ6").ClearContents
If Not IsEmpty(Range("AR7")) Then
Range("AR7").ClearContents
Range("AR6").ClearContents
If Not IsEmpty(Range("AS7")) Then
Range("AS7").ClearContents
Range("AS6").ClearContents

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Application.CutCopyMode = False
Range("D6:E7").Select

End Sub

Guest · 17 Mai 2013

Re : Macro Supprimer Cellules non vide +

Bonjour,

Avec quelques données pour tester cela aurait été mieux.

Macro non testée

Code:

Sub Macro3()
'Parcourir toutes les cellules des Tableaux de H7 à AS7
Dim c As Range
    With Sheets("Feuil1")
        For Each c In .Range("$H$7:$J$7,$L$7:$Q$7,$S$7:$W$7,$Y$7:$AB$7,$AD$7:$AF$7,$AH$7:$AJ$7,$AL$7:$AN$7,$AP$7:$AS$7")
            If c.Value <> "" Then
                c = ""
                c(0, 1) = ""
            End If
        Next
    End With
End Sub

A+

Asus13x11 · 17 Mai 2013

Re : Macro Supprimer Cellules non vide +

bonjour

Merci beaucoup, ça marche super bien et c'est plus clair

A+

[Résolu]Macro Supprimer Cellules non vide +

Asus13x11

XLDnaute Nouveau

Pièces jointes

Guest

Guest

Asus13x11

XLDnaute Nouveau

Pièces jointes

Asus13x11

XLDnaute Nouveau

Guest

Guest

Asus13x11

XLDnaute Nouveau

Discussions similaires