mettre des couleurs sur un plan fait sur Excel.

Re : mettre des couleurs sur un plan fait sur Excel.

Bonjour,

Pour les cellules vides rajouter dans la mise en forme conditionnelle une règle
"La formule est " "=ESTVIDE(F10)=VRAI" couleur rouge

Re : mettre des couleurs sur un plan fait sur Excel.

Bonjour dtenfert
C'est maladif chez moi, je suis toujours choqué de voir une expression logique comparée à une constante logique. "=ESTVIDE(F10)" ça suffit !
Les opérateurs de comparaisons servent à transformer d'autres types de données en expressions logiques.
Les opérateurs à utiliser entre expressons logiques sont Eqv, Xor, Imp, And, Or et le préfixe Not. (en VBA)
A+

Re : mettre des couleurs sur un plan fait sur Excel.

En fait les cellules sont pas vraiment. En effet, quand vous executez la macro, je voulais que les cellules " pas de place " prennent une couleur verte sur le plan.

Public Sub plan()
Dim lg1 As Long, lg2 As Long, col As Integer
Dim sel As Range
Dim wk1 As Worksheet, wk2 As Worksheet
Set wk1 = Sheets("DONNEES")
Set wk2 = Sheets("PLAN")
For lg1 = 2 To wk1.UsedRange.Rows.Count
If Not wk1.Cells(lg1, 5).Value = "Placé" Then
lg2 = 1: col = 1
Do
Set sel = wk2.Cells.Find(What:=wk1.Cells(lg1, 4).Value, After:=wk2.Cells(lg2, col), _
LookIn:=xlFormulas, LookAt:=xlPart)
If sel Is Nothing Then
wk1.Cells(lg1, 5).Value = "Pas de place"
Exit Do
End If
If Left(sel.Value, 13) = "Reference : " & Chr(10) Then
sel.Value = Replace(sel.Value, "Reference : ", "Reference : " & wk1.Cells(lg1, 1).Value)
sel.Value = Replace(sel.Value, "Boitage : ", "Boitage : " & wk1.Cells(lg1, 2).Value)
sel.Value = Replace(sel.Value, "Nbre de boite : ", "Nbre de boite : " & wk1.Cells(lg1, 3).Value)
wk1.Cells(lg1, 5).Value = "Placé"
Exit Do
End If
lg2 = sel.Row: col = sel.Column
Loop
End If
Next lg1
End Sub