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 :

vba [e] suppression de colonne


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Par défaut vba [e] suppression de colonne
    bonjour
    je stagne sur une procedure toute simple
    je m explique sur sur feuille 12 colonnes sont affectées d un nom a la 1ere ligne, en fonction d un userform je rentre des valeurs ou non dans ces colonnes.
    si la 2eme ligne d 'une ou plusieurs colonnes n est pas remplie je souhaite effacer la colonne

    1

    desolé j ai envoyé le message avant d avoir terminé

    pat christ toto meme etc
    12 221 2121 2121
    2323 111 111 1111
    etc

    j utlise cette procedure pour supprimer la colonne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub efface_col_vide()
    Dim i
        For i = 1 To 12
        Worksheets("pronostics").Select
            If cells( i).Value = "" Then
                MsgBox "col " & i & " vide"
                Columns(i + 2).Delete            
            End If
        Next i    
    End Sub
    le pb est qu a chaque suppression de col , la reference de la colonne suivante
    se decremente
    suppression col 5 : la col 6 devient la col 5 donc si cette derniere est vide
    la procedure ne la prend pas en compte

    j espere avoir ete claire

    merci

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Dans ce cas-là on travaille à l'envers
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For i = 12 To 1 step -1
    (je n'ai pas regardé le reste de ton code, tu testes et si tu as un pb, tu nous dis

    Edit
    Bon je viens de regarder
    If cells( i).Value = "" Then
    Si tu ne mets pas de N° de ligne, ça ne va pas fonctionner
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Cells(NoLigne,i).value = Empty then
    Tu donnes une valeur à NoLigne et tu testes

  3. #3
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Par défaut
    merci ous 'n'kel
    la suptilité etait tte simple encore fallait il y penser
    au fait ds mon code que j avais recopié il manquait un argument a l objet cells

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

Discussions similaires

  1. VBA - Extension de formules après ajout ou suppression de colonnes
    Par camcam33 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/08/2014, 15h24
  2. [Toutes versions] suppression de colonnes et feuilles sur excel avec VBA
    Par info009 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/05/2014, 16h21
  3. Suppression de colonne via SQL sur Access Vba
    Par Benoit Labbey dans le forum VBA Access
    Réponses: 3
    Dernier message: 29/06/2009, 13h39
  4. [VBA-E] Suppression du contenu d'une colonne sans perdre ses formules
    Par mardona dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/04/2007, 09h08
  5. [VBA-E] Suppression des colonnes avec condition
    Par desdenova dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/02/2007, 13h39

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