Titre du sujet : Re: Mise en evidence de chevaux repérés courant dans une course. par Mytå le 09/03/2012 15:52:21
Salut le forum
Warmaster, ajoute cette macro au fichier.
Sub Reperes()
Dim Cel As Range
Dim Cell As Range
With Sheets("Courses")
For Each Cell In .Range("C10:C" & .Cells(Rows.Count, "C").End(xlUp).Row)
If Not IsEmpty(Cell) Then
With Sheets("Reperes")
With .Cells
Set Cel = .Find(Cell.Value, LookIn:=xlValues)
If Not Cel Is Nothing Then
With Cell
.Font.Bold = True
.Font.ColorIndex = 3
End With
End If
End With
End With
End If
Next Cell
End With
End Sub
Et dans le code de la feuille F01(Courses), ajoute la ligne Call Reperes
Call CopierCourse
Call Reperes
End If
Modifie aussi cette partie dans le code des macros
- Private Sub ComboBox1_Click()
- Private Sub ComboBox2_Click()
- Private Sub CommandButton1_Click()
Range("B10:R12,B14:U33").ClearContents
Par
With Range("B10:R12,B14:U33")
.ClearContents
.Font.Bold = False
.Font.ColorIndex = 0
End With
Mytå
|