j'ai un souci avec une macro qui fonctionne parfaitement si j'ai plusieurs
lignes commandes, mais si j'en ai une seule par exemple :
commande = 1 seule ligne produit
Là la macro cherche à faire le total de la colonne L et M mais ne trouvant
qu'une ligne, elle s'arrête et bug
comment ajouter à cette macro
if L17 ="" then RECOPIE LE MONTANT DE L16 et ajoute "TOTAL COMMANDE" en A17
Else faire la macro normalement
=====
voici la macro complète qui marche avec plusieurs lignes commandes :
=====
Sub TotalFinCdeLXT()
'
Sheets("Commande").Select
Dim CelluleL As Range
Set CelluleL = Range("L16").End(xlDown).Offset(1, 0)
Dim CelluleA As Range
Set CelluleA = Range("A" & CelluleL.Row)
With CelluleA
.FormulaR1C1 = "TOTAL COMMANDE"
.Font.Bold = True
End With
With Range("K16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C11:R" & .Row - 1 & "C11)"
.Font.Bold = True
End With
With Range("L16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)"
.Font.Bold = True
End With
Range("A1").Select
End Sub
===============
J'avoue que je n'avais pas pensé à ce cas de figure, mais il va arriver
assez souvent
D'avance merci pour votre aide pour finaliser ce code
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
Daniel.C
Bonjour. Tu l'as écrit toi-même. Mets un test sur L17. Cordialement. Daniel "Françoise" a écrit dans le message de news:
Bonjour à tous,
j'ai un souci avec une macro qui fonctionne parfaitement si j'ai plusieurs lignes commandes, mais si j'en ai une seule par exemple : commande = 1 seule ligne produit Là la macro cherche à faire le total de la colonne L et M mais ne trouvant qu'une ligne, elle s'arrête et bug comment ajouter à cette macro if L17 ="" then RECOPIE LE MONTANT DE L16 et ajoute "TOTAL COMMANDE" en A17 Else faire la macro normalement ==== > voici la macro complète qui marche avec plusieurs lignes commandes : ==== > Sub TotalFinCdeLXT() '
Sheets("Commande").Select
Dim CelluleL As Range Set CelluleL = Range("L16").End(xlDown).Offset(1, 0)
Dim CelluleA As Range Set CelluleA = Range("A" & CelluleL.Row) With CelluleA .FormulaR1C1 = "TOTAL COMMANDE" .Font.Bold = True End With
With Range("K16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C11:R" & .Row - 1 & "C11)" .Font.Bold = True End With
With Range("L16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)" .Font.Bold = True End With
Range("A1").Select
End Sub ============== > J'avoue que je n'avais pas pensé à ce cas de figure, mais il va arriver assez souvent D'avance merci pour votre aide pour finaliser ce code
Bonjour.
Tu l'as écrit toi-même. Mets un test sur L17.
Cordialement.
Daniel
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de
news: F694DDC1-724D-4AFC-BCB3-40DB226FAF65@microsoft.com...
Bonjour à tous,
j'ai un souci avec une macro qui fonctionne parfaitement si j'ai plusieurs
lignes commandes, mais si j'en ai une seule par exemple :
commande = 1 seule ligne produit
Là la macro cherche à faire le total de la colonne L et M mais ne trouvant
qu'une ligne, elle s'arrête et bug
comment ajouter à cette macro
if L17 ="" then RECOPIE LE MONTANT DE L16 et ajoute "TOTAL COMMANDE" en
A17
Else faire la macro normalement
==== > voici la macro complète qui marche avec plusieurs lignes commandes :
==== >
Sub TotalFinCdeLXT()
'
Sheets("Commande").Select
Dim CelluleL As Range
Set CelluleL = Range("L16").End(xlDown).Offset(1, 0)
Dim CelluleA As Range
Set CelluleA = Range("A" & CelluleL.Row)
With CelluleA
.FormulaR1C1 = "TOTAL COMMANDE"
.Font.Bold = True
End With
With Range("K16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C11:R" & .Row - 1 & "C11)"
.Font.Bold = True
End With
With Range("L16").End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)"
.Font.Bold = True
End With
Range("A1").Select
End Sub
============== > J'avoue que je n'avais pas pensé à ce cas de figure, mais il va arriver
assez souvent
D'avance merci pour votre aide pour finaliser ce code
Bonjour. Tu l'as écrit toi-même. Mets un test sur L17. Cordialement. Daniel "Françoise" a écrit dans le message de news:
Bonjour à tous,
j'ai un souci avec une macro qui fonctionne parfaitement si j'ai plusieurs lignes commandes, mais si j'en ai une seule par exemple : commande = 1 seule ligne produit Là la macro cherche à faire le total de la colonne L et M mais ne trouvant qu'une ligne, elle s'arrête et bug comment ajouter à cette macro if L17 ="" then RECOPIE LE MONTANT DE L16 et ajoute "TOTAL COMMANDE" en A17 Else faire la macro normalement ==== > voici la macro complète qui marche avec plusieurs lignes commandes : ==== > Sub TotalFinCdeLXT() '
Sheets("Commande").Select
Dim CelluleL As Range Set CelluleL = Range("L16").End(xlDown).Offset(1, 0)
Dim CelluleA As Range Set CelluleA = Range("A" & CelluleL.Row) With CelluleA .FormulaR1C1 = "TOTAL COMMANDE" .Font.Bold = True End With
With Range("K16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C11:R" & .Row - 1 & "C11)" .Font.Bold = True End With
With Range("L16").End(xlDown).Offset(1, 0) .FormulaR1C1 = "=SUM(R16C12:R" & .Row - 1 & "C12)" .Font.Bold = True End With
Range("A1").Select
End Sub ============== > J'avoue que je n'avais pas pensé à ce cas de figure, mais il va arriver assez souvent D'avance merci pour votre aide pour finaliser ce code
