Microsoft 365 Macro modification que je ne sais pas faire

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche 🙂

Voici ci-dessous un code que j'ai besoin de modifier mais je n'y arrive pas malgré mes tentatives et recherches.
Pourriez-vous m'aider ?

Sub Lgn_vides()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect Password:=""
    Sheets("RdV_faits").Select
        ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
        'Rows("107:10015").Select '???
        Selection.Delete Shift:=xlUp
        'Columns("R:ZZ").Select '???' R à dernière col vide
        Selection.Delete Shift:=xlToLeft
    Range("A1").Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

L'objectif est de supprimer les lignes et colonnes vides
Codes que je cherche à modifier :
Supprime toutes les lignes à partir de la 1ère cellule A (cellule active) vide
1er..... Code que je cherche à modifier : "'Rows("107:10015").Select '???" par de la 1ère ligne active à la dernière ligne vide,
Supprime toutes les colonnes à partir de la col "R" jusqu'à la dernière colonne vide
2eme Code que je cherche à modifier : "'Columns("R:ZZ").Select '???' R à dernière col vide

Si vous voulez bien juste modifier mes codes ci-dessus, ça, je pourrai le comprendre 🙂
Si besoin, je ferai un fichier test.
Un grand Merci ... je continue mes recherches,
Amicalement,
lionel 🙂

 

[sylvanu]

exact toutes les lignes après sont forcément vides

Donc on ne peut pas les supprimer, XL les remettra. On peut juste les masquer.

 

[Usine à gaz]

OUI Sylvanu : mais ça allège le poids du fichier 🙂
en supprimant les lignes et colonnes vides, je passe de 12 à 2.3

 

[TooFatBoy]

OUI Sylvanu : mais ça allège le poids du fichier 🙂

Dans ce cas il faudrait peut-être aussi supprimer les lignes vides à l'intérieur du tableau.

Mais peut-être y a-t-il un problème de conception de l'usine à gaz : comment arrives-tu à te retrouver avec des lignes vides ?
Autrement dit, ne peuvent-elles être supprimées au fur et à mesure qu'elles deviennent vides ? 🤔

 

[ChTi160]

Re
Tu devrais et tu sais que quelques Lignes suffisent a faire notre bonheur Lol
Jean marie

 

[ChTi160]

Re
Marcel c'est ce qu'il veut Lol
Mais je pense que sans fichier on ne se comprend pas et Lionel n'arrive pas a adapter les solutions qui lui sont proposées ! Dommage non ?
Jean marie

 

[sylvanu]

Si c'est ça le besoin, alors faites :

    DL = 1 + Range("A1048576").End(xlUp).Row
    Rows(DL & ":1048576").Delete Shift:=xlUp

 

[Usine à gaz]

Dans ce cas il faudrait peut-être aussi supprimer les lignes vides à l'intérieur du tableau.

Mais peut-être y a-t-il un problème de conception de l'usine à gaz : comment arrives-tu à te retrouver avec des lignes vides ?

Re-Marcel : surtout pas lol 🙂

 

[TooFatBoy]

Re
Marcel c'est ce qu'il veut Lol
Jean marie

Non, ça a changé : maintenant il demande de ne supprimer que les lignes vides après la dernière ligne non vide. 😉

Preuve en est sa réponse :

Re-Marcel : surtout pas lol 🙂

 

[ChTi160]

mdr ! non y'a comme qui dirait incompréhension maintenant Lol
ca n'aurait pas de sens !

il demande de ne supprimer que les lignes vides après la dernière ligne non vide. 😉

Jean marie

 

[TooFatBoy]

mdr ! non y'a comme qui dirait incompréhension maintenant Lol

C'est pourtant bien ce qu'il demande entre autre en #68. 😉

Juste il faudrait que la suppression commence après :
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
C'est à dire après la dernière ligne NON VIDE de la feuille.

ca n'aurait pas de sens !

Oh, ce serait étonnant !... 🤣

 

[Usine à gaz]

Si c'est ça le besoin, alors faites :

    DL = 1 + Range("A1048576").End(xlUp).Row
    Rows(DL & ":1048576").Delete Shift:=xlUp

Merci Sylvanu, je vais tester. ça commence à partir de la ligne suivant la dernière ligne NON vide ? 🙂

 

[Usine à gaz]

Non, ça a changé : maintenant il demande de ne supprimer que les lignes vides après la dernière ligne non vide. 😉

Preuve en est sa réponse :

C'est toujours ce que j'ai demandé lol 🙂

 

[sylvanu]

DL = 1 + Range("A1048576").End(xlUp).Row

C'est ce que ça veut dire.
Si par exemple la dernière cellule occupée est A17 alors DL vaut 18.

 

[TooFatBoy]

C'est toujours ce que j'ai demandé lol 🙂

😱 C'est pas beau de mentir, surtout quand il y a des traces... 😂

L'objectif est de supprimer les lignes et colonnes vides
Codes que je cherche à modifier :
Supprime toutes les lignes à partir de la 1ère cellule A (cellule active) vide

 

[Usine à gaz]

Si c'est ça le besoin, alors faites :

    DL = 1 + Range("A1048576").End(xlUp).Row
    Rows(DL & ":1048576").Delete Shift:=xlUp

Re-Sylvanu : Merci c'est exactement ça 🙂