Re : erreur calcul heures
Bonjour Hoerwind, Victor21, et à tous du forum,
J'ai décoché "interrompre si vrai" et cela fonctionne.
Lorsque j'ai ajouté une 3e conditon,
que $A7 = "", couleur de fond = blanc, mais ne fonctionne pas.
comment je peux copier ou coller que cette condition s'applique à tous les autres plages de C2 à D17,
en respectant $A7 = "", puis lorsqu'on colle le format en 8e ligne, que condtion est $A8 ="".
Les 3 conditions pour C2 à D17 sont
A2="", la couleur de fond = blanc
JOURSEMAINE=1, couleur de fond = vert
A2<>"", la couleur de fond = rouge
Sous F2 à F17 s'ajoute la condition, lorsque le montant est négatif, la couleur de police = rouge.
Autre bug inexplicable, pourquoi fait erreur en utlisant la formule Si sous Range A12, Range A13, ...
Une question se pose, qund il y aura trop de format par après sous la feuille, quand la feuille avance avec d'être complété avec 12 mois, pour 14 personnes et 10 collonnes, est-ce que tous les formats vont être appliqués ou fait des bug en affichant les formules aulieu des formats, car s'il y a trop de format, Excel bloque et n'affiche plus les formats, mais les formules par après?
On peut utiliser des macros, mais cela devient fastidieux. Fait exemple pour 2 Range, mais il y en a ca. 4900 Range (30 jours, 12 mois, 14 personnes):
Sub Macro1()
If (A7) <> "" And (C7) = "" Then
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 16711680
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 34
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If (A7) <> "" And (D7) = "" Then
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 16711680
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 34
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If (A8) <> "" And (C8) = "" Then
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 16711680
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 34
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If (A8) <> "" And (D8) = "" Then
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 16711680
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 34
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Sub Macro3()
Range("D19").Select
ActiveCell.FormulaR1C1 = "=WEEKDAY(1)"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 34
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
ci-joint fichier explicite,
merci,
news
