Supprimer des colonnes
Résolu
Momo
-
Theo.R Messages postés 585 Statut Membre -
Theo.R Messages postés 585 Statut Membre -
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.
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.
3 réponses
-
Bonsoir,
Si toutes les feuilles sont identiques les sélectionner toutes ensembles - supprimer les colonnes sur la feuille active avant de dissocier.
Cordialement-
-
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
-
-
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-
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. -
-
-
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
