Discussion :

[ourquiqui]

Bonjour à tous,

J'ai achetée un livre (Applications Financières sous Excel en VBA, 3e édition) pour bosser VBA avec mes cours : ce qui me pose problème c'est que les codes qu'ils proposent en exemple ne fonctionne pas sur mon excel (il utilisent la version 2008 et moi la version 2019).

Je vous ai mis un exemple : ce code est censé activer chaque feuille pour colorier la cellule A1 en rouge, sauf que chez moi ça ne colorie que la cellule A1 de la première feuille et pas les autres.

Code :

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

1
2
3
4
5
6
Sub Exemple()
For Each Feuille In Worksheets
    Feuille.Activate
    Range("A1").Interior.Color = vbRed
Next Feuille
End Sub

Est-ce-que ça peut être dû au fait que j'utilise une version plus récente d'Excel ? Parce que je sèche totalement là et ça m'embête, le livre est vraiment bien mais les codes ne marchent pas...

Merci à tous ceux qui pourront me répondre !

[Nullosse]

Salut,
c'est le Feuille.Activate qui semble poser problème avec Excel2019
Si tu fais comme ceci :

Code :

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

1
2
3
4
5
6
Sub Exemple()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Feuille.Range("A1").Interior.Color = vbRed
Next Feuille
End Sub

Cela devrait fonctionner.

Nullosse