Supprimer des colonnes au choix

[Ilino]

Bonsoir forum
Je souhaite supprimer des colonnes par petit Usf qui m’indique la colonne de départ a supprimer et la colonne fin a supprimer
grazie

 

[Staple1600]

Re : Supprimer des colonnes au choix

Bonsoir "le phobique de la PJ", bonsoir à tous

Allez je me lance et ose (une énième fois) :

Ilino
Tu n'aurais pas le temps de concocter un petit fichier exemple (avec userform et code VBA dédié) par hasard ?

 

[Ilino]

Re : Supprimer des colonnes au choix

Bonsoir JM , Forum
tu as raison mais j'ai constaté que je n'ai pas besoin d'un fichier exemple🙁 ( peut etre mon souci est clair) neanmoin
ci joint le fichier de la phobie
GRAZIE ET SORRY

 

[Staple1600]

Re : Supprimer des colonnes au choix

Re

Ilino
j'ai donc ouvert ta PJ , utilisé l'enregistreur de macros puis adapté le code généré pour obtenir ceci

Private Sub CommandButton1_Click()
Dim deb$, fin$
deb = UCase(TextBox1)
fin = UCase(TextBox2)
Columns(deb & ":" & fin).Delete Shift:=xlToLeft
Me.Hide
End Sub

NB: On saisit ici les lettres des colonnes (pas leur chiffre)

Ta PJ fut donc utile pour faire des tests et surtout évite de devoir recréer un fichier qui est censé exister sur le disque dur du demandeur
(et accessoirement nous renseigne sur le degré d’implication du dit-demandeur dans la résolution de sa question)

 

[Ilino]

Re : Supprimer des colonnes au choix

Re
super ça fonctionne nickel
grazie JM
Probleme Résolut
A+