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 :

L'insertion de ligne me décale ma macro


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Mai 2011
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Mai 2011
    Messages : 1
    Par défaut L'insertion de ligne me décale ma macro
    Bonjour à tous !

    Me voilà aujourd'hui bien embèter...

    J'avais un formulaire sur lequel, selon la configuration de la pièce, je masquais certaines lignes.

    J'ai donc pas moins de 350 lignes qui peuvent être ou non masqués.

    Ca ca marche. Par exemple (1/5e du code environ...)

    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    If ComboBox5.ListIndex = 0 Then 'Oui
     
       Worksheets("PV").Activate
       Range("n113,n121,n141,n162,n403,n422").Value = ""
     
    ElseIf ComboBox5.ListIndex = 1 Then 'Non
     
        Worksheets("PV").Activate
        ActiveSheet.Shapes("Group 407").Delete
        Cells(106, 12).Clear
     
        Range("115:118,123:125,143:152,164:183,210:215,229:235,397:400,405:410,424:433,437:442").Select
        Selection.EntireRow.Hidden = True
        Range("n113,n121,n141,n162,n208,n395,n403,n422,n435").Value = "Sans objet"
     
    End If
     
     
    If ComboBox6.ListIndex = 0 Then 'Oui
     
        Worksheets("PV").Activate
        Range("n127,n185,n272,n288,n298,n372").Value = ""
     
    ElseIf ComboBox6.ListIndex = 1 Then 'Non
     
        Worksheets("PV").Activate
        Range("129:139,187:202,236:245,249:250,274:278,282:286,288:296,301:307,311:322,344:347,354:357,359:360,374:375,379:382,385:393,397:400,414:420").Select
        Selection.EntireRow.Hidden = True
        Range("n127,n185,n272,n288,n298,n350,n372,n395,n412").Value = "Sans objet"
     
    End If
    Le soucis...

    Dans mon formulaire, j'ai été obligé de rajouter 5 lignes sous la ligne 176...
    Donc, si je lance ma macro dans l'état, je vais masquer des lignes qui n'auraient pas du être masqués... et il va me rester des lignes qui auraient du être masqués et qui ne le sont pas...

    Ma macro est décalée de 5 lignes à partir de la 176...
    J'ai bien pensé relire tout le code, et ajouter 5 à toutes les lignes > 176, mais c'est lourd et source d'erreurs...

    Y'a pas un moyen pour que les codes "numéro de ligne" se décalent seul quand j'insert des lignes dans le classeur ?

    Merci pour vos réponses.

  2. #2
    Membre éprouvé
    Homme Profil pro
    Consultant comptable
    Inscrit en
    Mai 2011
    Messages
    137
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant comptable

    Informations forums :
    Inscription : Mai 2011
    Messages : 137
    Par défaut
    si mais il faudrait que tu mette des variables plutot que des sélections fixes.
    Les colonnes que tu masque n'ont pas des conditions spécifiques que tu pourrais détecter et donc masquer (augmenter l'utilisation de tes if, faire des boucles, etc....)

    Par contre je ne comprends pas pourquoi tu met un if, un elseif, mais pas de else tout court

Discussions similaires

  1. [XL-2003] Tableau - macro insertion de ligne
    Par HankMoody dans le forum Macros et VBA Excel
    Réponses: 28
    Dernier message: 07/08/2012, 10h33
  2. [XL-2007] Macro d'insertions de lignes - erreur 1004
    Par Pedrocha dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 02/11/2011, 16h48
  3. [OpenOffice] Macro insertion de ligne et copier coller calc
    Par Adamantium dans le forum OpenOffice & LibreOffice
    Réponses: 1
    Dernier message: 10/07/2008, 15h20
  4. Macro: Insertion de ligne par condition
    Par Monteninho dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/08/2007, 14h48
  5. Macro: Pb sur un code insertion de ligne
    Par Monteninho dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 16/08/2007, 12h08

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