[résolu] coller une formule viariable dans des cellues mémorisée

[ckoebel5]

Bonjour le forum, voici un bout de 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!!!

 

[Robert]

Re : à l'aide d'une boucle, coller une formule viariable dans des cellues mémorisée

Bonsoir Ckoebel

Peut-être comme ça :

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
            Selection.Formula = "=IF(LeGroupe<0,INDEX(PrénCls,MATCH(" & p & ",Places,0)),INDEX(PrénAbsolus,MATCH(" & p & ",PlacesAbsolues,0)))"
            p = p + 1
        End If
    Next j
Next i