Bonjour Claire, Zon, JP, le Forum
Yiiiiaaaaaaaaaah !! Enfin çà marche !!! Suis heureux pour toi, que tu puisses déjà (enfin) avoir un truc qui marche !! c'est vrai que çà commençait çà devenir navrant cet Excel 97
Donc dans un souci de te permettre de gérer aussi les couleurs voici, Claire, une Version 1.02 avec l'utilisation de Interior.Color, à la place de Interior.ColorIndex...(Cette nuit on a discuté de ceci avec Zon et Jean-Marie pour solutionner ce problème Excel 97)
A toi de tester maintenant et de me dire si çà passe ?
Pour paramétrer les Couleurs de tes collaborateurs, tu as le Mode d'Emploi avec le Bouton "Help".
Pour référencement , voici les problèmes rencontrés et résolus pour fonctionnement avec Excel 97 :
Lorsque la Feuille Active est par Exemple "Feuil1"
Cette Commande :
With Sheets("Feuil2").Range("A1:C5000")
.ClearContents
End With
Ne Passe Pas
Il faut écrire :
Sheets("Feuil2").Activate
Sheets("Feuil2").Range("A1:C5000").ClearContents
Cà, çà passe (La Preuve ici !)
Je ne me suis même pas risqué à écrire :
With Sheets("Feuil2")
.Activate
.Range("A1:C5000").ClearContents
End With
Quoique ce devrait passer...
Enfin voilà les misères auxquelles il faut s'attendre lorsque l'on développe pour un usage vers des versions ascendantes...
Bonne Journée à tous et toutes
Tiens moi au courrant Claire si la couleur passe, on passera à l'étape suivante...
@+Thierry