type cellule vba

Salut tout le monde,
je veux écrire une fonction en VBA qui prend comme paramètre type cellule mais je sais pas comment se procéder.
voici ma fonction qui a pour but de fusionner des cellules Excel et d'écrire un texte dans la cellule résultat.

Code:

---

1 2 3 4 5 6 7 8

Function FusionnerCellule(cel1 As string, cel2 As String, txt As String) 'On Error Resume Next Range(" & cel1 & : & cel2 & ").Select Selection.Merge ActiveCell.Value = txt Range("& cel1 &").Select   End Function

---

Cordialement

Bonjour,
Tu ne peux pas utiliser une fonction pour faire une fusion mais une procédure SUB. Une fonction renvoie un résultat.
Si tu tiens absolument à utiliser du texte

Code:

---

1 2 3 4

Sub FusionnerCellule(cel1 As String, cel2 As String, txt As String) Range(cel1) = txt Range(cel1 & ":" & cel2).Merge End Sub

---

Code:

---

1 2 3

Sub test() FusionnerCellule "B5", "D5", "Test fusion" End Sub

---

Bonjour,
Pour ta procédure, ce serait mieux d'utiliser comme argument un objet Range

Code:

---

1 2 3 4 5 6 7

Sub FusionnerCellule(cel As Range, txt As String) With cel Cells(.Row, .Column) = txt .Merge .HorizontalAlignment = xlCenter ' Centrer la cellule fusionnée End With End Sub

---

Code:

---

1 2 3

Sub test() FusionnerCellule Range("g5:j5"), "Test Fusion avec centrage" End Sub

---

merci.Pour vos réponses.
Développez.com n'est pas le forum des développeur mais son univers.
Cordialement.