> Tous les forums > Forum Bureautique
 [Excel] Copier des colonnes automatiquementSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Lui
  Posté le 04/03/2013 @ 19:16 
Aller en bas de la page 
Astucien

Bonjour,

J'ai un tableau avec des colonnes, certaines ont une case de couleur verte, je souhaite les isoler et les mettre côte à côte
comme dans l'exemple ci joint

Merci pour votre aide.



Modifié par Lui le 04/03/2013 19:17
Publicité
gilbert_rgi
 Posté le 04/03/2013 à 19:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

selectionner la colonne B puis clique droit puis soit supprimer ou masquer la colonne



Modifié par gilbert_rgi le 04/03/2013 19:29
qmike549
 Posté le 04/03/2013 à 19:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

oui ou encore passer par une macro

en précisant quelles sont les colonnes destination

Lui
 Posté le 04/03/2013 à 19:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello,

Merci pour l'aide, mais j'ai dû mal m'exprimé (c'est sure meme)

Ok, quand il y a quelques colonnes, ça me dérange pas de le faire à la main, mais sur un tableau avec plusieurs dizaines de colonnes (50 à 70 parfois)
Je voudrais l'automatiser par une macro ou je sais pas quoi.

Encore merci et toutes mes excuses si je n'ai pas été trés clair




Modifié par Lui le 04/03/2013 19:36
gilbert_rgi
 Posté le 04/03/2013 à 20:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir

se placer dans une cellule de la colonne à effacer puis lancer la macro ci dessous ou créer un bouton pour lancer la macro

Sub supprimecolonne()

Dim col As Integer

col = ActiveCell.Column

Columns(col).Delete

End Sub

Lui
 Posté le 04/03/2013 à 21:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re,

Merci, ça marche, mais comment dire à Excel de supprimer toutes les colonnes qui ne comportent pas
de cases vertes, tu crois que ç'est possible ça ? Genre, je lance la macro, et il cherche et surprime
sans que j'ai à selectionner les colonnes, car quand il y en a beaucoup c'est un peu galère

Merci

MB24
 Posté le 04/03/2013 à 21:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Lui a écrit :

Re,

Merci, ça marche, mais comment dire à Excel de supprimer toutes les colonnes qui ne comportent pas
de cases vertes, tu crois que ç'est possible ça ? Genre, je lance la macro, et il cherche et surprime
sans que j'ai à selectionner les colonnes, car quand il y en a beaucoup c'est un peu galère

Merci


Bonsoir

Pourquoi une cellule est elle verte STP, car, à partir de cela, on pourra faire ce que tu désires via une macro

A+

Lui
 Posté le 04/03/2013 à 22:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello,

Merci, vert indique en réalité "Oui", ceux que je souhaite c'est isoler ces colonnes.
Ne garder qu'elles et virer les autres.
Quand j'aurais réussi à faire ça, j'ai une macro qui va réaliser des totaux au bout de chaques lignes.
La couleur verte sera toujours sur la troisieme ligne, c'est la seule couleur dans le tableau
Un exemple

gilbert_rgi
 Posté le 05/03/2013 à 08:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

il existe beaucoup de ref de couleur celle de mon exemple n'est pas forcément celle du votre

voilà mon exemple pour la version de excel 2007

cliquez ici



Modifié par gilbert_rgi le 05/03/2013 10:02
Publicité
ferrand
 Posté le 05/03/2013 à 10:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Au vu de tes indications, j'essaierai quelque chose comme ça :

Sub SupprColSansCouleur()
Dim z%, h%, i%
With ActiveSheet
z = .Range("IV4").End(xlToLeft).Column
Do While .Cells(3, z).Interior.ColorIndex = xlColorIndexNone
z = z - 1
Loop
h = z
For i = z To 1 Step -1
If .Cells(3, i).Interior.ColorIndex <> xlColorIndexNone Then
If h - i > 1 Then Range(.Cells(3, i + 1), .Cells(3, h - 1)).EntireColumn.Delete
h = i
End If
Next i
End With
End Sub

MB24
 Posté le 05/03/2013 à 15:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
ferrand a écrit :

Bonjour,

Au vu de tes indications, j'essaierai quelque chose comme ça :

Sub SupprColSansCouleur()
Dim z%, h%, i%
With ActiveSheet
z = .Range("IV4").End(xlToLeft).Column
Do While .Cells(3, z).Interior.ColorIndex = xlColorIndexNone
z = z - 1
Loop
h = z
For i = z To 1 Step -1
If .Cells(3, i).Interior.ColorIndex <> xlColorIndexNone Then
If h - i > 1 Then Range(.Cells(3, i + 1), .Cells(3, h - 1)).EntireColumn.Delete
h = i
End If
Next i
End With
End Sub


Bravo

Lui
 Posté le 05/03/2013 à 19:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Whaooouuu 2 pour le prix d'un !

En plus les deux marchent nikel !
Cool l'idée du bouton

Ferrand au top

Demain je test en réel au taf .
Une seule chose à tous les deux : MERCI

Merci également à qmike549

Bonne soirée

gilbert_rgi
 Posté le 05/03/2013 à 19:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Lui a écrit :

Whaooouuu 2 pour le prix d'un !

En plus les deux marchent nikel !
Cool l'idée du bouton

Ferrand au top

Demain je test en réel au taf .
Une seule chose à tous les deux : MERCI

Merci également à qmike549

Bonne soirée

la colonne résultat n'existe pas dans le code de l'ami Ferrand dans le mien elle existe

Lui
 Posté le 05/03/2013 à 20:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re,

J'ai vu, merci d'y avoir pensé.

Encore merci à vous deux.

ferrand
 Posté le 05/03/2013 à 21:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

gilbert_rgi a écrit :

la colonne résultat n'existe pas dans le code de l'ami Ferrand dans le mien elle existe

Pas tout à fait la même technique ! Toujours intéressant de voir diverses solutions...

Je t'accorde que je n'écris pas "résultat" en haut de la colonne. Mais je préserve la colonne résultat qui n'a pas de cellule verte en ligne 3 !
[recherche dernière colonne par la propriété End de la droite vers la gauche sur la ligne 4 (je me suis fié au schéma du post de 22h19, car il n'était pas question de colonne résultat auparavant), point de départ qui n'est pas supprimé]

Ta recherche sur "xlformulas" est subtile , s'il est assuré qu'il n'y a pas de formules dans d'autres colonnes.

Autres différences : je supprime les colonnes par groupes au lieu de le faire individuellement, mais le résultat est le même, sauf que cela me permet de ne pas supprimer de colonne à gauche de la plus à gauche marquée en vert au cas où il en existerait...

Dernier point, comme une seule couleur est utilisée, j'ai préférée me baser sur la non-coloration. Je me méfie de l'identification des couleurs, le système ayant changé à partir d'Excel 2007. S'il avait fallu identifier une couleur parmi d'autres, j'aurais procédé à la détermination de la propriété Color sur des critères de positionnement d'une cellule de la couleur cherchée, ou à défaut en faisant démarrer la macro après sélection d'une cellule colorée.

Bonne soirée encore .

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
-20%20% de remise sur les accessoires pour liseuses Kindle, tablettes Fire et assistants Echo
Valable jusqu'au 25 Mai

Amazon offre actuellement 20% de remise immédiate sur les accessoires pour liseuses Kindle, tablettes Fire et assistants Echo. Pour profiter de l'offre, utilisez le code promo BIENVENU20. Vous trouverez des housses, des étuis, des chargeurs, des coques, des films de protection, etc.


> Voir l'offre
89,99 €Caméra de surveillance additionnelle Netgear Arlo HD à 89,99 €
Valable jusqu'au 06 Avril

Amazon propose actuellement la caméra additionnelle Netgear Arlo HD VMC3030-100EUS à 89,99 € livrée gratuitement au lieu de 148 € . Elle est compatible avec les systèmes Arlo, Arlo Pro et Arlo Pro 2. Elle est étanche IP65.


> Voir l'offre
22,99 €Sac à dos Sparin pour ordinateur portable jusqu'à 17.3 pouces à 22,99 €
Valable jusqu'au 09 Avril

Amazon fait une promotion sur le sac à dos Sparin pour ordinateur portable jusqu'à 17.3 pouces qui passe à 22,99 € alors qu'on le trouve habituellement à 32,99 €. Ce sac à dos renforcé, rembourré et étanche comporte un compartiment pour un ordinateur de dimensions max 340x40x470 (17.3 pouces) et un autre compartiment pour ranger vos affaires. Une poche frontale zippée est également présente. Notez que des fentes protégées vous permettront de brancher depuis l'extérieur une prise USB et un casque audio aux appareils à l'intérieur du sac.


> Voir l'offre

Sujets relatifs
copier/coller colonnes Excel 2007
Importer données web sur excel automatiquement
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Largeur Hauteur colonnes en mm dans Excel
Macro Excel. Mes colonnes disparaissent.
copier sur plusieurs feuilles excel en meme temps
Excel : Un mot est remplacer par un autre automatiquement
Copier-coller cellules Excel, en évitant les triangles verts
Cocher automatiquement case excel
log pour copier des accords musicaux à la volée ? excel ?
Plus de sujets relatifs à [Excel] Copier des colonnes automatiquement
 > Tous les forums > Forum Bureautique