Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Macro modification que je ne sais pas faire

Créer une discussion

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

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
Bonjour Usine à gaz,
Pour les lignes :
VB: 
Debut = Range("A1").End(xlDown).Row
Fin = Range("A65500").End(xlUp).Row
Rows(Debut & ":" & Fin).Delete Shift:=xlUp
En supposant que la colonne A est remplie pour trouver début et fin.
Pour les colonnes :
Code: 
DC = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 18), Cells(1, DC)).Delete Shift:=xlToLeft
En supposant que les infos à repérer sont sur la ligne 1.
 
Vote positif 0 Vote négatif
Re,
Depuis 2011et 6000 messages , j'ai pensé que vous auriez pu adapter.
Essayez pour voir :
VB: 
Sub Lgn_vides()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect Password:=""
    Sheets("RdV_faits").Select
        ' Supprime toutes les lignes qui ont quelque chose en colonne A
        Debut = Range("A1").End(xlDown).Row
        Fin = Range("A65500").End(xlUp).Row
        Rows(Debut & ":" & Fin).Delete Shift:=xlUp
        ' Supprime toutes les colonnes qui ont quelque chose en ligne 1 à partir de la colonne R
        DC = Cells(1, Columns.Count).End(xlToLeft).Column
        Range(Cells(1, 18), Cells(1, DC)).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
 
Vote positif 0 Vote négatif
Bonjour le Fil
Pourquoi ne pas juste effacer les données, plutôt que de supprimer les lignes?
Soit :
VB: 
Rows(Debut & ":" & Fin).ClearContents
Et
Range(Cells(1, 18), Cells(1, DC)).ClearContents

Bonne fin de journée
Jean marie
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Chti,
Parce que c'est ce qui est demandé:
VB: 
Selection.Delete Shift:=xlUp
Selection.Delete Shift:=xlToLeft
Ensuite ça dépend du contexte de cette usine à gaz. 😂😅🤣
 
Vote positif 0 Vote négatif
Bonjour ChTi160 🙂

NON Jean-Marie l'objectif est de supprimer les vides
Codes que je cherche à modifier :
Supprime toutes les lignes à partir de la 1ère cellule A 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

Comme me le fait remarquer gentiment Sylvanu : "Depuis 2011et 6000 messages , j'ai pensé que vous auriez pu adapter"
Malheureusement, ne parlant pas un mot d'anglais, je resterai juste "NUL" en VBA mais si vous voulez bien juste modifier mes codes ci-dessus, ça, je pourrai le comprendre 🙂
lionel 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Alors expliquez mieux :
R à dernière col vide
Cliquez pour agrandir...
La dernière colonne c'est la colonne XFD, moi je supprime toutes les colonnes de R à la dernière colonne qui contient quelque chose en ligne 1.
par de la 1ère ligne active à la dernière ligne vide,
Cliquez pour agrandir...
La dernière ligne vide est la ligne 1048576. Moi je supprime toutes les lignes de la première à la dernière qui ont quelque chose en colonne A.
 
Vote positif 0 Vote négatif
lol ça me semble clair dans le code du #post 1 :
Supprimer les lignes vides
Pour les lignes
1 - ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
2 - 'Rows("107:10015").Select '???
3 - Selection.Delete Shift:=xlUp
Pareil pour les colonnes
🙂
 
Vote positif 0 Vote négatif
Re
Je viens de comprendre ça !
"NON Jean-Marie l'objectif est de supprimer les vides"
Qui n'apparaissait pas avant lol
A partir de quelle colonne faut il vérifier les vides ?
Avec un truc du genre à partir de la colonne 1 "A"
VB: 
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Pourquoi ne pas trier la BDD
Jean marie
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
649
Usine à gaz
  • Question Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
824
patricktoulon
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
883
fanfan38
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
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
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
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
  • Résolu(e)
Microsoft 365 Tri sur colonnes définies
Réponses
3
Affichages
605
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
738
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
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
P
  • Question Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
C
  • Question Question
Microsoft 365 Macro excel qui bug
Réponses
11
Affichages
3 K
Staple1600
  • Question Question
Microsoft 365 Boucle sur plage filtrée - Ne fonctionne pas
Réponses
3
Affichages
2 K
chris6999
  • Question Question
coller sous la 1ère ligne vide (code que je ne sais pas modifier)
Réponses
1
Affichages
516
Usine à gaz
C
  • Question Question
XL 2013 VBA - Copier coller valeurs uniquement - Macro consolidation
Réponses
1
Affichages
2 K
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…