Problème de somme avec une macro sous EXCEL
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je suis novice dans les macros avec EXCEL et je n'arrive pas à me dépatouiller d'une erreur dans le code suivant...
Le but de cette macro est à partir d'une plage de cellules selectionnées de la colonne C de faire la somme du contenu des cellules sur les mêmes lignes mais en colonne G puis d'afficher le résultat dans la cellule résultant de la fusion de la sélection. L'erreur serait à priori dans la formule de somme, p-ê une erreur de syntaxe...
Sub Macro8()
'
' Déverrouillage
Dim bibi As String
ActiveSheet.Unprotect ("bibi")
' Calcul de la somme
' j correspond au nombre de cellules sélectionnées
Dim j As Variant
j = Selection.Rows.Count
ActiveCell.FormulaR1C1 = "=SUM(RC[4]:R[j]C[4])"
' Fusion des cellules
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
' Reverrouillage de la feuille
ActiveSheet.Protect Password:="bibi", DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True
End Sub
Merci d'avance à celui qui pourra me sauver !
babar
Je suis novice dans les macros avec EXCEL et je n'arrive pas à me dépatouiller d'une erreur dans le code suivant...
Le but de cette macro est à partir d'une plage de cellules selectionnées de la colonne C de faire la somme du contenu des cellules sur les mêmes lignes mais en colonne G puis d'afficher le résultat dans la cellule résultant de la fusion de la sélection. L'erreur serait à priori dans la formule de somme, p-ê une erreur de syntaxe...
Sub Macro8()
'
' Déverrouillage
Dim bibi As String
ActiveSheet.Unprotect ("bibi")
' Calcul de la somme
' j correspond au nombre de cellules sélectionnées
Dim j As Variant
j = Selection.Rows.Count
ActiveCell.FormulaR1C1 = "=SUM(RC[4]:R[j]C[4])"
' Fusion des cellules
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
' Reverrouillage de la feuille
ActiveSheet.Protect Password:="bibi", DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True
End Sub
Merci d'avance à celui qui pourra me sauver !
babar
A voir également:
- Problème de somme avec une macro sous EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide
- Déplacer une colonne excel - Guide
