Bonjour le forum, voici un bout de code:
La formule de la cellule doit être :
=IF(LeGroupe<0,INDEX(PrénCls,MATCH(p,Places,0)),INDEX(PrénAbsolus,MATCH(p,PlacesAbsolues,0)))
où p est la variable incrémentée.
Quelqu'un sait-il faire cela?
Merci de votre aide!!!
Code:
p = 0
For i = 1 To 15
For j = 1 To 14
If Bleu(j, i) = True Then
ActiveSheet.Cells(j + 1, i + 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
p = p + 1
'ICI je ne sais pas comment faire pour insérer la formule voulue dans la cellule sélectionnée
End If
Next j
Next i
La formule de la cellule doit être :
=IF(LeGroupe<0,INDEX(PrénCls,MATCH(p,Places,0)),INDEX(PrénAbsolus,MATCH(p,PlacesAbsolues,0)))
où p est la variable incrémentée.
Quelqu'un sait-il faire cela?
Merci de votre aide!!!
Dernière édition: