Ilino
XLDnaute Barbatruc
Forum Bonsoir
je souhaite simplifier le code ci dessous
GRAZIE
je souhaite simplifier le code ci dessous
Code:
'Renvoer a la ligne automatiquement cellule fusionnées
Set t = Intersect(Target, [E13:X13]) ' objet
If Not t Is Nothing Then Ajustement t, [E:X], [E:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
'Réserves 20
Set t = Intersect(Target, [B25:X25])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B26:X26])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B27:X27])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B28:X28])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B29:X29])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B30:X30])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B31:X31])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B32:X32])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B33:X33])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B34:X34])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B35:X35])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B36:X36])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B37:X37])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B38:X38])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B39:X39])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlLeft 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B40:X40])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B41:X41])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B42:X42])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B43:X43])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
Set t = Intersect(Target, [B44:X44])
If Not t Is Nothing Then Ajustement t, [B:X], [B:X], xlCenter 'IMPORTANT : ci dessus la fonction Ajustement
GRAZIE