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

Microsoft 365 VBA Excel

I

INIME-

XLDnaute Nouveau
Sur une base de données, j'ai une centaines de colonnes, je souhaite me débarasser de certains de ces colonnes (problème c'est que c'est une extract ==> donc travaille répétitif à chaque extraction)

Je voudrais créer un formulaire avec des cases à cocher et mettre devant chaque case l'en-tête de colonne
Dès que je coche une case, je voudrais qu'excel aille chercher la colonne ou les colonnes, les sélectionner et par la suite exporter la sélection dans un autre fichier excel.


Merci beaucoup pour votre aide
 
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
bonjour
ça fait 162 case a cocher dans un formulaire pour faire le choix
je pense qu'il y a de meilleures solutions
faudrait il que nous ayons un fichier avec des données non confidentielles représentant fidèlement le problème

cela dit

un bouton dans la feuille pour afficher le formulaire
X case à cocher
et enfin cliquer sur un bouton supprimer dans un formulaire

serait pas moins contraignant que de sélectionner les colonnes entière par le heading et click droite supprimer
 
Vote positif 0 Vote négatif
I

INIME-

XLDnaute Nouveau
Merci d'avoir pris le temps de me lire,

Je souhaite passer par le formulaire, parce que les colonnes à supprimer sont pas toujours less mêmes

Moi je peux travailler le formulaire de 162 case à cocher, mon seul souci c'est de programmer la case à cocher avec la colonne souhaitée,

et je voudrais plutôt que Excel Exporte la sélectionner vers un nouveau classeur au lieu de supprimer

Merci
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
comment se présente ton formulaire ???
le formulaire doit etre dans le fichier ou il y a les colonnes? parce que si c'est un import/export régulier alors il faudrait peut être faire un fichier maître qui ouvre le fichier (avec tes 162 colonnes) récupe les colonnes et les transfert sur un nouveau fichier
t'en est ou de tout ça ????

comment tu importe tes colonnes ?

bref autant de question qui auraient du être précisé dans la demande
 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
Hello all

@INIMEGPAC Ce que @job75 essaie de te faire comprendre c'est:
comment tu décides de cocher ou pas une colonne
le travail que tu fais à la main pour parcourir les 165 colonnes et cocher celles que tu veux, peut etre fait directement par macro

tu dis que ca dépend de ce dont tu as besoin==> OK, c'est donc un premier critère qu'il faut expliquer

exemples au hasard:
Besoin n°1: je ne souhaite garder que les colonnes dont l'entete contient le mot "Total"
Besoin n°2: je ne souhaite garder que les colonnes impaires
Besoin n°3: je ne veux garder que les colonnes qui sont des dates

la macro commencerait par te demander quel est ton besoin 1 2 ou 3
et hop, la macro "coche les colonnes" (ce que tu fais à la main) puis supprime les colonnes inutiles..

il faut donc que tu expliques ton ou tes critères de décision

et evidemment, il est indispensable que tu postes ton fichier en exemple.. parce que la.. ca tient du domaine du divinatoire.. et ca.. c'est pas notre domaine
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour INIMEGPAC, GALOUGALOU, patricktoulon, vgendron,

Bon si l'on veut conserver seulement quelques colonnes on peut utiliser le fichier joint.

Le double-clic permet d'ouvrir l'UserForm :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
UserForm1.Show
End Sub
Le code de l'UserForm :
VB: 
Private Sub CommandButton1_Click()
Dim chemin$, i%, n%
chemin = ThisWorkbook.Path 'dossier de destination, à adapter éventuellement
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy 'nouveau document
With ListBox1
    For i = .ListCount To 1 Step -1
        If .Selected(i - 1) Then n = n + 1 Else Columns(i).Delete
    Next
End With
If n Then ActiveWorkbook.SaveAs chemin & "\Sauvegarde " & Format(Now, "yyyy-mm-dd hhmmss"), 51 'fichier .xlsx
ActiveWorkbook.Close 'ferme le document
Unload Me 'ferme l'UserForm
MsgBox IIf(n, "Sauvegarde créée avec " & n & " colonne" & IIf(n > 1, "s...", "..."), "Aucune sauvegarde créée...")
End Sub

Private Sub UserForm_Initialize()
Dim r As Range,
Set r = [A1].CurrentRegion.Rows(1)
With ListBox1
    If r.Columns.Count = 1 Then .AddItem r Else .List = Application.Transpose(r)
End With
End Sub
A+
 

Pièces jointes

  • Choix des colonnes(1).xlsm
    22.9 KB · Affichages: 10
Dernière édition:
Vote positif 0 Vote négatif
I

INIME-

XLDnaute Nouveau
Je vous remercie tous


comment tu décides de cocher ou pas une colonne ?
C'est en fonction de son en-tête, si je coche la case de colonne 1, Excel doit comprendre qu'il faut prendre la colonne entière de 1 et de la sélectionner
Si je coche la case Colonne 1 et la case de la Colonne 120, Excel doit comprendre qu'il sélectionner et la colonne dont l'en-tête est colonne 1 et celle de 120 et de les sélectionner

L'ensemble de la sélection doit être exportée dans un nouveau fichier.

les en-têtes est ce que moi je vais mettre devant chacun des Checkbox

Les données sont de types différents


PJ, formulaire ainsi que le fichier
Pour le fichier, il y aura un onglet central qui déclenche apparition du formulaire
Sur l'onglet Extract, moi je copie l'extract que mon système Bi me sort


Grand Merci
 

Pièces jointes

  • Formualire.JPG
    81.3 KB · Affichages: 16
  • Test.xlsx
    64.7 KB · Affichages: 4
Vote positif 0 Vote négatif
I

INIME-

XLDnaute Nouveau



Bonjour @vgendron

Plutôt besoin 1

Car quand je mets Colonnes 1 ne veut pas dire Colonne1 mais plutôt en-tête qui s'appelle colonne 1 que je vais mettre dans la colonne

Merci !
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Vos réponses montrent que vous ne comprenez pas ce qu'est un critère

Et vous n'avez pas testé mon fichier (1) du post #20, il n'y a pas de critère, c'est ce que vous voulez. !

Inversement si seulement quelques colonnes sont à supprimer utilisez ce fichier (2) avec :
VB: 
Private Sub UserForm_Initialize()
Dim r As Range, i%
Set r = [A1].CurrentRegion.Rows(1)
With ListBox1
    If r.Columns.Count = 1 Then .AddItem r Else .List = Application.Transpose(r)
    For i = 0 To .ListCount - 1: .Selected(i) = True: Next
End With
End Sub
 

Pièces jointes

  • Choix des colonnes(2).xlsm
    23.8 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
I

INIME-

XLDnaute Nouveau
job75 à dit:
J'ai modifié les macros UserForm_Initialize des 2 fichiers pour le cas où le tableau a une seule colonne.
Cliquez pour agrandir...
Merci pour votre réactivité

Est ce que je peux séparer l'affichage du userform dans un onglet central ?
est ce que je peux rajouter des favoris de sélection ?

dès que je coche favoris 1, il sélectionne certains nombre d'en-têtes

Je vous remercie infiniment pour la template
 
Vote positif 0 Vote négatif
Y

yal

XLDnaute Occasionnel
Bonjour
Si j'ai bien compris :
nous avons une feuille avec 160 colonnes, des tâches à accomplir qui nécessitent certaines colonnes.
Je suppose que le nombre de taches est limité et répétitives.
Voici une première proposition qui prend le problème dans l'autre sens. Plutôt que de supprimer je transfère les colonnes utiles. La procédure se lance par un double clic dans la liste des tâches en feuille "selectCol".
C'est un premier jet à arranger si la piste vous semble intéressante.
 

Pièces jointes

  • base.xlsm
    656.8 KB · Affichages: 7
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

W
  • Résolu(e)
Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme
Réponses
6
Affichages
204
fanch55
  • Question
XL 2019 faire apparaitre une image en fonction d'une valeur vrai
2
Réponses
16
Affichages
882
aspect
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
683
Chris Linefield
C
A
  • Résolu(e)
Microsoft 365 Insertion case à cocher
2
Réponses
18
Affichages
705
mapomme
I
  • Question
XL 2016 Dupliquer des colonnes sur plusieurs feuilles
Réponses
2
Affichages
230
AtTheOne
  • Résolu(e)
Microsoft 365 Contrôle case à cocher
Réponses
5
Affichages
483
Philippe17
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
267
mromain
W
  • Résolu(e)
XL 2016 Soucis Macro et Case a cocher
2
Réponses
16
Affichages
994
Wanou22
W
N
  • Résolu(e)
XL 2013 Problème de formulation EXCEL
Réponses
3
Affichages
176
Ninoo82
N
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
265
JMC
J
  • Résolu(e)
XL 2021 (Résolu) Aide vrai/faux dans plusieurs colonnes de cases à cocher
2
Réponses
27
Affichages
1 K
Dranreb
O
  • Question
XL 2019 VBA
Réponses
10
Affichages
1 K
TooFatBoy
A
  • Résolu(e)
Power Query PowerQuery List.Max "dynamique"
Réponses
4
Affichages
370
AngelFox
A
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
S
  • Question
Microsoft 365 Pulbipostage Excel→Word : cases à cocher
Réponses
1
Affichages
361
Staple1600
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
1 K
mapomme
  • Question
Microsoft 365 Importer données depuis un lien web
Réponses
1
Affichages
241
gbinforme
G
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
  • Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
588
fanfan38
P
  • Résolu(e)
XL 2016 Quadrillage excel
Réponses
4
Affichages
551
Profdeps69
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…