Discussion :

[pilounet54]

bonjour j'ai ce morceau de code la qui fontionne tres bien mais je souhaite metre dans le meme esprit les formules au fur et à mesure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim mCellule As Object
 
    For Each mCellule In Range("C7:C500")
        Debug.Print mCellule.Value             
        If mCellule.Value = "" Then
            With mCellule.Offset(0, 10).Interior
                .ColorIndex = 0
                .Pattern = xlSolid
            End With
        Else
    ' With  mCellule.Offset(0, 10).Interior
             With Range(Cells(mCellule.Row, mCellule.Column + 10), Cells(mCellule.Row, mCellule.Column + 12)).Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With

les formule du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
i = 7
   'For Each c In Range("plagem")
 
    'c.Formula = "=J" & CStr(i) & "+" & "H" & CStr(i + 1)
 
     'i = i + 1
   'Next c
'End Sub

es que vous pensez que cela soit possible
merci de vos reponses "merci les pro"

[jfontaine]

Bonjour,

oui c'est possible.

Tu bloques ou?

[jfontaine]

agrementer la formule
je bloque après else je fais quoi pour associer
sur chaque ligne au fur et a mesure que je rentre une donné cela me mets la formule dans la cellule 2 ou 3 colonne plus loin
cela me permet de ne pas ralentir l'ordi et de mettre toutes les formules aux colonnes associes
la formule elle très bien mais a l’inconvénient et surtout
si tu en a plusieurs de ralentir considérablement
donc je mets les couleurs + le quadrillage tous cela fonctionne je souhaiterai pouvoir agrémenter la formule a chaque fois salutation

Un exemple (j'ai modifier le type de la variable mCellule)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim mCellule As Range
 
For Each mCellule In Range("C7:C500")
    Debug.Print mCellule.Value
    If mCellule.Value = "" Then
        With mCellule.Offset(0, 10).Interior
            .ColorIndex = 0
            .Pattern = xlSolid
        End With
    Else
        mCellule.Offset(0, 2).FormulaLocal = "=J" & mCellule.Row & "+H" & mCellule.Row
        With Range(Cells(mCellule.Row, mCellule.Column + 10), Cells(mCellule.Row, mCellule.Column + 12)).Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
    End If
Next mCellule