Probleme cellule cible macro VBA

Question

Bonjour,

Je me trouve face a un hic et je n’arrive pas a trouver la réponse. D’ailleurs je ne sais pas si elle existe.

J’utilise un fichier excel qui requiert un nombre de copier/coller assez importants et afin de gagner du temps, je souhaitais créer une macro pour cela. Je precise que la cellule cible de la macro est aleatoire en fonction des onglets

J’ai pensé a deux méthodes pour résoudre cela via la macro:

1/ Reussir avec la commande mise en place a coller la mise en forme de chaque plage que j’aurai créer dans un onglet différent. Cette macro réussi a s’exécuter mais la plage se colle systématiquement sur la feuille utiliser pour créer la macro.

Si dessous le texte de la macro qui fonctionne :

Sheets("Tours").Select

Range("B8:G10").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("01").Select

ActiveSheet.Paste

End Sub

2/ définir une macro qui mettrait en forme automatiquement les cellules (fusionner, en gras, police, taille, centrée…). Mais celle ci ne s’execute quand dans la cellule ou j’ai initialement créer la macro :/

Voici le VBA correspondant:

Sub Macro9()

'

' Macro9 Macro

'

Range("E10:J12").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

With Selection.Font

.Name = "Calibri"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent6

.TintAndShade = 0.799981688894314

.PatternTintAndShade = 0

End With

End Sub

En espérant avoir été claire (c’est pas ma spécialité).

Merci d’avance,

Sarah

dysorthographie · Answer

Bonsoir,

non c'est totalement incompréhensible!

Sheets("Tours").Range("B8:G10").Copy  Sheets("01").range("A1")

Probleme cellule cible macro VBA

1 réponse

Votre réponse

Discussions similaires