aide VBA pour automatiser tache

Version imprimable

20/06/2019, 14h40
dudesson

1 pièce(s) jointe(s)

aide VBA pour automatiser tache

bonjour le forum,
bonjour à tous,
je me tourne vers vous pour demander de l'aide (dans la mesure du possible) sur une tache que j'effectue manuellement au quotidien et que j'aimerais bien automatiser via VBA.
Il s'agit d'un planning que j'exporte sous format excel mais qui a plusieurs lignes vides que je dois supprimer pour réduire le nombre de feuilles à imprimer et afficher.
exemple des lignes 18, 19 et 20 = j'en supprime 2 (idéalement 18 et 19)
attention : à condition que les cellules des colonnes C à T soient toutes vides
à noter que les colonnes A et B ne sont jamais vides mais toute la ligne peut être supprimée si toutes les cellules des colonnes C à T sont vides.
EXCEPTIONS :
1/ samedi et dimanche qui sont toujours vides de C à T mais qu'il ne faut pas supprimer, de même que la dernière ligne vendredi et la première ligne lundi (si possible).
2/ idem entre deux jours, pour la clarté du planning, il doit y avoir deux lignes consécutives vides de C à T. exemple: dernière ligne vide de C à T du lundi suivie de la première ligne vide de C à T du mardi.
dans le fichier joint le resultat attendu est la feuille "exemple ok".
merci d'avance.
Pedro.
21/06/2019, 14h52
Yves_VBA

1 pièce(s) jointe(s)

Premier jet (sans les EXCEPTIONS)

Bonjour dudesson,
ci-joint un premier jet rapide (sans le traitement des exceptions, et sans suppression des lignes vides).
La boucle est faite et la détection des lignes vides est faite aussi.
Yves
21/06/2019, 19h43
dudesson

bonjour Yves-VBA, merci pour votre intervention,
je chipote sur le code depuis un moment mais je n'arrive pas du tout à le comprendre ni même comment le faire fonctionner.
Pedro

Bonjour,
Autre proposition
le fichier
Pièce jointe 485917

Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supprimer_lignes_vides()
    Dim i As Long, c As Byte
    Application.ScreenUpdating = False
    Derlig = [A10000].End(xlUp).Row
    For i = Derlig To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") And _
            Application.WorksheetFunction.Weekday(Cells(i, "A") > 1) And Application.WorksheetFunction.Weekday(Cells(i, "A") < 7) Then
            For c = 3 To 20
                If Cells(i, c) <> "" Or Cells(i - 1, c) <> "" Then Exit For
                If c = 20 Then Cells(i, c).EntireRow.Delete
            Next c
        End If
    Next i
End Sub

Cdlt

24/06/2019, 13h24
Yves_VBA

Pour lancer la Macro ...

Bonjour dudesson,

tu ouvres le fichier Excel, acceptes l'exécution de macros, puis tu fais un Alt-F8 pour voir les macros,
et tu vois ma macro Filtre_Planning. Tu peux soit cliquer sur "Exécuter" soit la dérouler en "pas à pas détaillé",
soit la "Modifier".

Yves
24/06/2019, 13h52
dudesson

bonjour et merci à tous,
c'est vraiment super gentil de votre part.
sincères salutations.
Pedro.