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

Pb suppresion colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion barth66
  • Date de début Date de début

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
B

barth66

XLDnaute Junior
Bonjour,

voila en fait j'ai un probleme avec une macro je souhaiterai supprimé des colonnes d'un fichier mais lorsque j'enregistre une macro et que je la relance elle me supprime toutes les colonnes je ne comprends pas d'ou cela peut venir. Certaines colonnes sont fusionnées mais je ne pense pas que cela est un impact etant donné que lorsque j'enregistre la macro cela fonctionne trés bien.

Voici le code

Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Extraction par Succ_Référence").Select

Et le fichier joint.

Merci beaucoup pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Pb suppresion colonne

Bonjour à tous,

avec ce code:
Code: 
Sub suppcolonne()
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Extraction par Succ_Référence").Select
End Sub
remarque: il faut supprimer les colonnes F,G,K en commençant par celle qui se trouve le plus à droite:
d'abord la colonne K, ensuite G et enfin F

Certaines colonnes sont fusionnées mais je ne pense pas que cela est un impact...........
Cliquez pour agrandir...
et pourtant c'est bien à cause de cela que ça ne fonctionne pas correctement.
les fusions de cellules sont souvent source de problèmes et sont donc à éviter

L'exemple de code donné ci-dessus fonctionne correctement à condition de ne pas avoir de cellules fusionnées

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Pb suppresion colonne

Bonjour Barth66, Bonjour le Forum

Cela provient effectivement de la présence de cellules fusionnées.
lorsque tu exécutes "Columns("F:F").Select" tu sélectionnes en fait l'ensemble des colonnes B à L et donc tu les effaces avec ta première instruction "Selection.Delete Shift:=xlToLeft "

Pour pallier cet inconvénient, je te propose de remplacer ton code par :

Range("F1").EntireColumn.Delete 'il est inutile de sélectionner pour supprimer.
Range("K1").EntireColumn.Delete
Range("G1").EntireColumn.Delete

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Extraction par Succ_Référence").Select

effectivement il vaut mieux commencer par les colonnes les plus à droite. car avec ton code et celui que je viens de mettre plus haut, quand tu fais "Range("K1").EntireColumn.Delete", c'est en fait la colonne L d'origine que tu supprimes

Bon fin de journée

 
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

M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
247
job75
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
551
marie3107
M
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
866
marie3107
M
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
945
fanfan38
  • Résolu(e)
Microsoft 365 Macro modification que je ne sais pas faire
5 6 7
Réponses
98
Affichages
7 K
TooFatBoy
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
941
MickaeL_D
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Question Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
982
Staple1600
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
948
Aldonanou
A
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
1 K
AlexAGEMS
A
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
853
Deadpool_CC
E
  • Question Question
Microsoft 365 Problème format date dans tableau
Réponses
3
Affichages
1 K
etpisculrien
E
I
  • Question Question
XL 2019 Comment optimiser ce code ?
Réponses
4
Affichages
890
Staple1600
  • 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
J
  • Question Question
XL 2016 Macro "copier une cellule, coller jusqu'à dernière cellule non-vide "
Réponses
6
Affichages
2 K
JhnnPhl
J
  • Question Question
XL 2019 Problème avec WorksheetFunction
Réponses
2
Affichages
1 K
cp4
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…