ActiveCell

[denis]

bonjour à tous

Je cherche en vba,

je suis en B3, quant je click sur un bouton B3 et C3 fusionne et je reviens à la ligne B4.

voila si quelqu'un à une soluce

merci & @+
denis

 

[CBernardT]

Bonjour Denis

Si j'ai bien compris le mot fusion qui est ici considéré comme une concaténation ?

Cordialement

CBernadT

 

[denis]

re bonjour à tous

Merci CBernadt

Non en fait je voudrais fusionner B3 et C3 pour ne faire qu'une seule cellule.

le but je réalise un planning de rotation il y a 5 personnes, 5 horaires , et les congés, rtt,... ect.

les horaires sont par 1/2 journée, il y a aussi des 1/2 congés et des 1/2 rtt
donc le jour ou la personne 1 et en congés matin et soir je voudrais fusionner les 2 cellules pour en faire 1 seul.

encore merci

denis

 

[Temjeh]

Bonjour avec l'enregistreur

Sub Fusion()
Range("B3:C3").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("B4").Select
End Sub

A++

Temjeh

 

[denis]

re bonjour

Merci Temjeh

l'enregistreur ok mais pas pour se que je cherche,

dans la pièce jointe c'est plus claire,

@+ denis

 

[Hervé]

bonjour

Un truc dans ce style :

Sub Rtt()
'
' Macro1 Macro
' Macro enregistrée le 17/09/2001

Selection.Interior.ColorIndex = 46
ActiveCell.FormulaR1C1 = "Rtt"
Selection.Font.Bold = True
Range(ActiveCell.Address & ":" & ActiveCell.Offset(0, 1).Address).MergeCells = True
'
End Sub

Salut
Hervé

 

[denis]

Re bonjour à tous

merci Hervé, c'est impec.

merci à tous
@+ denis