Macro : total même si une seule ligne de commande

Le
Françoise
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5440781
Bonjour.
Tu l'as écrit toi-même. Mets un test sur L17.
Cordialement.
Daniel
"Françoise" 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



Publicité
Poster une réponse
Anonyme