Discussion :

[ayarikhaoulakoukou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ayarikhaoulakoukou]

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