demongate
Messages postés3Date d'inscriptionsamedi 30 août 2008StatutMembreDernière intervention13 septembre 2008
-
10 sept. 2008 à 05:01
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
15 sept. 2008 à 09:11
Bonjour à tous,
J'aimerais savoir s'il est possible de faire en sorte que certaines cellules fusionnent de façon automatique dans excel 2003, soit par une macro ou une fonction.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 10 sept. 2008 à 09:43
Salut,
Allé... c'est bien parce que je n'avais pas envie de me mettre à bosser....Regarde si ceci peut te convenir
'Mes valeurs sont dans la colonne A
Dim Deb As Long
Range("A1").Select
Application.DisplayAlerts = False
Deb = -1
While Not IsEmpty(ActiveCell)
If ActiveCell.Value = ActiveCell.Offset(1).Value Then If Deb -1 Then Deb ActiveCell.Row
Else
If Deb <> -1 Then
With Range("A" & Deb & ":A" & ActiveCell.Row)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Deb = -1
End If
End If
ActiveCell.Offset(1).Select
Wend
Application.DisplayAlerts = True
, ----
[../code.aspx?ID=41455 By Renfield]