Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel un probleme pour une macro simple !!!

un probleme pour une macro simple !!!

7 réponses
Avatar
val
bonjour

j'ai cree une macro simple et qui fonctionne... mais je voudrais lui ajouter
une action supplementaire et la ça bloque !!!

role de cette macro qui fonctionne :
je selectionne une cellule ou une plage de cellules et la macro encadre
cette selection...

ce qui ne marche pas : !
si je selectionnne une plage de cellule je voudrais que la macro trace des
bordures pour chaque cellule faisant partie de la selection...
donc un message apparait :
"erreur d'execution 1004"
"impossible de definir la propriete LineStyle de la classe Bordeur"

voici le code de la macro....

Sub oui_cadre()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
End Sub


pouvez vous m'aider ? j'ai regarde sur internet mais je n'ai pas trouve la
reponse...

merci

val
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour,

Sub oui_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

'Cdlt

'lSteph




val a exprimé avec précision :
bonjour

j'ai cree une macro simple et qui fonctionne... mais je voudrais lui ajouter
une action supplementaire et la ça bloque !!!

role de cette macro qui fonctionne :
je selectionne une cellule ou une plage de cellules et la macro encadre
cette selection...

ce qui ne marche pas : !
si je selectionnne une plage de cellule je voudrais que la macro trace des
bordures pour chaque cellule faisant partie de la selection...
donc un message apparait :
"erreur d'execution 1004"
"impossible de definir la propriete LineStyle de la classe Bordeur"

voici le code de la macro....

Sub oui_cadre()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
End Sub


pouvez vous m'aider ? j'ai regarde sur internet mais je n'ai pas trouve la
reponse...

merci

val


--
- -

Avatar
Ricky
Bonjour *val*

Etonnant. Chez moi ta macro fonctionne correctement. Sauf bien entendu si la sélection ne contient qu'une seule cellule auquel cas xlInsideHorizontal pose fatalement problème. Il faut prévoir une macro pour cellules isolés sans traits intérieurs et une pour plage avec traits intérieurs

| bonjour
|
| j'ai cree une macro simple et qui fonctionne... mais je voudrais lui
| ajouter une action supplementaire et la ça bloque !!!
|
| role de cette macro qui fonctionne :
| je selectionne une cellule ou une plage de cellules et la macro
| encadre cette selection...
|
| ce qui ne marche pas : !
| si je selectionnne une plage de cellule je voudrais que la macro
| trace des bordures pour chaque cellule faisant partie de la
| selection...
| donc un message apparait :
| "erreur d'execution 1004"
| "impossible de definir la propriete LineStyle de la classe Bordeur"
|
| voici le code de la macro....
|
| Sub oui_cadre()
| Selection.Borders(xlDiagonalDown).LineStyle = xlNone
| Selection.Borders(xlDiagonalUp).LineStyle = xlNone
| With Selection.Borders(xlEdgeLeft)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeTop)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeBottom)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeRight)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlInsideVertical)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlInsideHorizontal)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| End Sub
|
|
| pouvez vous m'aider ? j'ai regarde sur internet mais je n'ai pas
| trouve la reponse...
|
| merci
|
| val

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
val
bonjour

je viens d'essayer ta macro... ça marche parfaitement !!! c'est super un
grand merci.

bon week-end

val
"lSteph" a écrit dans le message de news:

Bonjour,

Sub oui_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

'Cdlt

'lSteph




val a exprimé avec précision :
bonjour

j'ai cree une macro simple et qui fonctionne... mais je voudrais lui
ajouter
une action supplementaire et la ça bloque !!!

role de cette macro qui fonctionne :
je selectionne une cellule ou une plage de cellules et la macro encadre
cette selection...

ce qui ne marche pas : !
si je selectionnne une plage de cellule je voudrais que la macro trace
des
bordures pour chaque cellule faisant partie de la selection...
donc un message apparait :
"erreur d'execution 1004"
"impossible de definir la propriete LineStyle de la classe Bordeur"

voici le code de la macro....

Sub oui_cadre()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
End Sub


pouvez vous m'aider ? j'ai regarde sur internet mais je n'ai pas trouve
la
reponse...

merci

val


--
- -






Avatar
val
bonjour

merci pour tes conseils... mais je vais utiliser la macro de lSteph. le code
est tres court et elle fonctionne...

cordialement

val

Etonnant. Chez moi ta macro fonctionne correctement. Sauf bien entendu si
la sélection ne contient qu'une seule cellule auquel cas
xlInsideHorizontal pose fatalement problème. Il faut prévoir une macro
pour cellules isolés sans traits intérieurs et une pour plage avec traits
intérieurs

| bonjour
|
| j'ai cree une macro simple et qui fonctionne... mais je voudrais lui
| ajouter une action supplementaire et la ça bloque !!!
|
| role de cette macro qui fonctionne :
| je selectionne une cellule ou une plage de cellules et la macro
| encadre cette selection...
|
| ce qui ne marche pas : !
| si je selectionnne une plage de cellule je voudrais que la macro
| trace des bordures pour chaque cellule faisant partie de la
| selection...
| donc un message apparait :
| "erreur d'execution 1004"
| "impossible de definir la propriete LineStyle de la classe Bordeur"
|
| voici le code de la macro....
|
| Sub oui_cadre()
| Selection.Borders(xlDiagonalDown).LineStyle = xlNone
| Selection.Borders(xlDiagonalUp).LineStyle = xlNone
| With Selection.Borders(xlEdgeLeft)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeTop)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeBottom)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlEdgeRight)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlInsideVertical)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| With Selection.Borders(xlInsideHorizontal)
| .LineStyle = xlContinuous
| .Weight = xlMedium
| .ColorIndex = 1
| End With
| End Sub
|
|
| pouvez vous m'aider ? j'ai regarde sur internet mais je n'ai pas
| trouve la reponse...
|
| merci
|
| val

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net




Avatar
val
bonsoir

excusez moi j'ai encore une question...
j'ai cree une macro pour effacer les cadres. ça fonctionne mais je ne suis
pas sur que le code soit complet.
voici :

Sub non_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlNone
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

val


"lSteph" a écrit dans le message de news:

Bonjour,

Sub oui_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

'Cdlt



Avatar
lSteph
Bonsoir,
selon ce que je comprends de l'objectif ceci suffirait:

Selection.Cells.Borders.LineStyle=xlNone

Cordialement.

lSteph
val a exprimé avec précision :
bonsoir

excusez moi j'ai encore une question...
j'ai cree une macro pour effacer les cadres. ça fonctionne mais je ne suis
pas sur que le code soit complet.
voici :

Sub non_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlNone
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

val


"lSteph" a écrit dans le message de news:

Bonjour,

Sub oui_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

'Cdlt



--
- -


Avatar
val
bonjour

oui c'est bien ce que je voulais... merci

val

selon ce que je comprends de l'objectif ceci suffirait:

Selection.Cells.Borders.LineStyle=xlNone

Cordialement.

lSteph
val a exprimé avec précision :
bonsoir

excusez moi j'ai encore une question...
j'ai cree une macro pour effacer les cadres. ça fonctionne mais je ne
suis pas sur que le code soit complet.
voici :

Sub non_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlNone
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

val


"lSteph" a écrit dans le message de news:

Bonjour,

Sub oui_cadre()
With Selection.Cells
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub

'Cdlt



--
- -