Retour de la constante xl en string et pas en numeric

Version imprimable

03/04/2015, 22h06
patricktoulon

Retour de la constante xl en string et pas en numeric

Bonsoir a tous
je cherche a obtenir le retour de

Code:

selection.border(xledgeleft).weight

en constante Excel et non en numérique

exemple si le weigth fait 2 c'est "XlThin"

il y a 3 constante
"xlthin,xlthick,xlmedium" je cherche un moyen a ce qu'elles me soit retournées tel quel

quelqu'un aurait il une idée afin d'illuminer ma soirées

Bonsoir,
une réponse capillotractée en attendant mieux...

Code:

1
2
3
4
5
6
 
Sub test()
Nameconst = Array("xlHairline", "xlMedium", "xlThick", "xlThin")
valconst = Array(1, -4138, 4, 2)
MsgBox Application.Index(Nameconst, Application.Match(Selection.Borders(xlEdgeLeft).Weight, valconst, 0))
End Sub

A+

Bonjour,

Code:

1
2
3
4
5
6
Sub test()
 
intThickness = Selection.Borders(xlEdgeBottom).Weight
MsgBox Trouver_epaisseur(intThickness)
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Function Trouver_epaisseur(ByVal intCode _
As Integer) As String
If intCode = xlThick Then
    Trouver_epaisseur = "Thick"
    Exit Function
ElseIf intCode = xlMedium Then
    Trouver_epaisseur = "Medium"
    Exit Function
ElseIf intCode = xlThin Then
    Trouver_epaisseur = "Thin"
    Exit Function
ElseIf intCode = xlHairline Then
    Trouver_epaisseur = "Hairline"
    Exit Function
End If
End Function

03/04/2015, 22h59
gnain

davido84 ,
tu as été plus vite que moi
ton code est plus court que le mien.
+1
03/04/2015, 23h06
patricktoulon

re

Bonsoir Davido

A oui la !! Ya plus de cheveux :ptdr:

ca va rallonger mon code bien bien comme il faut Mais il Ya de l'idée

reste a savoir sil il y a pas une constante de type array contenant déjà le xltypejesaispasquoi

ce sont tous des menbres de "XlBorderWeight"

un peu comme pour les bordures gauche,droite ,verticales,etc.....ou la constante contenant l'index est XlBordersIndex
03/04/2015, 23h15
patricktoulon

re

Gnain on c'est croisé

donc en gros non ca n'existe pas

ca n'arrange pas mes affaires ca:aie:

ca m'ennuie sachant que j'ai le top,left,right,bottom a contrôler et cela pour chaque cellules ou mergearea d'une plage

même si je fait de l'un de vos codes une fonction dans le quel j'injecterais un des 4 arguments

purré je vais pas dormir cette nuit :ptdr:
03/04/2015, 23h27
davido84

Re, bonsoir gnain,

Citation:

A oui la !! Ya plus de cheveux :ptdr:

je t'avais prévenu que ça allait décoiffer...
03/04/2015, 23h39
patricktoulon

re

re
purée j'ai la tète en sky et les cheveux qui poussent a l'intérieur

c'est quand même incroyable que l'on puisse pas récupérer la constante en string sur une application qui en ai a la version X(2007 pour moi)

mais qu'Est ce qui font chez bill gates

Bon après tu peux raccourcir légèrement, du genre
Code:

1 2 T = Array(1, "xlHairline", -4138, "xlMedium", 4, "xlThick", 2, "xlThin") MsgBox T(Application.Match(Selection.Borders(xlEdgeLeft).Weight, T, 0))
mais le principe est le même.
A+

04/04/2015, 00h02
kiki29

Salut, histoire de rajouter une couche : peut-être ici ou mieux là, y sélectionner dans la liste déroulante : Typelib.zip
04/04/2015, 01h51
Docmarti

Citation:

Envoyé par patricktoulon

quelqu'un aurait il une idée afin d'illuminer ma soirées

Code:

Range("A5:D5").BorderAround ColorIndex:=3, Weight:=Excel.XlBorderWeight.xlHairline
04/04/2015, 04h46
gnain

Bonjour,
la question de départ n'est pas comment mettre une bordure par code.
mais d'obtenir comme réponse xlThick ou xlMedium ou xlThin ou xlHairline d'un code semblable à celui-ci

Code:

msgbox Selection.Borders(xlEdgeBottom).Weight

sans passer par une fonction custom.
le code ci-haut donne l'integer de la constante. Est-ce qu'il existe un code excel qui peut faire cela
04/04/2015, 11h13
patricktoulon

re

Bonjour a tous

Davido et gnain: vos 2 proposition fonctionnent tres bien

j'aurais préféré m'en passer mais tant pis j'ai essayer les deux en remplaçant les if else endif par des select case dans celle da GNAIN

j'ai mis ces select case dans celle de Davido
en gros resultat identique sauf que dans son fonctionnement celle de Davido avant le select case ,la variable est sur et ensuite on teste quelle en est la valeur

et celle de gnain la valeur est vraiment déterminée en fin de if elseif endif

je pense après que c'est une question de préférence

la structure de gnain apportant la possibilité de poser d'autre conditions en même temps a l'intérieur des if elesif

mais j'aurais vraiment voulu m'en passer

je suis en train de revoir un truc que j'avais fait il y a plus de 3 ans et le but est d'en reduire le code par des procédures dignes de ce nom
en effet avant j'hésitais pas les if et elseif un peu mélangés

en fin c'est toujours du progrès tout de même

mais encore une fois c'est incroyable que pour ca on doivent faire une procédure

bon si vous avez des nouvelles a ce sujet n'hésitez pas

et Merci je le met pas résolu tout de suite
04/04/2015, 23h56
eriiic

1 pièce(s) jointe(s)

Bonjour,

Je vois bien un dictionary avec en clef :
XlBorderWeight1 et en item : xlHairline
XlBorderWeight-4138 et en item : xlMedium
etc

Si ça peut te faciliter le travail une liste que je m'étais faite sur onenote sur les constantes (je ne garanti pas l'exhaustivité, surtout pour les constantes vb).

eric
05/04/2015, 00h26
patricktoulon

re

Bonsoir

mais bon sang mais c'est bien sur

tu a tout a fait raison Eriic moi qui utilise tout le tant des dicos pourquoi je n'y ai pas penser

bon maintenant c'est fait

je vous propose donc a tous d'aller voir ICI le pourquoi de cette discussion