MACRO : Placer un texte sur dernière ligne où cellule "x" rensei gn
1 réponse
Françoise
Bonjour,
j'ai une macro qui fait le total sur la dernière ligne de la colonne L
je voudrai ajouter :
en COLONNE A de la ligne dont la COLONNE L comporte le total inscrit : TOTAL
COMMANDE
voici ma macro de départ :
----
With Range("L16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)"
.Font.Bold = True
End With
---
D'avance merci à tous
Françoise
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
Pierre Fauconnier
Bonjour
Utilise un objet Range pour traiter le problème. Ainsi, tu travailles plus facilement à gérer cet objet. Dim Cellule as range set cellule = Range("L16").End(xlDown).Offset(1, 0) with cellule .formula... ... range("a" & cellule.row) = ... end with
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Françoise" a écrit dans le message de news:
Bonjour,
j'ai une macro qui fait le total sur la dernière ligne de la colonne L je voudrai ajouter : TOTAL COMMANDE voici ma macro de départ : ---- With Range("L16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)" .Font.Bold = True End With --- D'avance merci à tous Françoise
Bonjour
Utilise un objet Range pour traiter le problème. Ainsi, tu travailles plus
facilement à gérer cet objet.
Dim Cellule as range
set cellule = Range("L16").End(xlDown).Offset(1, 0)
with cellule
.formula...
...
range("a" & cellule.row) = ...
end with
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de
news: 848911E5-BFCD-4602-B10C-EFCA02531A0A@microsoft.com...
Bonjour,
j'ai une macro qui fait le total sur la dernière ligne de la colonne L
je voudrai ajouter :
TOTAL
COMMANDE
voici ma macro de départ :
----
With Range("L16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)"
.Font.Bold = True
End With
---
D'avance merci à tous
Françoise
Utilise un objet Range pour traiter le problème. Ainsi, tu travailles plus facilement à gérer cet objet. Dim Cellule as range set cellule = Range("L16").End(xlDown).Offset(1, 0) with cellule .formula... ... range("a" & cellule.row) = ... end with
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Françoise" a écrit dans le message de news:
Bonjour,
j'ai une macro qui fait le total sur la dernière ligne de la colonne L je voudrai ajouter : TOTAL COMMANDE voici ma macro de départ : ---- With Range("L16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)" .Font.Bold = True End With --- D'avance merci à tous Françoise
