Avec le code ci dessous, mon but est de la calculé la somme des montants de
toute la colonne F3.
Ensuite, dans la colonne G3, je souhaite quechaque valeur presente dans
chaque cellule de la colonne F3 soit divisée par la somme des montants de F3
(bref pour obtenir le pourcentage)
Ca fonctionne sauf que je n'arrive pas à alimenter chaque cellule de G3.
Seule la premiere cellule s'alimente.
Voici mon code, pourriez vous m'aider à trouver une solution pour ça
fonctionne ?
Merci d'avance,
Gregory
----------------
Range("F3").Select
Line = 0
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Line = Line - 1
Loop
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir Greg,
Quelque chose comme :
Sub test() With Sheets("Feuil1") last = .Range("F65536").End(xlUp).Row adre = .Range("F" & last + 1).Address(1, 1) .Range(adre).FormulaLocal = "=somme(F1:F" & last & ")" .range(adre).Interior.ColorIndex = 40 .Range("G1:G" & last).FormulaLocal = "ñ/" & adre End With End Sub
@+ FxM
Greg wrote:
Bonjour,
Avec le code ci dessous, mon but est de la calculé la somme des montants de toute la colonne F3. Ensuite, dans la colonne G3, je souhaite quechaque valeur presente dans chaque cellule de la colonne F3 soit divisée par la somme des montants de F3 (bref pour obtenir le pourcentage)
Ca fonctionne sauf que je n'arrive pas à alimenter chaque cellule de G3. Seule la premiere cellule s'alimente.
Voici mon code, pourriez vous m'aider à trouver une solution pour ça fonctionne ? Merci d'avance,
Gregory ----------------
Range("F3").Select Line = 0
Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Select Line = Line - 1 Loop
Do Until Line2 = Line ActiveCell.Offset(1, 0).Select Line2 = Line2 - 1 Loop
A B C D 1 5 9 0,25714286 2 4 8 3 3 7 4 2 6 5 1 5 35
Bonsoir Greg,
Quelque chose comme :
Sub test()
With Sheets("Feuil1")
last = .Range("F65536").End(xlUp).Row
adre = .Range("F" & last + 1).Address(1, 1)
.Range(adre).FormulaLocal = "=somme(F1:F" & last & ")"
.range(adre).Interior.ColorIndex = 40
.Range("G1:G" & last).FormulaLocal = "ñ/" & adre
End With
End Sub
@+
FxM
Greg wrote:
Bonjour,
Avec le code ci dessous, mon but est de la calculé la somme des montants de
toute la colonne F3.
Ensuite, dans la colonne G3, je souhaite quechaque valeur presente dans
chaque cellule de la colonne F3 soit divisée par la somme des montants de F3
(bref pour obtenir le pourcentage)
Ca fonctionne sauf que je n'arrive pas à alimenter chaque cellule de G3.
Seule la premiere cellule s'alimente.
Voici mon code, pourriez vous m'aider à trouver une solution pour ça
fonctionne ?
Merci d'avance,
Gregory
----------------
Range("F3").Select
Line = 0
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Line = Line - 1
Loop
Sub test() With Sheets("Feuil1") last = .Range("F65536").End(xlUp).Row adre = .Range("F" & last + 1).Address(1, 1) .Range(adre).FormulaLocal = "=somme(F1:F" & last & ")" .range(adre).Interior.ColorIndex = 40 .Range("G1:G" & last).FormulaLocal = "ñ/" & adre End With End Sub
@+ FxM
Greg wrote:
Bonjour,
Avec le code ci dessous, mon but est de la calculé la somme des montants de toute la colonne F3. Ensuite, dans la colonne G3, je souhaite quechaque valeur presente dans chaque cellule de la colonne F3 soit divisée par la somme des montants de F3 (bref pour obtenir le pourcentage)
Ca fonctionne sauf que je n'arrive pas à alimenter chaque cellule de G3. Seule la premiere cellule s'alimente.
Voici mon code, pourriez vous m'aider à trouver une solution pour ça fonctionne ? Merci d'avance,
Gregory ----------------
Range("F3").Select Line = 0
Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Select Line = Line - 1 Loop
