Rectangle

[Adil.costing]

Salut a tous,
Je m' appel Adil Je suis nouveau sur le forums et je trouve que c ‘ est vraiment très intéressant je commence a comprendre beaucoup de chose que je n est jamais eu l occasion de les connaitre merci a tous C vraiment magnifique..

J’ai copier un macro pour rectangle mais malheureusement je n est pas pu Copie et coller…

Merci d’avance pour votre aide

 

[astralon]

Re : Rectangle

bonjour a toi

Ta demande n'est pas claire, avec un peu de précision...

si tu veux voir le code tu va sur l'onglet curseur de sélection (en bas), tu fais clic droit et Visualiser le code

h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0

'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With


End Sub

 

[Adil.costing]

Re: Re : Rectangle

Merci astralon
Je sais comment voir le code mais quand je l' applique sur une feuille excel il fonction tres bien mais j arrive pas a copie et coller des information dans la feuille c comme si le macro desactive "coller"

Pour mieux comprendre essaye d insere une ligne dans le fichier attacher et essayer de copier et coller des info..

Merci encors de votre aide

 

[jeanpierre]

Re : Re: Re : Rectangle

Bonjour Adil.costing, Astralon,

C'est normal, c'est une macro événementielle, le copier fonctionne, mais dés que tu veux coller, la macro a pris le pas.

Tu peux, néanmoins, selectionner les cellules de la dernières ligne et les tirer vers le bas, ensuite tu en modifies les valeurs.

A te lire.

Jean-Pierre

 

[Adil.costing]

Re: Re : Re: Re : Rectangle

Merci jeanpierre
Malheuresement le classeur dont j' ai voulu appliquer ce code et plus detailler...copier, coller et necessaire pour moi pour l'instant

Salut

 

[ogle]

Re : Rectangle

Bonjour Adil.costing, Astralon,

C'est normal, c'est une macro événementielle, le copier fonctionne, mais dés que tu veux coller, la macro a pris le pas.


Jean-Pierre

Bonjour,

Une petite question de béotien :

Puisqu'il s'agit d'une macro évènementielle, je ne comprends pas pourquoi, lorsqu'on change de cellule (et donc que la macro se déclenche), la partie en copie est éjectée de la mémoire.

Merci d'avance😀

 

[jeanpierre]

Re : Re: Re : Re: Re : Rectangle

Re,

Peux-tu préciser stp ?

Tu copies quoi et tu veux le mettre où ? (même feuille, autre feuille)

 

[Adil.costing]

Re: Re : Re: Re : Re: Re : Rectangle

Non seleument dans la meme feuille copier par exemple la ligne 35 sur la ligne 65 que je doit l'insere c pour ca que je ne peut tirer une ligne.

 

[jeanpierre]

Re : Re: Re : Re: Re : Re: Re : Rectangle

Re,

Auquel cas, une seule solution, tu ouvres ton classeur sans activer les macros, tu fais tes manips. tu sauvegardes et tu réouvres en activant les macros, et cela à chaque fois que nécessaire.

Je n'en vois pas d'autre.

 

[Adil.costing]

Re: Re : Re: Re : Re: Re : Re: Re : Rectangle

Merci jeanpierre c comme meme une solution.

 

[ogle]

Re : Rectangle

Bonjour,

Une petite question de béotien :

Puisqu'il s'agit d'une macro évènementielle, je ne comprends pas pourquoi, lorsqu'on change de cellule (et donc que la macro se déclenche), la partie en copie est éjectée de la mémoire.

Merci d'avance😀

Au risque d'être un peu insistant et sans vouloir abuser, pourrais-tu me donner un début d'explication ?

 

[Cousinhub]

Re : Rectangle

Re-,
si tu veux vraiment utiliser ce classeur (il y a d'autres possibilités avec les mises en forme conditionnelle), tu peux quand même récupérer ce qu'il y a dans le presse-papier (Affichage/Volet Office ou Ctrl+F1, tu cliques sur la flèche noire vers le bas, tu as accès à ton presse-papier)

 

[jeanpierre]

Re : Rectangle

Re, bhbh,

Sous 2003, il me semble me souvenir de cette option, mais pas sous 2000 où le presse-papier est vidé dés activation d'une macro.
Mais comme nous n'avons que fort rarement la version.............

Bonne soirée.

 

[Adil.costing]

Merci a vous tous ca marche tres avec presse papier

Salutation