!!! Code couleurs de base !!!

[fabrice]

Re bonjour le forum

Je suis en train de chercher les codes correspondant au couleurs principales d'Excel.
Je sais par exemple que le turquoise clair a le code 34.

Est ce que par hasard, quelqu'un connaitrait les code des autres couleurs???

Merci de votre aide
FAb

 

[Ti]

je les ai données hier avec une macro sur un autre post, les voilà :

'noir = 1
'marron = 53
'vert olive = 52
'vert foncé = 51
'bleu-vert foncé = 49
'bleu foncé = 11
'indigo = 55
'gris 80% = 56

'rouge foncé = 9
'orange = 46
'marron clair = 12
'vert = 10
'bleu-vert = 14
'bleu = 5
'bleu-gris 47
'gris-50% = 16

'rouge = 3
'orange clair = 45
'citron vert = 43
'vert marin = 50
'vert d'eau = 42
'bleu clair = 41
'violet = 13
'gris-40% = 48

'rose = 7
'jaune d'or = 44
'jaune = 6
'vert brillant = 4
'turquoise = 8
'bleu ciel = 33
'prune = 54
'gris-25% = 15

'rose saumon = 38
'brun = 40
'jaune clair = 36
'vert clair = 35
'turquoise clair = 34
'bleu moyen = 37
'lavande = 39
'blanc = 2

'aucune couleur = -4142

 

[fabrice]

Salut TI

Désolé pour la répétition!!!
Juste une autre petite question tant que je t'ais sous la main!!! (j'en proffite !)
Je cherche par ailleurs à selectionner la dernière cellule de la colonne a à h.
Pour cela, j'ai tapé la ligne de commande suivante:
Range("a65536:h65536").End(xlUp).Select

le problème est qu'il ne me selectionne que la cellule a et non de a à h

Peux tu m'aider à résoudre ce problème???

Merci de ta réponse
FAb

PS: je ne sais pas si c bien claire, mais les cellules de a à h sont sur la meme ligne!

 

[Ti]

si toutes tes lignes sont également remplies dans les colonnes A à H, tu fais le test suivant :

Dim Plage as Range
Set Plage = Range("A1", Range("H65536").end(XlUp))

ensuite, tu peux faire :
With Plage
'ici tes actions
End With

 

[fabrice]

re non, mes lignes ne sont pas également remplies.
Je cherche en fait à selectionner la dernière cellule de la colonne a et a partir de celle la, etendre ma selection jusqu'à la cellule h ( de la meme ligne).

Est ce que ca enbete ta formule???

FAb

 

[Ti]

envoie moi un exemple, ça sera plus simple pour te répondre

 

[@Christophe@]

Bonjour

Désolé de vous déranger, rire

Fabrice, je crois que tu cherche cela, si j'ai bien compris, teste et dis moi quoi:

Range("A65536").End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select

Bonne soirée

@Christophe@

 

[fabrice]

salut à toi @Christophe@ et re à TI

Je crois que tu as trouvé @Christophe@ .

J'essaye ca tout de suite et je te dis

FAb

 

[fabrice]

Ca marche tres bien.

Merci à vous deux.

FAb

 

[@Christophe@]

Re

Super Fabrice, content de t'avoir aidé

Bonne soirée a vous deux

@Christophe@

 

[fabrice]

rererere

Apres avoir testé plusieures possibilité, il s'avert qu'il faille bien définir la selection de a à h.
En effet, la cellule h n'est pas rempli à tout les coups. La selection s'arrete donc à la cellule g.
Pour pallier ca, j'ai mis dans ta formule h65536 et xlToLeft mais la meme probleme.

Il faut donc définir entièrement la selection da a à h

Désolé.

Avez vous une autre solution???

FAb

 

[@Christophe@]

Re

Fabrice, il faut être comme le dirais Thierry Option Explicit, lol

Voici ta solution:

Range("A65536").End(xlUp).Select
Range(Selection, Selection.Offset(0, 7)).Select

Bonne soirée

@Christophe@

 

[Mytå]

Bonsoir le forum

Ou encore

fin = Range("a65535").End(xlUp).Row
Range("A" & fin & ":H" & fin).Select

Mytå

 

[@Christophe@]

Re

Coucou Mytå, syncro sur ce coup la, lol

Bonne soirée

@Christophe@

 

[fabrice]

salut à vous deux

Désolé de vous repondre que ce matin mais hier soir grosse fatigue.
Bon, et bien cette fois c OK.

Merci a vous deux.

FAb