additionner plage de cellule en vba

pascal21

XLDnaute Barbatruc
bonsoir le forum
j'ai un bout de code qui me permet de fusionner une plage de cellules en sélectionnant les lignes voulues
j'aimerais que dans la colonne AE se fasse la somme de la colonne F
Code:
Sub couleur_bleue()
Application.DisplayAlerts = False 'pas de boite de dialogue
Application.ScreenUpdating = False 'macro silencieuse
X = Selection.Rows.Row 'selectionner lignes
Y = Selection.Rows.Row + Selection.Rows.Count - 1
Set plage1 = Range("A" & X & ":" & "t" & Y)
Set Plage2 = Range("s" & X & ":" & "s" & Y)
Set Plage3 = Range("t" & X & ":" & "t" & Y)
Set Plage4 = Range("s" & X & ":" & "t" & Y)
Set Plage5 = Range("q" & X & ":" & "q" & Y)
Set plage6 = Range("ae" & X & ":" & "ae" & Y)

plage1.Select
   With plage1 'surligner en bleu et double trait
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    End With
plage6.Value = Application.WorksheetFunction.Sum(Range("f" & X & "f" & Y))
je n'ai pas mis le code entier pour les autres plages qui n'est que de la répetition
j'ai une erreur avec la plage6
pouvez vous m'aider
merci
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

j'ai un bout de code qui me permet de fusionner une plage de cellules en sélectionnant les lignes voulues
j'aimerais que dans la colonne AE se fasse la somme de la colonne F
VB:
plage6.Value = Application.WorksheetFunction.Sum(Range("f" & X & "f" & Y))
Ne manque-t-il pas ":" ?

Ce qui donnerait :
VB:
plage6.Value = Application.WorksheetFunction.Sum(Range("F" & X & ":F" & Y))
 

Discussions similaires

Réponses
1
Affichages
122
Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll