Après "Add Worksheet" Créer les bordures des cellules

[IFFIC]

Bonsoir à tous et merci pour les grands pas que vous m'avez aidé à faire.
(A ma petite mesure, il s'entend!)

J'aimerai bien faire la copie des données de la feuille "SAISIE"
dans la feuille "REDACTION" avec une mise en forme genre tableau.

En résumé, créer une macro qui fasse que la cellule B2 ait une bordure
en haut, F2, une en haut et à droite, B10, en bas et à gauche, grasse
ou fine et c.

J'ai trouvé dans l'aide des
Worksheets(truc).Range("A1").Borders.LineStyle = /JBZLK&,?FJZ

Ou l'aide n'est pas bonne, ou pas explicite pour un néophyte
Ou je suis..... (Non! Je ne vais pas le dire)

Merci pour un coup de main à ma portée....!

En échange, une caisse de soleil à vous pour le week-end

IFFIC

 

[G'Claire]

IFFIC, le Forum

Avec l'enregistreur de macro cela donne, poue exemple la céllule A13, bordure haute et fine :

Sub MiseEnForme()
'
' Macro7 Macro
' Macro enregistrée le 02/04/2004 par Zeziola
'

'
Range("A13").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End Sub

Donc a supprimer si pas besoin :

La couleur auto a priori par défaud c'est le noir :

.ColorIndex = xlAutomatic

Tout ce qui est en xlNone :

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone

Et les select, cela beaucoup des Excéliens te le diront qu'il ne servent pas et surtout ils fond mal a la tête,lol

Sub MiseEnForme()
'
' Macro7 Macro
' Macro enregistrée le 02/04/2004 par G'Claire'

'
Range("A13").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

Donc par l'enregistreur, tu faits:

Outil / Macro -> Nouvelle macro

Cela va te demander de donner un nom ou a defaut Macro N° XXX

Ensuite OK

Et a partire de ce moment tout ce que tu fait est enregistré:
Donc tu manipule tes cellules comme si tu créer un tableau et sa mise en forme

Donc dans l'exemple ci-dessus : Cellule A13 et ligne haute fine

Tu clique sur cellule A13 -> Format -> Céllule

et tu choisie ta mise en forme.

Voila j'espère avoir été Explicite et surtout pas mettre trompé dans mes explications.

Salut,G'Claire

 

[IFFIC]

Merci beaucoup "j'éclaire"

Et pour déconner, je dirai "Suivez moi, j'ai un sexe appeal"

Ton aide n'est pas du genre "Pile de lampe de poche"

Mais je vais devoir m'y atteler pour comprendre.
Et je vais le faire!

Tu recoupes les aides que j'ai pu glaner dans l'aide VBA
Je vais copier et tester.

Je serai particulièrement attentif aux "Borders" qui semblent
le mieux correspondrent à ce que je cherche.
Je n'ai pas encore approndi, mais cela m'est un peu plus clair.

Encore merci à toi d'avoir pris cette peine.


Bonne fin de semaine à toi.

IFFIC

 

[IFFIC]

Heu! G'Claire

C'et c.. d'être littéraire,
mais en lisant et tentant de
percevoir la logique,du cheminement,
je ne parviens pas à comprendre
le pourquoi de "xlNone...

On engendre un négatif des "LineStyle" ???

J'ai du mal à percuter.

Avant de me lancer dans des bidouille hasardeuses

J'abuse de ta gentilles pour ne pas y passer la nuit.

Peux-tu m'aiguiller sur celà?

Merci encore,

Excuses d'un pépé qui a les méninges qui chauffent

IFFIC

 

[G'Claire]

IFFIC, le Forum

Si j'ai bien compris (Et là j'espère que l'on me reprendra si je me trompe), en faite l'enregistreur de macro enregistre toutes tes manipulations.

Donc, comme on a choisi de faire une ligne fine en haut pour la cellule A13, cela a été traduit, et vu que les lignes : gauche, droite, bas et les diagonales ne sont pas sélectionnées, lui les mets quand même, mais avec avec le code = xlNone ce qui veux dire rien, (en simplifiant).

C'est de même pour les select, les actions par défauts (Couleurs noire par exemple)

Salut, G'Claire

 

[IFFIC]

Bonjour G'Claire et à tous

Je n'ai pas encore eu trop le temps de bosser.
J'espère cet A.M.

Ta dernière expication est bienvenue pour ma compréhention.

Sympa de ta part.

Merci et Bon week-end

IFFIC

 

[IFFIC]

C'est bon, G'Claire !

C'est super!

Je dessine maintenant des tableaux à ma convenance
avec des boucles.

Je me heurte à présent à la largeur des colonnes

ColumnWidths =

L'aide VBA C'est bien (Heu!) mais vous êtes tous
vachement plus clairs.

Je lance un nouveau Post, car je pense que celà peut
intéresser plusieurs.

A +

IFFIC