[Résolu]Macro Supprimer Cellules non vide +

Asus13x11

XLDnaute Nouveau
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
 

Fichiers joints

Dernière édition:
G

Guest

Guest
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+
 
Dernière édition par un modérateur:

Asus13x11

XLDnaute Nouveau
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+
 

Fichiers joints

Dernière édition:

Asus13x11

XLDnaute Nouveau
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
 
G

Guest

Guest
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

XLDnaute Nouveau
Re : Macro Supprimer Cellules non vide +

bonjour

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

A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas