Macro permettant de fusionner des cellules

[goupil02]

Bonjour
Je désire pouvoir avec une macro choisir une plage de cellules pour la fusionner et écrire à la vertical dans les cellules fusionnées.
J’ai fait ma macro, évidemment quand je commande la macro je sélectionne toujours la même plage
Je ne sais pas comment attribuer une variable qui serait définit par une boite de dialogue (peut être) plag1 = InputBox("plage") et qui pourrait changer dans mon programme les coordonnées a10 :a28 par les valeurs que j'aurais indiquées à la boite de dialogue
Merci pour vos réponses, il s’agit certainement d’une solution basique, mais je suis vraiment débutant

Sub essais()
'
' essais Macro
' Macro enregistrée le 02/02/2010 par .
'
' Touche de raccourci du clavier: Ctrl+e
'
' dans la macro j'ai selectionné a10:a28


plag1 = InputBox("plage")
' Si je repond par exemple a3:a25 la variable plag1 peut elle etre atribué à la place de "a10:a28" si oui comment
Range("a10:a28").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 = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
End Sub

 

[Robert]

Re : Macro permettant de fusionner des cellules

Bonjour Goupil, bonjour le forum,

Tu peux en effet passer par une InputBox :

Dim sel As Range
Set sel = Application.InputBox("Indiquez la plage de cellule", Type:=8)
With sel
'ton code...
End With

Mais tu peux aussi faire une sélection manuelle et lancer la macro en supprimant dans ton code les lignes avant With Selection...

 

[goupil02]

Re : Macro permettant de fusionner des cellules

Merci d’abord pour ta réponse

J’ai d’abord essayé ta proposition, je ne dois certainement pas avoir bien compris,
J’ai fais ceci

Touche de raccourci du clavier: Ctrl+s
'
Dim sel As Range
Set sel = Application.InputBox("Indiquez la plage de cellule", Type:=8)
With sel
'ton code...
End With


With Selection
.HorizontalAlignment = xlCenter

En répondant par exemple A10 :A30 Il ne se passe rien après avoir fait O K
Mais pas de problème, ta suggestion de faire une sélection manuelle est la solution idéale, j’ai cherché pour comprendre qu'il fallait faire la sélection, puis lancer la macro, ça doit être évident, mais j’avoue avoir encore beaucoup de chose à apprendre
En des temps reculés je programmais en BASIC ça me paraissait plus simple, j’ai acheté VBA pour les nuls , je trouve qu’il manque d’exemples simples et d’explication pour la syntaxe

Merci encore

 

[Robert]

Re : Macro permettant de fusionner des cellules

Bonjour Goupil, bonjour le forum,

Si je reprends le code de ton premier exemple, en enlevant les lignes inutiles, ça donnerait :

Sub essais()
Dim sel As Range 'déclare la variable sel
 
Set sel = Application.InputBox("Indiquez la plage de cellule", Type:=8) 'définit la variable sel
 
With sel
    .MergeCells = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Orientation = 90
End With
 
With sel.Font
    .Name = "Arial"
    .Size = 12
    .Bold = True
End With
 
sel.Select 
 
End Sub