Fusion cellule + formule

Version imprimable

03/08/2012, 13h41
bbcancer

1 pièce(s) jointe(s)

Fusion cellule + formule

Bonjour

Voici mon problème, je souhaiterais dans mon exemple les cases de la ligne 10 et 11 à partir de la colonne K et que cela reproduise jusqu'à la fin du tableau.
Une fois ma case fusionnée je souhaite marquer une formule dans cette case ou effacer les données lorsque les jours sont samedi et dimanche.
J'ai testé plusieurs solutions sans grand succès.
Je pensé qu'en utilisant

Code:

For col = 11 To 33

cela marcherai mais non il ne comprends pas la fusion.

J'ai commencé à marqué un ensemble mais il n'est pas fini.
Si vous avez des solutions je suis preneuse.
Merci beaucoup

Cordialement

Bonjour,

Regarde si cela te convient :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Fusion()
With Sheets("Feuil1")
    Application.DisplayAlerts = False
    For col = 11 To 33
        .Cells(10, col).Resize(2).Merge
        If Application.Weekday(.Cells(3, col)) = 1 Or _
            Application.Weekday(.Cells(3, col)) = 7 Then
            .Cells(10, col) = ""
        Else
            .Cells(10, col).FormulaR1C1 = "=SUM(Feuil2!R25C[2]:R[27]C[2])"
        End If
    Next col
    Application.DisplayAlerts = True
End With
End Sub

20/08/2012, 09h03
bbcancer

Bonjour

Désolée de répondre aussi tardivement.. Mais cela me convient parfaitement. Encore merci.

Bonne journée