Microsoft 365 Macro modification que je ne sais pas faire

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 ?

VB: 
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 🙂
 
Dernière édition:
Trier par date Trier par votes
Ou peut-être garder l'excellente macro de #40, mais remplacer
For Ligne = DL To 2 Step -1
If Cells(Ligne, "B") = "" Then Cells(Ligne, "A") = 1
Next Ligne
par une formule avec NB.VAL

Au départ je voulais aussi utiliser un filtre, mais je m'étais dit que ça allait modifier l'ordre de toutes ses lignes.
En voyant la macro de #40, j'ai compris qu'en ça ne déplaçait que les lignes vides, sans modifier l'ordre des autres lignes.
Tu m'as permis d'avancer dans ma réflexion, donc : merci @sylvanu !


Paix et félicité !
 
Vote positif 0 Vote négatif
Bonjour le fil, le forum

Usine à gaz à dit:
C'est la solution du #post 37 avec une petite modif qui serait le mieux 🙂
Cliquez pour agrandir...


@Usine à gaz , modifié comme cela peut être ?

Cordialement, @+

VB: 
Sub Lgn_vides()
Dim Tab_Range%(), DerniereLigne&
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'ActiveSheet.Unprotect Password:=""
    Sheets("RdV_faits").Select
        DerniereLigne = ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Row
        ReDim Tab_Range(1 To DerniereLigne, 1 To 2)
        For r = 2 To DerniereLigne
            Tab_Range(r, 1) = 1
            If Application.CountA(Rows(r)) = 0 Then Tab_Range(r, 2) = 1
        Next r
        Columns("A:B").Insert shift:=xlToRight
        Range("A1:B" & DerniereLigne).Value2 = Tab_Range
        Range("A1:B1").AutoFilter
        ActiveSheet.Range("$A$1:$B$" & DerniereLigne).AutoFilter Field:=2, Criteria1:="1"
        Range("B3:B" & DerniereLigne + 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
        Columns("A:B").Delete shift:=xlToLeft
        Columns("F:zz").Delete shift:=xlToLeft
        Range("A1").Select
    Sheets("Appels").Select
        DerniereLigne = ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Row
        ReDim Tab_Range(1 To DerniereLigne, 1 To 2)
        For r = 2 To DerniereLigne
            Tab_Range(r, 1) = 1
            If Application.CountA(Rows(r)) = 0 Then Tab_Range(r, 2) = 1
        Next r
        Columns("A:B").Insert shift:=xlToRight
        Range("A1:B" & DerniereLigne).Value2 = Tab_Range
        Range("A1:B1").AutoFilter
        ActiveSheet.Range("$A$1:$B$" & DerniereLigne).AutoFilter Field:=2, Criteria1:="1"
        Range("B3:B" & DerniereLigne).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
        Columns("A:B").Delete shift:=xlToLeft
        Columns("F:zz").Delete shift:=xlToLeft
        Range("A1").Select
'ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
[a1].Select
End Sub
 
Vote positif 0 Vote négatif
Marcel32 à dit:
Ou peut-être garder l'excellente macro de #40, mais remplacer
For Ligne = DL To 2 Step -1
If Cells(Ligne, "B") = "" Then Cells(Ligne, "A") = 1
Next Ligne
par une formule avec NB.VAL

Au départ je voulais aussi utiliser un filtre, mais je m'étais dit que ça allait modifier l'ordre de toutes ses lignes.
En voyant la macro de #40, j'ai compris qu'en ça ne déplaçait que les lignes vides, sans modifier l'ordre des autres lignes.
Tu m'as permis d'avancer dans ma réflexion, donc : merci @sylvanu !


Paix et félicité !
Cliquez pour agrandir...
Malheureusement, je ne peux pas prendre le risque d'ajouter une colonne dans mon fichier de travail, même si elle est supprimée après traitement. c'est bien la solution du #post 37 qui conviendrait le mieux si elle ne supprimait pas les 1ères lignes 🙂
 
Vote positif 0 Vote négatif
Bernard_XLD à dit:
Bonjour le fil, le forum




@Usine à gaz , modifié comme cela peut être ?

Cordialement, @+

VB: 
Sub Lgn_vides()
Dim Tab_Range%(), DerniereLigne&
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'ActiveSheet.Unprotect Password:=""
    Sheets("RdV_faits").Select
        DerniereLigne = ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Row
        ReDim Tab_Range(1 To DerniereLigne, 1 To 2)
        For r = 2 To DerniereLigne
            Tab_Range(r, 1) = 1
            If Application.CountA(Rows(r)) = 0 Then Tab_Range(r, 2) = 1
        Next r
        Columns("A:B").Insert shift:=xlToRight
        Range("A1:B" & DerniereLigne).Value2 = Tab_Range
        Range("A1:B1").AutoFilter
        ActiveSheet.Range("$A$1:$B$" & DerniereLigne).AutoFilter Field:=2, Criteria1:="1"
        Range("B3:B" & DerniereLigne + 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
        Columns("A:B").Delete shift:=xlToLeft
        Columns("F:zz").Delete shift:=xlToLeft
        Range("A1").Select
    Sheets("Appels").Select
        DerniereLigne = ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Row
        ReDim Tab_Range(1 To DerniereLigne, 1 To 2)
        For r = 2 To DerniereLigne
            Tab_Range(r, 1) = 1
            If Application.CountA(Rows(r)) = 0 Then Tab_Range(r, 2) = 1
        Next r
        Columns("A:B").Insert shift:=xlToRight
        Range("A1:B" & DerniereLigne).Value2 = Tab_Range
        Range("A1:B1").AutoFilter
        ActiveSheet.Range("$A$1:$B$" & DerniereLigne).AutoFilter Field:=2, Criteria1:="1"
        Range("B3:B" & DerniereLigne).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
        Columns("A:B").Delete shift:=xlToLeft
        Columns("F:zz").Delete shift:=xlToLeft
        Range("A1").Select
'ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
[a1].Select
End Sub
Cliquez pour agrandir...
Bonjour Bernard merci pour cet autre code mais ça ne fonctionne pas 🙂
 
Vote positif 0 Vote négatif
Lionel, vous rendez vous compte que vous trouvez non risqué ( ce qui est vrai ) de supprimer plein de lignes et plein de colonnes, mais extrêmement risqué d'insérer une colonne.
Définitivement, je ne vous comprendrais jamais. Désolé. 🙂
Mais au moins, vérifiez, ma macro marche.
 
Vote positif 0 Vote négatif
sylvanu à dit:
Lionel, vous rendez vous compte que vous trouvez non risqué ( ce qui est vrai ) de supprimer plein de lignes et plein de colonnes, mais extrêmement risqué d'insérer une colonne.
Cliquez pour agrandir...
La colonne en question devrait, à mon avis, être présente en permanence vu que ce n'est pas la première fois, me semble-t-il, qu'il est question de savoir si une ligne du tableau est vide ou non. 😉
 
Vote positif 0 Vote négatif
Usine à gaz à dit:
Re-Marcel : je ne peux pas modifier tous les codes de mon fichier pour ajouter une colonne. 🙂
Cliquez pour agrandir...
Pas de souci si c'est ton choix. 😉
Remarque : si tu mets la colonne en question après la dernière colonne du tableau, ça ne doit pas te faire changer grand chose dans le code.
Mais, c'est vous qui voyez. 😉


Usine à gaz à dit:
c'est bien la solution du #post 37 qui conviendrait le mieux si elle ne supprimait pas les 1ères lignes 🙂
Cliquez pour agrandir...
T'es vraiment certain que #37 supprime les premières lignes ???
Pour moi ça supprime le premier groupe de "lignes vides". Mais je peux me tromper bien sûr.
 
Dernière édition:
Vote positif 0 Vote négatif
Marcel32 à dit:
Pas de souci si c'est ton choix. 😉
Remarque : si tu mets la colonne en question après la dernière colonne du tableau, ça ne doit pas te faire changer grand chose dans le code.
Mais, c'est vous qui voyez. 😉



T'es vraiment certain que #37 supprime les premières lignes ???
Pour moi ça supprime le premier groupe de "lignes vides". Mais je peux me tromper bien sûr.
Cliquez pour agrandir...
"T'es vraiment certain que #37 supprime les premières lignes ???"
OUI, il est super ce code de Sylvanu, une petite modif (si possible) suffirait 🙂
 
Vote positif 0 Vote négatif
Usine à gaz à dit:
"T'es vraiment certain que #37 supprime les premières lignes ???"
OUI, il est super ce code de Sylvanu, une petite modif (si possible) suffirait 🙂
Cliquez pour agrandir...
Pourtant ce n'est pas ce qui est décrit dans les commentaires du code :
' On repère la première ligne vide
' On repère la dernière ligne vide
' On supprime
Cliquez pour agrandir...
Donc, pour moi ça supprime le premier groupe de "lignes vides".

Si ce code te convient, il te suffit de boucler jusqu'à la fin du tableau, pour que chaque groupe de lignes vides sera supprimé. 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
700
Usine à gaz
Usine à gaz
Usine à gaz
  • Question Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
847
patricktoulon
patricktoulon
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
953
fanfan38
fanfan38
Ferbank
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
Ferbank
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
G
  • Question Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
1 K
Grelune
G
Usine à gaz
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
Usine à gaz
E
  • Question Question
Microsoft 365 Problème format date dans tableau
Réponses
3
Affichages
1 K
etpisculrien
E
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
Hasco
Usine à gaz
  • Résolu(e)
Microsoft 365 Tri sur colonnes définies
Réponses
3
Affichages
627
Usine à gaz
Usine à gaz
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
S
  • Question Question
XL 2010 Séparer macro en 2
Réponses
2
Affichages
768
samfau
S
J
  • Question Question
XL 2016 Macro "copier une cellule, coller jusqu'à dernière cellule non-vide "
Réponses
6
Affichages
2 K
JhnnPhl
J
M
  • Question Question
Microsoft 365 faire une synthèse dans un classeur à partir d'un nombre aléatoire d'onglets
Réponses
5
Affichages
1 K
chris
chris
bambi
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
bambi
P
  • Question Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
GALOUGALOU
C
  • Question Question
Microsoft 365 Macro excel qui bug
Réponses
11
Affichages
3 K
Staple1600
Staple1600
chris6999
  • Question Question
Microsoft 365 Boucle sur plage filtrée - Ne fonctionne pas
Réponses
3
Affichages
2 K
chris6999
chris6999
Usine à gaz
  • Question Question
coller sous la 1ère ligne vide (code que je ne sais pas modifier)
Réponses
1
Affichages
532
Usine à gaz
Usine à gaz
C
  • Question Question
XL 2013 VBA - Copier coller valeurs uniquement - Macro consolidation
Réponses
1
Affichages
2 K
sylvanu
sylvanu
Retour