colorer cellule suivant conditions

pascal21

XLDnaute Barbatruc

• 29 Février 2012

• #2

Re : colorer cellule suivant conditions

Pour faire. Remonter merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 29 Février 2012

• #3

Re : colorer cellule suivant conditions

Salut Pascal, le Forum

Un essai en pièce jointe si j'ai bien compris

Option Explicit

Sub EssAi()
Dim C As Range, X As Range
Dim DerLig As Long
DerLig = Feuil2.Range("E" & Rows.Count).End(xlUp).Row
Feuil1.Range("A4:F1000").Interior.ColorIndex = xlNone
Feuil2.Range("G2:G1000").ClearContents
For Each C In Feuil2.Range("E2:E" & DerLig)
If C.Offset(, 1) = "ok" Then
C.Offset(, 2).FormulaLocal = "=INDIRECT(" & C.Address & ")"
C.Offset(, 2) = C.Offset(, 2).Value
Set X = Sheets("Feuil1").Cells.Find(What:=C.Offset(, 2))
If Not X Is Nothing Then X.Interior.ColorIndex = 6
End If
Next C
End Sub

Cliquez pour agrandir...

Bonne Journée

 

Pièces jointes

• Colorer cellules Pascal.xls

  80.5 KB · Affichages: 60

Vote positif 0 Vote négatif

Salmander

XLDnaute Occasionnel

• 29 Février 2012

• #4

Re : colorer cellule suivant conditions

Bonjour, au risque de me planter complètement, pourquoi ne pas le faire avec une mise en forme conditionnelle ?

Code:

=INDIRECT("Feuil2!F"&EQUIV(ADRESSE(LIGNE();COLONNE());Feuil2!$C:$C;0))="ok"

Cela semble fonctionner correctement sur mon Excel 2010...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Février 2012

• #5

Re : colorer cellule suivant conditions

Bonjour à tous,

Autre solution VBA :

Code:

Private Sub CommandButton1_Click()
Dim cel As Range
On Error Resume Next
For Each cel In Feuil2.[F:F].SpecialCells(xlCellTypeConstants)
  Evaluate(cel.Offset(, -1).Text).Interior.ColorIndex = 6 'jaune
Next
End Sub

Edit : Feuil2 est le CodeName.

Fichier joint.

A+

 

Pièces jointes

• colorer cellules(1).xls

  45 KB · Affichages: 55

Dernière édition: 29 Février 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Février 2012

• #6

Re : colorer cellule suivant conditions

Re,

Une Mise en forme conditionnelle (MFC) en Feuil1 est en effet possible.

Mais peut-être faut-il la compliquer un peu au cas où le nom de cette feuille serait modifié.

Fichier joint.

Edit : j'ai rendu générale la formule définissant NomFeuil.

Car on peut mettre une MFC dans toutes les feuilles devant être colorées.

A+

 

Pièces jointes

• colorer cellules MFC(1).xls

  26.5 KB · Affichages: 59

Dernière édition: 29 Février 2012

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Février 2012

• #7

Re : colorer cellule suivant conditions

bonjou à tous
merci popur vos propositions
je vais essayer les deux pour voir ce que ça donne
je pensais moi aussi à une MFC mais je ne voyais pas comment écrire un truc pareil
index j'utilise jamais et equiv pareil mais faudrait que j'apprenne à la connaitre mieux cette fonction

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Février 2012

• #8

Re : colorer cellule suivant conditions

bon bin ça à l'aire de fonctionner
j'ai finalement choisi la macro de Job je comprends mieux son fonctionnement pour une modif ultérieure

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Février 2012

• #9

Re : colorer cellule suivant conditions

comme ça marche plutôt bien
est-il possible de rajouter une 2eme condition
avec non plus la colonne f mais la colonne G
j'aimerais avoir une bordure en diagonale si G est non vide
donc si F non vide = jaune
si G non vide = bordure diagonale et couleur jaune
j'ai essayé de doubler le code mais ça ne marche pas
oui je sais j'abuse

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Février 2012

• #10

Re : colorer cellule suivant conditions

Re,

pascal21 à dit:

j'ai essayé de doubler (...)

Cliquez pour agrandir...

Si ça marche, mais toujours mettre ses clignotants quand on double :

Code:

Private Sub CommandButton1_Click()
Dim cel As Range
On Error Resume Next
For Each cel In Feuil2.[F:F].SpecialCells(xlCellTypeConstants)
  Evaluate(cel.Offset(, -1).Text).Interior.ColorIndex = 6 'jaune
Next
For Each cel In Feuil2.[G:G].SpecialCells(xlCellTypeConstants)
  With Evaluate(cel.Offset(, -2).Text)
    .Interior.ColorIndex = 6 'jaune
    .Borders(xlDiagonalUp).LineStyle = xlContinuous
  End With
Next
End Sub

Fichier (2).

A+

 

Pièces jointes

• colorer cellules(2).xls

  33 KB · Affichages: 50

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Février 2012

• #11

Re : colorer cellule suivant conditions

merci
il me semble bien pourtant que je lavais écris comme ça
ç'est parfait

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 2 Mars 2012

• #12

Re : colorer cellule suivant conditions

bonjour le forum
je fais remonter ce fil car j'ai une nouvelle demande sur ce fichier
si j'efface une cellule en feuil 1, j'aimerais que le ligne correspondante en feuil2 soit signalée pour que je la supprime manuellement, par une couleur de fond ou mieux supprimer directement
merci pour votre aide

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mars 2012

• #13

Re : colorer cellule suivant conditions

Bonjour Pascal,

pascal21 à dit:

si j'efface une cellule en feuil 1(...)

Cliquez pour agrandir...

Tu veux sans doute parler de l'effacement/suppression d'une date.

Utilise une macro Worksheet_Activate en Feuil2.

Elle passera en revue les dates en colonne A et si une date n'existe pas en Feuil1 la ligne sera supprimée.

A+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 2 Mars 2012

• #14

Re : colorer cellule suivant conditions

bonjour Job
j'entends par effacement d'une cellule, le contenu d'une cellule saisie et dont le contenu aura été copié en ligne dans la feuil2
il faut en effet prévoir la possibilité d'un chantier annulé après l'avoir saisi, donc la ligne correspondante en feuil2 n'a pu lieu d'être

 

Pièces jointes

• affacement cellules.xls

  35.5 KB · Affichages: 60

Dernière édition: 2 Mars 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mars 2012

• #15

Re : colorer cellule suivant conditions

Re,

Bon c'est un peu bizarre, mais pourquoi pas.

Alors dans le code de Feuil1 :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, sup As Range
On Error Resume Next
For Each cel In Feuil2.[E:E].SpecialCells(xlCellTypeFormulas)
  If Evaluate(cel.Text) = "" Then _
    Set sup = Union(IIf(sup Is Nothing, cel, sup), cel)
Next
sup.EntireRow.Delete
End Sub

Fonctionne si l'on efface une cellule (la suppression ne peut pas être repérée).

Rappel : Feuil2 c'est le CodeName de la feuille.

A+

 

Vote positif 0 Vote négatif