Code pour detecter la couleur Fermé

Question

Bonjour, 

J'essaye de completer une macro pour rajoutter des lignes. Le soucis que je rencontre c'est que j'ai besoin d'inserer dedans des lignes de code pour que quand la couleur de la ligne est verte ou bien jaune elle n'applique pas la macro dessus.

   Voilà le code que j'utilise pour rajoutter des lignes:

Sub Insertions()
Dim lig As Long
Range("A4").Select
Reprise:
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell) = 0 Then Exit Sub
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Rows("1:1").EntireRow.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
End If
GoTo Reprise
End Sub

Aidez moi SVP

via55 · Answer

Bonjour

Pour tester la couleur à l'interieur de la cellule active :

col=activecell.interior.colorindex

si vert  col=4 si jaune col=6

donc

If col=4 or col=6 then exit sub

dans ton cas

Cdlmt

ssboo · Answer

Bonjour Via55

  J'ai essayer de rajoutter ta ligne mais ça ne marche toujours pas
Si tu veux bien tu retrouveras dans ce lien un extrait de mon fichier pour tester le code dessus :
    
              https://www.cjoint.com/c/CCApdLIta1v

Merci pour ton aide

Cordialement 

Youness

ssboo · Answer

Oui bien évidement c'est les deux lignes qu'il faut ajouter j'ai juste mal écris au début. 

La sélection de couleur elle marche mais quand il recontre une ligne jaune ou verte il stop le processus d'ajout de ligne, tout en sachant que dans mon fichier j'ai plusieurs lignes un peu partout en jaune ou en vert.

Ce qu'il faudrait que je fasse c'est sauter les lignes jaune ou verte et continuer l'éxecution du programme sur les autres lignes.

Merci encore

Code pour detecter la couleur

3 réponses

Discussions similaires