Insertion ligne

Modeste

XLDnaute Barbatruc

• 11 Août 2015

• #2

Re : Insertion ligne

Bonsoir zac.dubeau et bienvenue 🙂

Il y a deux questions que tu peux/devrais te poser:

1. ne vaudrait-il pas mieux fournir à ces braves gens du forum, une petit fichier exemple? (lequel fichier permettrait, par exemple de déterminer la nuance de bleu à laquelle correspond la valeur 16776960, mais aussi de vérifier si ladite couleur s'applique à certaines cellules ou à la ligne entière et par ailleurs de contrôler que ce même bleu n'est pas affecté à une/des cellule(s), par le biais d'une MFC, par exemple)
2. quelle est la valeur de la variable i pendant toute l'exécution du code?

 

Vote positif 0 Vote négatif

Z

zac.dubeau

Guest

• 12 Août 2015

• #3

Re : Insertion ligne

Bonjour,

En effet ça serait mieux avec un fichier. 🙂

A+

 

Pièces jointes

• Insérer ligne.xlsm

  22.4 KB · Affichages: 25

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 12 Août 2015

• #4

Re : Insertion ligne

bonjour,

c'est quoi le but ?
si tu nous exposais ta vraie problématique, on trouverait certainement une autre (peut-être plus adaptée) solution

 

Vote positif 0 Vote négatif

Z

zac.dubeau

Guest

• 12 Août 2015

• #5

Re : Insertion ligne

Le fichier est composé de ligne couleur bleue clair. Je voudrais juste que la macro insère automatiquement deux lignes vides au-dessus de chaque ligne de couleur bleue.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Août 2015

• #6

Re : Insertion ligne

Bonjour, zac.dubeau, Modeste 😀, mutzik 😀, le Forum,

Un essai, avec le code suivant, à condition que les lignes concernées contiennent une valeur en colonne a.

Code:

Option Explicit
Sub Ligne_insérer_x_x_si_couleur_x()
    Dim i As Long, ii As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i).Interior.Color = 16776960 Then
            For ii = 1 To 2
                With Rows(i)
                    .Insert
                    .Offset(-1, 0).Interior.Color = xlNone
                End With
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Z

zac.dubeau

Guest

• 12 Août 2015

• #7

Re : Insertion ligne

Merci DoubleZero,

La macro marche parfaitement pour mon application.
J'ais bien des valeurs colonne A. (coup de chance) 🙂

 

Vote positif 0 Vote négatif