Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • 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 !

apdf1

XLDnaute Impliqué
Re bonjour le forum,

Je cherche avec un code vba supprimer ou cacher toute les colonnes ou tous au moins qui reste 15 colonnes visible.

Dans l'attende d'une réponse je vous remercie d'avance.

@+

Max
 
Re : Colonnes

Re,

Je vais essayé de mieux expliquer , j'ai une feuille avec toutes les colonnes je voudrais qu'il me reste juste les colonnes que j'ai besoin c'est à dire de A à M tous le reste je n'en veut pas j'ai déjà vue sa ces super et doit pouvoir le faire aussi avec les ligne.

Le tous en code VBA

Merci d'avance
@+

Max
 
Re : Colonnes

Bonjour apdf1, lebonetletruand,

apdf1, tu sélectionnes l'entête des colonnes de N à IV puis click-droit puis masquer. Ensuite, tu recommences pour les lignes que tu veux masquer.

A+
 
Re : Colonnes

Bonjour le fil 🙂

apdf1, en suivant la démarche indiquée par Fred0o, plus celle de Lebonetletruand avec l'enregistreur de macros, tu devrais avoir le code VBA correspondant à ta demande.
J'imagine (à tort ou à raison ?? ) que tu as essayé, et donc, qu'est-ce qui ne va pas dans ton code?

@ +

mth

Edit: Hello scoobytor 🙂
Edit 2: 🙂 Coucou Fred0o 🙂 contente de te croiser 🙂
 
Dernière édition:
Re : Colonnes

Re

Bien sur

Code:
' pour les colonnes
Columns("P:IV").EntireColumn.Hidden = Not Columns("P:IV").EntireColumn.Hidden
' Pour les lignes
Rows("20:65536").EntireRow.Hidden = Not Rows("20:65536").EntireRow.Hidden
 
Re : Colonnes

Bonsoir tous

Sinon, tu inscris cette petite macro, elle te demande combien de ligne et combien de colonne tu veux conserver

Au cas ou tes données seraient variables....

Bonne soirée A+

Code:
Sub MasquerLignesColonnes()
Lig = InputBox("Veuillez saisir le nombre de ligne à conserver")
Col = InputBox("Veuillez saisir le nombre de colonne à conserver")
Range(Cells(Lig + 1, 1), Cells(Lig + 1, 1).End(xlDown)).EntireRow.Hidden = True
Range(Cells(1, Col + 1), Cells(1, Col + 1).End(xlToRight)).EntireColumn.Hidden = True
End Sub
 
- 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éponses
18
Affichages
603
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…