Supprimer des colonnes

Résolu/Fermé

Momo - 24 févr. 2016 à 17:14
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 24 mars 2016 à 16:10

Bonjour,

Je dispose d'une classeur Excel avec 32 feuilles nommées KPI1, KPI2 jusqu'à KPI32 et chauqe feuille a les colonnes KPI1, KP2, ..KPI32. je souhaiterais faire, si on est dans la feuille KPI1, supprimer les autres colonnes KPI... KPI32 et garder uniquement la colonne KPI1 et ceci dans chaque feuille.

Est ce vous pourriez m'aider s'il vous plait.

Merci par avance.

A voir également:

Supprimer des colonnes
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Supprimer edge - Guide
Supprimer bing - Guide
Word colonnes indépendantes - Guide

3 réponses

Réponse 1 / 3

PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024 1 405
24 févr. 2016 à 18:45

Bonsoir,

Si toutes les feuilles sont identiques les sélectionner toutes ensembles - supprimer les colonnes sur la feuille active avant de dissocier.

Cordialement

MomoAbou
24 févr. 2016 à 19:03

Bonsoir PapyLuc51

Merci de votre retour. Je ne suis pas sûr d'avoir bien compris. Toutes les feuilles sont identiques au départ oui juste que DANS KPI1 je ne dois garder que la colonne KPI1 et supprimer les autres. La colonne à garder n'est pas toujours à la même place.

PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024 1 405
24 févr. 2016 à 20:07

J'avais bien mis si toutes les feuilles sont identiques, ce qui n'est pas le cas. Il est donc inutile de détailler mon propos. A mon modeste niveau je n'ai pas d'autre solution à part de faire feuille par feuille, Je suis sûr que d'autres membres vont te concocter une solution.

Il serait bon que tu envoies un exemplaire anonymisé de ton classeur en passant par cjoint
https://www.cjoint.com/

https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

Cordialement

MomoAbou > PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024
24 févr. 2016 à 20:31

Bonsoir,

merci encore. voici le lien du fichier à joindre:

http://www.cjoint.com/c/FBytzdhTK26

Cordialement,

Réponse 2 / 3

PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024 1 405
Modifié par PapyLuc51 le 25/02/2016 à 07:16

Bonjour
J'ai vu ton classeur test ; et que tous tes feuillets KPI1 à KPI10 sont l'exact reflet de le l'onglet feuil1.

Je me trompe peut-être mais je suppose que tu veux garder/voir la colonne KPI1 dans le feuillet KPI - KPI2 dans le feuillet KPI2 et ainsi de suite et que les colonnes gardent leur position (colonne B pour KPI1, C pour KPI2...) et ne travailler que sur la Feuil1 avec renvoi des valeurs.

Si tu tiens à tout conserver, sur chaque feuille, l'une après l'autre :
- soit tu effaces le contenu des cellules et tu masques les colonnes vides pour ramener la colonne active à la deuxième position (voir méthode ci-dessous)
- soit tu masques les colonnes avec leur valeurs : sélectionne toutes les colonnes que tu ne veux pas voir (touche Ctrl maintenue enfoncée Clic gauche sur la lettre des colonnes à masquer pour les griser relâcher Ctrl Clic droit sur une des lettres de colonnes grisées et Masquer ;

Ou tous simplement pour éviter d'alourdir ton classeur autant travailler uniquement sur la feuil1 et supprimer tout le reste ;

Si je me trompe dans mes suppositions, explique clairement ce que tu veux

Cordialement

MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
25 févr. 2016 à 09:39

Bonjour PapyLuc1,

Oui, sur la feuille KPI1 je ne souhaite voir que la colonne KPI1 placée à la colonne B, sur KPI3 uniquement Feuille 3 mais placée toujours à la colonne B. Sur chaque Feuille Uniquement la colonne A et B doivent exister (où A est déja fixée et B varie d'une feuille à l'autre).

Je ne connaissais pas les manipulations que tu as proposées. Je vais tester ça déjà pour voir.

Merci beaucoup.

PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024 1 405 > MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
Modifié par PapyLuc51 le 25/02/2016 à 10:07

où A est déja fixée et B varie d'une feuille à l'autre

Dans ce cas tu suis ma deuxième explication et au lieu de masquer tu cliques sur supprimer tout simplement

Cordialement

MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
25 févr. 2016 à 10:18

Merci beaucoup PapyLuc, problème résolu maintenant aussi bien avec ta méthode que le code VBA qui m'est proposé par Théo.R

Réponse 3 / 3

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 25/02/2016 à 10:09

Bonjour,

je ne sais pas si vous avez déjà trouvé votre bonheur avec les autres réponses, mais si ça n'est pas le cas vous pouvez utiliser ce code dans un module :

Sub test()

For i = 1 To 32

Dim A As String
A = Sheets("KPI" & i).Cells(1, 1).Value
Dim B As String
B = "KPI" & i
x = 1

Do Until A = B
Sheets("KPI" & i).Columns("A:A").Delete
A = Sheets("KPI" & i).Cells(1, 1).Value
x = x + 1
If x = 33 Then
MsgBox i & " " & A & " " & B
Exit Sub
End If
Loop

Dim C As String
C = Sheets("KPI" & i).Cells(1, 2).Value

Do Until Sheets("KPI" & i).Cells(1, 2).Value = ""
Sheets("KPI" & i).Columns("B:B").Delete
C = Sheets("KPI" & i).Cells(1, 2).Value
Loop

Next i

End Sub

MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
25 févr. 2016 à 10:15

Bonjour Theo,

Merciii tu me sauves la vie, c'est exactement ce que je voulais je l'ai testé et ça a marché!! dire que je me suis tapé cette opération je ne sais combien de fois (copier / Coller Supprimer autres column).

Merci

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31 > MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
Modifié par Theo.R le 25/02/2016 à 10:20

Pas de souci,

Désolé du retard dans la réponse, en fait j'avais terminé hier en fin d'aprem mais j'ai eu un problème de connexion au forum, du coup j'ai dû attendre ce matin :s

Pensez-bien à passer le sujet en Résolu si cest ok pour vous ;)

Bonne continuation,

PapyLuc51 Messages postés 4298 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 23 avril 2024 1 405
25 févr. 2016 à 10:20

Tu vois je savais bien que tu allais avoir d'autres solutions. Tu as l'air satisfait du code de Théo.R - Si ça solutionne ta question n'oublie pas de cocher résolu en haute de ta question initiale.

Cordialement

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
25 févr. 2016 à 10:22

Euh juste un détail sur mon code, toutes les lignes qui concernent la variable "x" ne servent à rien, je les ai mises pour identifier à quel moment mon code ne fonctionnait plus ^^'

Bref ça ne coûte rien de les laisser non plus ;)

MomoAbou Messages postés 18 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 23 mars 2018
25 févr. 2016 à 10:35

ça y est je l'ai passé en résolu!! Merci à tous les deux! Je ne suis pas encore bon en vba (j'apprends petit à petit), je pense que je vais laisser le x comme ça n’empêche pas le code de s’exécuter et que je risque de réutiliser plein de fois ce code.

Merci :)

Discussions similaires

comment supprimer des j'aimes sur mes photos

Discussions similaires

Newsletters