Discussion :

[Scoubi7]

Bonjour !

A mon travail, je suis passé d'Office 2000 à 2010. Malheureusement, certaines macros ne fonctionnent plus dont une je n'arrive pas à m'expliquer pourquoi...

Etrangement c'est au niveau de cette ligne :

Code :

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

Range(Cells(2, 2), Cells(2, 8)).Borders(xlEdgeTop).Weight = xlMedium

Alors que légèrement au dessus, une ligne sensiblement identique fonctionne !

Quelqu'un aurait une idée ? Ou accepterait que je lui envoie ma macro ?

[luca.donati]

Bonjour, Scoubi7.
De mon côté, j'ai remarqué que les commandes de ce genre ont parfois besoin qu'on leur explique dans quel feuille on veut l'exécuter:

Code :

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

ActiveSheet.Range(Cells ...

Je ne sais pas te dire si le passage à Excel 2010 y est pour quelque chose, mais essaye...
A bientôt.

[Scoubi7]

même en précisant dans quelle feuille, le résultat est le même...

[aalex_38]

Et en utilisant l'enregistreur de macro, tu devrais récupérrer le code ?

[Scoubi7]

J'obtiens sensiblement la même chose et qui ne fonctionne pas non plus !

Je pense que dans mon code quelque chose "se met en mémoire" et parasite mon code... (une variable qui a la vie dure peut-être)

[Sogestion]

Bonjour,

J'ai testé < Office 2010 > votre code qui ne me pose aucun problème

Cordialement

[gFZT82]

Bonjour,

Tu peux faire ce test

Code :

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

1
2
3
4
5
Sub test()
    With ThisWorkbook.Worksheets("Feuil1") 'Nom de feuille à adapter
        .Range(.Cells(2, 2), .Cells(2, 8)).Borders(xlEdgeTop).Weight = xlMedium
    End With
End Sub

Cordialement.

[aalex_38]

Je pense que dans mon code quelque chose "se met en mémoire" et parasite mon code... (une variable qui a la vie dure peut-être)

De telles choses arrivent parfois, notamment lorsque l'on fait du debogage, le mieux parfois est de redemarrer son PC !

[Scoubi7]

sogestion : c'est bien là le problème normalement cette ligne devrait fonctionner... ;-)

gFZT82 : dès que je peux je ferais le test, mais à mon avis cela va fonctionner, tout comme ma ligne qui fonctionne individuellement mais pas dans ma macro.

aalex_38 : même au démarrage de l'ordi et au lancement de ma macro (sans debogage) cette ligne ne marche pas

[aalex_38]

Dans la macro précises-tu bien de quelle feuille il d'agit comme dans l'exemple fourni par gFZT82 (pour chaque Range ou Cell)

Code :

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

.Range(.Cells(2, 2), .Cells(2, 8)).Borders(xlEdgeTop).Weight = xlMedium

[Scoubi7]

Alors j'ai ajouté de partout

Code :

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

ThisWorkbook.Worksheets("Consignes").

, sans succès !

Je n'y comprend vraiment plus rien !

De plus, quand je sélectionne manuellement ces cellules, fait un clique droit puis sélectionne "Format de cellule", des fois la fenêtre "Format de cellule" n'apparaît pas... mais si je sélectionne une plage un peu plus grande, là la fenêtre apparaît !

gFZT82 : j'ai fait le test, ça a marché une fois et quand j'ai relancé le fichier j'ai eu à nouveau une erreur ?!