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
anomymousA
bonjour,
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP") ne peut être associé directement à .font.bold=true car une feuille n' a pas de propriétés font mais les range si. Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap + 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With
Merci pour l'aide
-- à+twinley
bonjour,
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP")
ne peut être associé directement à .font.bold=true car une feuille n' a pas
de propriétés font mais les range si.
Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA
de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap
+ 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ?
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas.
Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP")
.Columns(dercolrecap + 3 + decal).ColumnWidth = 7
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
End With
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP") ne peut être associé directement à .font.bold=true car une feuille n' a pas de propriétés font mais les range si. Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap + 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With
Merci pour l'aide
-- à+twinley
anomymousA
Bonjour,
il va y avoir un problème car sheets ne peut être directement associé à .font. Ce n'est pas une propriété de sheets mais de range. Ensuite ton code ne peut guere estre allégé étant entendu que tu demandes à VBa de faire 2 choses différentes sur des plages différentes ( colums(gnagna) et cells(truc)).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With
Merci pour l'aide
-- à+twinley
Bonjour,
il va y avoir un problème car sheets ne peut être directement associé à
.font. Ce n'est pas une propriété de sheets mais de range.
Ensuite ton code ne peut guere estre allégé étant entendu que tu demandes à
VBa de faire 2 choses différentes sur des plages différentes ( colums(gnagna)
et cells(truc)).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ?
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas.
Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP")
.Columns(dercolrecap + 3 + decal).ColumnWidth = 7
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
End With
il va y avoir un problème car sheets ne peut être directement associé à .font. Ce n'est pas une propriété de sheets mais de range. Ensuite ton code ne peut guere estre allégé étant entendu que tu demandes à VBa de faire 2 choses différentes sur des plages différentes ( colums(gnagna) et cells(truc)).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With
Merci pour l'aide
-- à+twinley
twinley
Bonjour aA
Merci pour ton appréciation. Le mieux est l'ennemi du bien. Je vais tourner avec cela.
Bonne aprème
à+twinley
bonjour,
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP") ne peut être associé directement à .font.bold=true car une feuille n' a pas de propriétés font mais les range si. Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap + 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With
Merci pour l'aide
-- à+twinley
Bonjour aA
Merci pour ton appréciation.
Le mieux est l'ennemi du bien.
Je vais tourner avec cela.
Bonne aprème
à+twinley
bonjour,
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP")
ne peut être associé directement à .font.bold=true car une feuille n' a pas
de propriétés font mais les range si.
Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA
de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap
+ 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ?
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas.
Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP")
.Columns(dercolrecap + 3 + decal).ColumnWidth = 7
.Cells(2, dercolrecap + 2) = "TOTAL"
.Font.Bold = True
End With
Merci pour ton appréciation. Le mieux est l'ennemi du bien. Je vais tourner avec cela.
Bonne aprème
à+twinley
bonjour,
déjà dans ton code de fin de message, il y a un problème car sheets("RECAP") ne peut être associé directement à .font.bold=true car une feuille n' a pas de propriétés font mais les range si. Par ailleurs, ton code ne peut guere etre allégé puisque tyu demandes à VBA de faire 2 choses différentes sur 2 plages différentes ( Columns(dercolrecap + 3 + decal et Cells(2, dercolrecap + 2) ).
A+
Bonjour à tous,
Peut-on réunir les deux dernières lignes pour un code plus concis ? .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True
à savoir ajouter le mot TOTAL et mettre le style en gras.
J'ai vu un code dans ce genre et je ne le retrouve pas. Je met trois lignes, là ou une seule suffit...
With Sheets("RECAP") .Columns(dercolrecap + 3 + decal).ColumnWidth = 7 .Cells(2, dercolrecap + 2) = "TOTAL" .Font.Bold = True End With