Eddy_ a écrit :
Les deux solutions que tu proposes conviendrait, mais ce que je voudrais faire c'est une donnée du tableau 1 en donne deux autres dans le tableau 2.
tableau 1, cellule A1 : 5
tableau 2, cellule A1 : 5
cellule A2 : rouge
Le recopiage des données ne me pose pas de problème, c'est la séparation des deux informations qui me gene.
|
Bonjour Eddy_,
Il y a une chose qui me "chagrine" dans tes explications.
Tu dis que tu écris un nombre d'une certaine couleur. Comment détermines-tu cette couleur ?
Normalement, dans une cellule Excel, lorsque tu as introduis une valeur, tu peux choisir la couleur d'affichage de cette valeur, voire celle de la cellule elle-même.
Or Excel attribue un index à chacune des couleurs disponibles. Cet index est aisé à récupérer puis à utiliser.
Si tu veux utiliser tes propres réfences pour des couleurs, il te faut passer par un tableau dans lequel tu crée les correspondances entre TES valeurs (de 1 à 7) et celles d'excel pour les couleurs que tu as décidé d'utiliser.
Tu devras également gérer le choix des couleurs effectué par les utilisateurs car s'ils utilisent la commande "format cellule/bordure et trame/motif", ils auront accès aux 56 couleurs. Tu devras donc, dans ton tableau, faire correspondre à une de TES valeurs plusieurs index de couleurs Excel
Par exemple, si l'utilisateur utilise la couleur VERTE, dans les index couleur de Excel, il y en a 7 : 4, 10, 14, 23, 31, 43 et 50 or tu n'utilise qu'un seul VERT sous TON numéro 3.
Aide Excel :
PatternColorIndex, propriété
Voir aussi S'applique à Exemple Spécificités
Cette propriété renvoie ou définit la couleur du motif intérieur sous la forme d'un index de la palette de couleurs en cours ou de l'une des constantes XlColorIndex suivantes : xlColorIndexAutomatic ou xlColorIndexNone. Type de données Long en lecture-écriture.
Les codes de couleurs vont de 1 pour le noir à 56 pour le gris foncé en passant par toutes les couleurs diponibles :
2 = blanc,
3= rouge,
4 = vert clair,
5 = bleu,
6 = jaune,
7 = violet, etc... jusque 56.
Note
Affectez à cette propriété la valeur xlColorIndexAutomatic afin de spécifier le motif automatique pour les cellules ou le style de remplissage automatique pour les objets dessinés. Affectez-lui la valeur xlColorIndexNone si vous ne souhaitez aucun motif (ce qui équivaut à affecter la valeur xlPatternNone à la propriété Pattern de l'objet Interior).
Note
L'illustration suivante montre les valeurs d'index des couleurs dans la palette de couleurs par défaut.
Exemple
Cet exemple montre comment définir la couleur du motif intérieur du rectangle 1 de la feuille Sheet1.
With Worksheets("Sheet1" ).Rectangles(1).Interior
.Pattern = xlChecker
.PatternColorIndex = 5
End With
J'espère t'avoir compris et aidé.
A+