cibleo
XLDnaute Impliqué
Bonsoir le forum,
En Feuil2, un tableau est généré par une macro non présente dans le fichier joint.
(les nouvelles données écrasant les anciennes données, génèrant donc un nouveau tableau)
Sur ce tableau, j'applique une macro de mise en forme : mise en valeur du Maxi et Mini dans 4 colonnes différentes.
Cette macro ne fonctionne jamais suite à la génération d'un nouveau tableau, il m'affiche toujours une erreur d'exécution 91.
Voici les lignes qui posent problème :
Par contre, si je ferme le classeur, le rouvre et réexécute la macro de mise en forme, il n'y a aucun problème.
Dans le classeur allégé joint, la macro s'exécute normalement, il n'y pas de bug, je n'y comprends rien.
Pouvez vous m'aider
Merci Cibleo
En Feuil2, un tableau est généré par une macro non présente dans le fichier joint.
(les nouvelles données écrasant les anciennes données, génèrant donc un nouveau tableau)
Sur ce tableau, j'applique une macro de mise en forme : mise en valeur du Maxi et Mini dans 4 colonnes différentes.
Cette macro ne fonctionne jamais suite à la génération d'un nouveau tableau, il m'affiche toujours une erreur d'exécution 91.
Voici les lignes qui posent problème :
.Range(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)).Find(MaxVal).Address).Interior.ColorIndex = 45
.Range(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)).Find(MinVal).Address).Interior.ColorIndex = 43
Par contre, si je ferme le classeur, le rouvre et réexécute la macro de mise en forme, il n'y a aucun problème.
VB:
Sub Maxi_et_Mini1()
Dim LesColonnes(), Col As Byte, k As Byte
LesColonnes = Array("Prix du litre", "Conso Mensuelle", "Conso Moyenne")
With Sheets("Feuil2")
For k = LBound(LesColonnes) To UBound(LesColonnes)
Col = .Rows("2:2").Find(What:=LesColonnes(k)).Column
MaxVal = Application.Max(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)))
MinVal = Application.Min(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)))
.Range(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)).Find(MaxVal).Address).Interior.ColorIndex = 45
.Range(.Range(.Cells(3, Col), .Cells(.Cells.Rows.Count, Col).End(xlUp)).Find(MinVal).Address).Interior.ColorIndex = 43
Next k
End With
End Sub
Dans le classeur allégé joint, la macro s'exécute normalement, il n'y pas de bug, je n'y comprends rien.
Pouvez vous m'aider
Merci Cibleo