Excel : couleur dans une cellule (en VB)Résolu

Question

Bonjour.

Je g&#233;n&#232;re plusieurs fichiers "excel" depuis mon programme en VB6.

Dans certains cas, je mets une couleur dans les cellules selon la formule suivante :

            AppExcel.Worksheets(1).Range(Colonne & "" & Ligne).Select
            With Selection.Interior
                .ColorIndex = 6
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
            End With

Cela marche tr&#232;s bien pour le 1er fichier mais ca plante des le 2&#232;me.

Quelqu'un peut-il m'expliquer pourquoi ? Grand merci d'avance.

econs · Accepted Answer

Colonne prend bien des valeurs alphanum&#233;riques ?

(je cherche, je cherche, mais comme il y a peu de code dispo ... c'est dur)

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

M&#234;me r&#233;ponse que pour ton autre question : "Quel est le message d'erreur obtenu ?"



ce que tu donnes comme code est tout &#224; fait correct. L'erreur vient d'ailleurs.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_pcvesoul · Answer

Lors du "2&#232;me passage", l'erreur se produit sur la ligne "With Selection.Interior"

   AppExcel.Worksheets(1).Range(Colonne & "" & Ligne).Value = MaChaine
   AppExcel.Worksheets(1).Range(Colonne & "" & Ligne).Select
   With Selection.Interior
         .ColorIndex = 3
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
   End With

cs_pcvesoul · Answer

J'oubliais l'erreur : "variable objet ou variable bloc With non d&#233;finie" (erreur d'ex&#233;cution 91).

Mais ce n'est pas syst&#233;matique lors du 2 &#232;me passage. Des fois ca marche plusieurs fois de suite ?????

econs · Answer

As tu v&#233;rifi&#233; &#224; ce moment-l&#224; les valeurs des variables colonne et ligne ?



Au passage :



AppExcel.Worksheets(1).Range(Chr(CStr(Colonne)+64) & CStr(Ligne)).Value

C'est plus propre que de concat&#233;ner deux entiers avec une chaine vide.



Chr(CStr(Colonne)+64 renvoit "A" si colonne vaut 1, "B" si colonne vaut 2 ... dans la limite de colonne < 27.

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_pcvesoul · Answer

Meme comme cela ca plante encore (mais pas toujours) : les lignes et colonnes sont OK.

cs_pcvesoul · Answer

Oui j'ai bien par exemple "B2" pour la 2&#232;me ligne et la 2&#232;me colonne.

Quand je faisais les fichiers un par un ca plantait au 2&#232;me fichier. Maintenant j'ouvre l'application excel, pour chaque fichier je d&#233;finis FichierExcel, je fais mon traitement, je ferme FichierExcel, je passe au fichier suivant puis je ferme l'application excel. C'est peut-&#234;tre au niveau de la fermeture et du raffraichissement de la memoire que ca se passe ?

En tout cas merci beaucoup pour ton aide.

cs_pcvesoul · Answer

Comme cela ca a l'air de marcher :

    AppExcel.Worksheets(1).Select
    AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
    AppExcel.Worksheets(1).Cells(Lig_Excel, Col_Excel + 1).Value = Nom
    
    AppExcel.Worksheets(1).Select
    AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
    With AppExcel.Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With


Merci beaucoup et bonne continuation.

Excel : couleur dans une cellule (en VB)

8 réponses

Discussions similaires