vérifier que ce sont les bonnes couleurs

[celine38]

Bonjour,

Peut être certains auront vu mon post precedent 'reproduire les couleurs d'un tableau'.
Ca y est la macro est faite, ça marche.
Mais je voudrais aller plus loin.
Avant que ça me copie la mise en forme du tableau sur les autres, je voudrais tester les couleurs. Si l'utilisateur n'a pas mis le bon jaune (36), vert (35) ou gris (15), alors quand il lance sa macro pour colorer, une boite de dialogue s'ouvre lui indiquant que ce n'est pas les bonnes couleurs.
J'ai tenté des choses et bien sur ça ne marche pas. Outre avoir 'raté' ma userform (faut dire que j'en ai jamais faite), rien n'est testé et la macro s'execute comme si de rien n'était. C'est bien balot !

Alors please j'ai besoin d'un coup de génie.

voici pour le test : mauvaisecouleur étant le module pour la boite de dialogue

  'tester que les bonnes couleurs ont été utilisé
If (Range('D7:X62').Interior.ColorIndex <> 36) Then
    mauvaisecouleur
End If
  
If (Range('D7:X62').Interior.ColorIndex <> 15) Then
    mauvaisecouleur
End If
  
If (Range('D7:X62').Interior.ColorIndex <> 35) Then
    mauvaisecouleur
End If

 

[celine38]

en attedant qu'un âme charitable me donne un coup de main. j'ai une question toute bete concernant ma boite de dialogue.
Donc celle ci qui est censée s'ouvrir si la couleur n'est pas bonne. j'ai fait une zonz de text, mis mon text mais celui ci ne se met en à la ligne. Du coup c'est illisible. Comment on fait pour que le text apparaisse bien.

 

[michel_m]

Bonjour Céline,

Pour que qqn puisse répondre, il faudrait que tu joignes ton fichier zippé <50ko sans accents, espaces ou caractères spéciaux dans le nom du zip

Dans l'attente

Michel

 

[celine38]

Bonjour michel,

Voici 1 page exemple de mon fichier. Vu la taille imposée j'ai du virer toute les macros.
Enfin c'est pas grave. [file name=pap_20050725134441.zip size=48802]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pap_20050725134441.zip[/file]