Discussion :

[patricktoulon]

Bonsoir a tous
je cherche a obtenir le retour de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[davido84]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gnain]

davido84 ,
tu as été plus vite que moi
ton code est plus court que le mien.
+1

[patricktoulon]

Bonsoir Davido

A oui la !! Ya plus de cheveux

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

[patricktoulon]

Gnain on c'est croisé

donc en gros non ca n'existe pas

ca n'arrange pas mes affaires ca

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

[davido84]

Re, bonsoir gnain,

A oui la !! Ya plus de cheveux

je t'avais prévenu que ça allait décoiffer...

[patricktoulon]

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

[davido84]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[kiki29]

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

[Docmarti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A5:D5").BorderAround ColorIndex:=3, Weight:=Excel.XlBorderWeight.xlHairline

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[eriiic]

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

[patricktoulon]

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