Cellule aux bords arrondis

M

MARIE74

XLDnaute Occasionnel

• 11 Octobre 2005

• #2

B) Re a tous


Salut courtillon


Une macro a coller dans un module

Macro pour arrondir les coins d’un tableau ou cellule

Sub CelluleArrondie()
Set depart = ActiveCell
r1 = depart.Height
r2 = depart.Width
r3 = depart.Top
r4 = depart.Left
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
r4, r3, r2, r1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
depart.Select
End Sub

Bonne chance

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 11 Octobre 2005

• #3

Bonjour,

Pour la 1ère question MARIE 74 a répondu.


Pour la 2ème question, voici un code qui te permet de copier la feuil1 et de la renomer:

Code:

    Sheets('Feuil1').Copy After:=Sheets(3)
    Sheets('Feuil1 (2)').Name = 'Mafeuil'

A+

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 11 Octobre 2005

• #4

B) Re a tous

Salut jeromegmc

Oh la la j'etais pas sur terre

Toutes mes excuses courtillon pour avoir oublié ta 2ieme question

Mais je vois que jeromegmc a parfaitement répondu


Bon Ap midi

 

Vote positif 0 Vote négatif

C

courtillon

Guest

• 11 Octobre 2005

• #5

Bonsoir ,
Merci à vous deux
Marie74 cela me va c'est ce que je cherchais 😉
mais pour la 2/ je me suis mal exprimé alors jeromegmc ne pouvait répondre. Mille excuses

Dans un dossier( X ) j'ai besoin de remplacer l'onglet 'feuil1' du classeur par un autre onglet (' yyyyyyy')qui se trouve être une feuille excel (dans un autre classeur ) ou plus simple un copier coller mais complet ( formules cellules formats ect..);C'est pour éviter de supprimer l'onglet feuil1 et de refaire à la bonne place le 'yyyyyyy ' car il comporte pas mal de boutons.
@+

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 13 Octobre 2005

• #6

Salut,

Donc 2ème essai:

Voici un code qui copie tout du classeur1 sur le classeur2, mais le problème est que la largeur des colonnes et la hauteur des lignes ne suivent pas, si quelqu'un a une solution?

Code:

    Windows('Classeur1').Activate
    Cells.Select
    Selection.Copy
    Windows('Classeur2').Activate
    ActiveSheet.Paste

A+

 

Vote positif 0 Vote négatif