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