Discussion :

[bbcancer]

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 :

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

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

[Daniel.C]

Bonjour,

Regarde si cela te convient :

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
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

[bbcancer]

Bonjour

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

Bonne journée