Re : Fusion cellules par macro
Re
Stop à tous,
Stop JNP
c'est bon, j'ai la phrase magique!!!
Cela fonctionne mais peux-tu me dire si c'est vraiment OK :
Private Sub Annuler_Click()
Unload USF1
End Sub
Private Sub Rouge_Click()
ActiveCell.Interior.ColorIndex = 22
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Bleu_Click()
ActiveCell.Interior.ColorIndex = 17
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Vert_Click()
ActiveCell.Interior.ColorIndex = 14
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Jaune_Click()
ActiveCell.Interior.ColorIndex = 36
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Orange_Click()
ActiveCell.Interior.ColorIndex = 40
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Rose_Click()
ActiveCell.Interior.ColorIndex = 38
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Private Sub Gris_Click()
ActiveCell.Interior.ColorIndex = 16
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Unload USF1
End Sub
Merci encore et bonne soirée
Breitzou