Passage de ligne en ligne
Bonjour tout le monde,
J'ai créer un procédure qui me permet de colorer une cellule d'une ligne de mon choix:
Sub tests_selection()
'Déclaration des plages
Dim cel
Dim plage As Range
'Selection des plages
Set plage = Range("D2:I11")
For Each cel In plage
If cel.Text = minimum Then
cel.Interior.ColorIndex = 7
End If
Next cel
End Sub
Et ensuite j'ai créer une fonction qui trouve le minimum de la ligne:
Public Function minimum() As Double
Dim myRange As Range
Set myRange = Worksheets("RC").Range("D2:I2")
minimum = Application.WorksheetFunction.Min(myRange)
End Function
Donc la procédure mets en couleur le minimum de la ligne en se servant de la fonction).
Mais le problème c'est que j'arrive à faire ça de la ligne 2 à la ligne 11 par exemple.
Je pense qu'il faudrai mettre une boucle dans la fonction. Mais je n'y arrive .......
Donc si vous avez des idées, conseils, solutions je suis preneur merci bcp!!!
bonjour
suggestion : pas de VBA, mais une MFC