IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

supprimer des colonnes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2011
    Messages
    422
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2011
    Messages : 422
    Par défaut supprimer des colonnes
    bonjour tout le monde et heureux d'être de retour parmis vous

    j'ai un petit problème
    j'ai écris un petit code pour supprimer une colonne (entière) qui contient la cellule "société" et le "profit"

    donc le code est le suivant:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub suppression()
     
     
     
    Dim rg As Excel.Range
    Range("B10").Select
    Range(Selection, Selection.End(xlToRight)).Select
     
    For Each rg In Selection
        If rg = "Société" or rg="Profit" Then
        rg.EntireColumn.Delete
        End If
    Next
     
    End Sub
    l'inconvenient c'est que ça me supprime une seule colonne or je veux que les deux soit supprimer

    est ce que quelqu'un pourrait éclairer ma lanterne en panne de courants ^^?

    merci d'avance

  2. #2
    Membre très actif Avatar de gourmand
    Homme Profil pro
    dessinateur projeteur mécanique
    Inscrit en
    Avril 2011
    Messages
    153
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : dessinateur projeteur mécanique

    Informations forums :
    Inscription : Avril 2011
    Messages : 153
    Par défaut
    => essais de sélectionner deux colonnes à la fois :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A10:B10").Select
    ou supprime les une par une (mais c'est plus long si tu en a 50 à faire)

  3. #3
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2011
    Messages
    422
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2011
    Messages : 422
    Par défaut
    non j'en ai pas boucoup et heureusement

    parcontre j'ai pas bien compris
    en fait je veux faire une boucle qui tienne compte des libellés(commençant en B10) si dans cette même boucle je trouve le libéllé "société" et "profit" alors ça me supprime la colonne relative

  4. #4
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Essaie ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
    Dim i As Integer
     
    For i = Cells(10, Columns.Count).End(xlToLeft).Column To 2 Step -1
        If Cells(10, i) = "Société" Or Cells(10, i) = "Profit" Then Columns(i).Delete
    Next
     
    End Sub

  5. #5
    Membre très actif Avatar de gourmand
    Homme Profil pro
    dessinateur projeteur mécanique
    Inscrit en
    Avril 2011
    Messages
    153
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : dessinateur projeteur mécanique

    Informations forums :
    Inscription : Avril 2011
    Messages : 153
    Par défaut
    rg.EntireColumn.Delete te modifie t'a sélection. pour corrigé le problème, soi tu remais Range(Selection, Selection.End(xlToRight)).Select après rg.EntireColumn.Delete

    soi tu ne passe pas par la fonction select pour ta boucle

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For Each rg In Range(Selection, Selection.End(xlToRight))
    il faut évité au maximum Select car on sais jamais si une commande que l'on utilisa nous change ou non notre sélection

    edit : désolé fring, je n'avais pas vue que tu avais répondu

  6. #6
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2011
    Messages
    422
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2011
    Messages : 422
    Par défaut
    ah merci genial ton code marche à merveille

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. supprimer des colonnes
    Par nadine7 dans le forum Débuter
    Réponses: 2
    Dernier message: 29/01/2009, 11h15
  2. Supprimer des colonnes avec des cellules fusionnées
    Par alain74 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/03/2008, 11h07
  3. Supprimer des colonnes d'un tableau
    Par Lorenzox dans le forum Collection et Stream
    Réponses: 3
    Dernier message: 16/11/2007, 14h21
  4. [C#] Supprimer des colonnes (Table avec 2 clés primaire)
    Par sara21 dans le forum Windows Forms
    Réponses: 1
    Dernier message: 05/11/2006, 21h42
  5. [VBA-E] - supprimer des colonnes
    Par romano dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 02/02/2006, 14h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo