Discussion :

[capricorne83]

Bonjour, je rencontre le probleme suivant :
Je remplis trois colonnes et je souhaite encadrer ces trois colonnes (juste le contour des trois colonnes). (Vous trouverez mon code ci apres). Le soucis provient du fait qu'en mode debogage cela fonctionne parfaitement, mais en mode reel cela ne fonctionne plus. L'encadrement des colonnes ne se fait qu au premier traitement. Lors du traitement du second mail, en mode reel pas de message d'erreur mais pas d'encadre non plus.....(et ainsi de suite)
Le code complet traite un mail, recupere le corps de ce mail, le ventile (traitement des espaces pour avoir une chaine par colonne) et insere le tout dans 3 colonnes. Normalement les 3 colonnes creees sont encadrees. Mais ca coince à l'execution reelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dernierecolonne = 0
DerniereLigne = 0
colonnelettre = 0
premierecolonne = 0
dernierecolonne = Sheets("Recap_jour").Cells(2, Columns.Count).End(xlToLeft).Column
colonnelettre = Split(Columns(dernierecolonne).Address(ColumnAbsolute:=False), ":")(1)
premierecolonne = Split(Columns(dernierecolonne - 2).Address(ColumnAbsolute:=False), ":")(1)
DerniereLigne = Range(colonnelettre & Rows.Count).End(xlUp).Row
Range(premierecolonne & 1 & ":" & colonnelettre & DerniereLigne).BorderAround (xlContinuous)

Merci de votre aide.

Thierry

[Menhir]

Fais tourner ton code en pas-à-pas et, avant que la ligne BorderAround ne soit lancée, regarde le contenu de tes 4 variables dans la fenêtre des variables locales.

[Invité]

Bonjour,
Et la mise en forme conditionnel ne peut pas faire ça pour toi?

[Menhir]

Et la mise en forme conditionnel ne peut pas faire ça pour toi?

Bonjour dysorthographie,
Pour un "Border", j'aurai proposé la même chose. Mais avec un BorderAround, ça risque d'être beaucoup plus compliqué.

[unparia]

Bonjour
Si u n'es pas sur la feuille "Recap_jour" au moment de chaque encadrement, tes lignes de code concernant des plages, colonnes, etc ... concerneront la feuille active.
Spécifier la feuille concernée devrait être ta solution.