Coloré cellule

roro69 · 13 Mai 2015

Bonjour et merci de votre aide
Dans des colonnes j'ai des données qui vont deux par deux ;j'aimerais pouvoir colorier ces cellules avec certaine condition et avec décalage.J'ai mi mon fichier avec la demande que je souhaite.
Merci pour le temps consacré

Yaloo · 13 Mai 2015

Re : Coloré cellule

Bonjour roro,

Quelles sont les conditions ?

roro69 · 13 Mai 2015

Re : Coloré cellule

Bonsoir et merci de votre intérêt
Les conditions sont pour chaque ligne:

si colonne 3 "vide" je colorie les deux cellules précédente
Si colonne 3 n'est "pas vide" et colonne 5 "vide" je colorie les deux cellules précédent la colonne 5
‘’’’Ligne suivante j’alterne
Si colonne 3 n'est "pas vide" et colonne 5 "vide" je colorie les deux cellules précédent la colonne 3

‘’’’’Et je continue
Si colonne 3 n'est "pas vide" et colonne 5 " pas vide " et colonne 7 ‘’vide’’ je colorie les deux cellules précédent la colonne 7
‘’’’Ligne suivante j’alterne
Si colonne 3 n'est "pas vide" et colonne 5 " pas vide " et colonne 7 ‘’vide’’ je colorie les deux cellules précédent la colonne 5
‘’’’Et ainsi de suite

Merci

roro69 · 13 Mai 2015

Re : Coloré cellule

supprimer dsl

JCGL · 13 Mai 2015

Re : Coloré cellule

Bonjour à tous,
Salut Roro,

Il me semble que :

si colonne 3 "vide" je colorie les deux cellules précédente
Si colonne 3 n'est "pas vide" et colonne 5 "vide" je colorie les deux cellules précédent la colonne 5
‘’’’Ligne suivante j’alterne
Si colonne 3 n'est "pas vide" et colonne 5 "vide" je colorie les deux cellules précédent la colonne 3

‘’’’’Et je continue
Si colonne 3 n'est "pas vide" et colonne 5 " pas vide " et colonne 7 ‘’vide’’ je colorie les deux cellules précédent la colonne 7
‘’’’Ligne suivante j’alterne
Si colonne 3 n'est "pas vide" et colonne 5 " pas vide " et colonne 7 ‘’vide’’ je colorie les deux cellules précédent la colonne 5
‘’’’Et ainsi de suite

ne correspond pas à ta coloration manuelle

A++
A+ à tous

Yaloo · 13 Mai 2015

Re : Coloré cellule

Re,

J'ai modifié ton fichier mais ne suis pas sûr du résultat à partir de la ligne 16 j'ai décalage.

A partir de la ligne 16 il y a un décalage. Pourquoi à cette ligne doit-on continuer en S et T plutôt U et V ?

A te relire

Martial

Edit : Salut Jean-Claude, j'avais pas rafraichit.

roro69 · 13 Mai 2015

Re : Coloré cellule

Bonsoir Yaloo et Jean-claude
Bien vu Jean Claude .Yaloo m'a corriger çà.
Yaloo :super exactement ce que je voulais ( la ligne 16 un bug manuel de ma part) en plus avec ton code çà me corrige toute mes lignes d’après. SUPER MERCI

Une dernier petite question puis je récupérer dans une autre feuille sur une seule colonne les cellules coloré .
En tout cas merci beaucoup pour votre aide et votre temps consacré

Yaloo · 13 Mai 2015

Re : Coloré cellule

Re,

En modifiant comme ça :

VB:

Sub Color()
Dim c&, l&, k&
[B:K].Interior.ColorIndex = xlNone
For l = 2 To [A65536].End(3).Row
  c = Application.WorksheetFunction.Odd(Cells(l, 1).End(2).Column)
  If c < 4 Then
    Cells(l, 2).Resize(, 2).Interior.ColorIndex = 6
    Cells(l, 2).Resize(, 2).Copy Feuil2.[A65536].End(3)(2)
   ElseIf c > 4 Then
    For k = c To 2 Step -2
      Cells(l, k - 1).Resize(, 2).Interior.ColorIndex = 6
      Cells(l, k - 1).Resize(, 2).Copy Feuil2.[A65536].End(3)(2)
      If l = [A65536].End(3).Row Then Exit Sub
      If k > 3 Then l = l + 1
    Next
  End If
Next
End Sub

A+

JCGL · 13 Mai 2015

Re : Coloré cellule

Bonjour à tous,
Salut Martial,

Bravo !
Il te reste à régler "le une seule colonne" et certainement les doublons

A++ les amis et un Vin Jaune pour ce soir
A+ à tous

roro69 · 13 Mai 2015

Re : Coloré cellule

Bonsoir Yaloo
Vraiment merci beaucoup
C'est exactement comme je voulais
Merci

Yaloo · 13 Mai 2015

Re : Coloré cellule

Oui, je viens de voir "le une seule colonne", comme ceci :

VB:

Sub Color()
Dim c&, l&, k&
[B:K].Interior.ColorIndex = xlNone
Feuil2.Cells.Clear
For l = 2 To [A65536].End(3).Row
  c = Application.WorksheetFunction.Odd(Cells(l, 1).End(2).Column)
  If c < 4 Then
    Cells(l, 2).Resize(, 2).Interior.ColorIndex = 6
    Cells(l, 2).Copy Feuil2.[A65536].End(3)(2)
    Cells(l, 2).Offset(, 1).Copy Feuil2.[A65536].End(3)(2)
   ElseIf c > 4 Then
    For k = c To 2 Step -2
      Cells(l, k - 1).Resize(, 2).Interior.ColorIndex = 6
      Cells(l, k - 1).Copy Feuil2.[A65536].End(3)(2)
      Cells(l, k - 1).Offset(, 1).Copy Feuil2.[A65536].End(3)(2)
      If l = [A65536].End(3).Row Then Exit Sub
      If k > 3 Then l = l + 1
    Next
  End If
Next
End Sub

A+

@ Jean-Claude, bon Vin Jaune

roro69 · 13 Mai 2015

Re : Coloré cellule

Bonsoir Jean claude ; allez deux petit vin jaune pour vous deux
Yaloo merci pour tout ;
Jean claude non les doublons pas de problèmes avec et encore merci a vous

Coloré cellule

roro69

XLDnaute Impliqué

Pièces jointes

Yaloo

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

roro69

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

Pièces jointes

roro69

XLDnaute Impliqué

Yaloo

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Yaloo

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Discussions similaires