Macros qui ne fonctionnent pas selon la version d'Excel ?

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:

---

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 !

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

Code:

---

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