Microsoft 365 VBA Excel

job75

XLDnaute Barbatruc

• 9 Août 2021

• #2

Bonsoir INIMEGPAC,

Vous ne croyez pas qu'il serait plus simple de supprimer les colonnes inutiles ?

Si vous nous dites quels critères permettent de les distinguer on pourra créer une macro.

A+

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #3

Je ne peux les supprimer à la mano car j'ai à peu près 162 colonnes qui sortent dans l'extract,

Pourquoi je voudrais passer par la recherche parce que les colonnes peuvent changer d'ordre au fil de temps.

je souhaite avoir des cases à cocher pour chaque colonne

Par case 1 [ChechBox] ====> Colonne1 [Text]
Dès que j'appuie sur la/ les chechsBox, puis un bouton Ok, e voudrais que Excel sélectionne Colonnes dont les cases à cocher sont cochées et de n'exporter que la sélection dans un nouveau fichier Excel

J'ai mis en PJ un exemple

Grand Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2021

• #4

INIMEGPAC à dit:

Je ne peux les supprimer à la mano car j'ai à peu près 162 colonnes qui sortent dans l'extract,

Cliquez pour agrandir...

Bien sûr c'est la macro qui fera la suppression, à condition d'indiquer les critères de suppression.

Il y en a forcément, alors accouchez

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #5

J'ai essayé ça Mais ça n'a pas fonctionné




Private Sub CommandButton1_Click()
On Error Resume Next
If CheckBox1.Value = True Then

xStr = "Colonne 1"

xRg = Range("A1PP1").Find(xStr, , xlValues, xlWhole, , , True)

Adresse = xRg.Address

Adresse.EntireColumn.Select

End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2021

• #6

Vous ne voulez pas répondre à la question posée alors continuez seul et bon courage.

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #7

Désolé, je vous ai pas compris

Quelle question ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2021

• #8

Mes posts #2 et #4 sont clairs.

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #9

job75 à dit:

Mes posts #2 et #4 sont clairs.

Cliquez pour agrandir...

Oui le critère c'est l'en-tête de la colonne

Merci beaucoup

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #10

INIMEGPAC à dit:

Oui le critère c'est l'en-tête de la colonne

Merci beaucoup

Cliquez pour agrandir...

Je voudrais cocher les cases des colonnes que je souhaite garder

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2021

• #11

Bah quels sont les critères pour conserver ou supprimer un en-tête de colonne ???

Il n'y a pas besoin d'être un expert pour comprendre que créer 162 cases à cocher est une aberration.

 

Vote positif 0 Vote négatif

I

INIME-

XLDnaute Nouveau

• 9 Août 2021

• #12

Ah, ça dépend du besoin
En fait, selon le travail que je souhaite faire de cette extract.

Parfois je garde colonne 1, 2, 5 ?139 d'autres 13,16,100,

ça dépend, raison pour laquelle, je veux des cases à cocher,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2021

• #13

Bonne nuit et bonne continuation.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 9 Août 2021

• #14

bonsoir inimegpac, bonsoir job75 bonsoir le forum
une solution à évaluer.
Avec une case à cocher je ne sais pas faire, mais je vous propose d'insérer une ligne en début de la feuille qui deviendra la ligne 1.
Dans cette 1re ligne écrire le chiffre "1" en première ligne des colonnes devant être supprimées.
la macro ci-dessous supprimera toutes les colonnes identifiées avec le chiffre "1" en première ligne

VB:

Sub supp()
Dim I As Integer
For I = 200 To 1 Step -1
    If Cells(1, I).Value = 1 Then Columns(I).Delete
Next I
End Sub

cordialement
galougalou

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 10 Août 2021

• #15

re
et pour écrire automatiquement 1 avec la macro suivante (dans la feuille) sur clic droit, l'action sera rapide

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("a1:gr1"), Target) Is Nothing Then
ActiveCell = "1"
End If
End Sub

cdt

 

Vote positif 0 Vote négatif