Insertion d'une ligne

[DUCL44]

Salut a tous.

J'ai encore un probleme avec des cellules fusionnées. En effet lorsque j'insert dans mon tableau une nouvelle ligne, je suis obligé de refusionné les cellule de la ligne.

Ci joint un fichier exemple pour bien comprendre le probleme

Peut-etre faut il utiliser le VBA.

En tous les cas merci de votre aide.

@

DUCL44

 

[@+Thierry]

Bonjour DUCL44, le Forum

Je ne sais plus à qui je disais récemment : Les Cellules Fusionnées sont une source de problèmes

Personnellement, je n'utilise jamais de Cellules Fusionnées dans mes programmes.... En fait, c'est une "facilité" qu'Excel offre à ceux qui ont mal conçu leur tableau et qui, arrivé à la fin de leur mise en page, s'aperçoivent qu'ils ont besoin d'arranger la présentation, alors là, les cellules fusionnées peuvent être un dépannage. Mais dans tous les autres cas c'est une source de M.... !

Enfin pour te sortir de ce mauvais pas, voici une macro qui devrait t'arranger ce problème :

Sub InsertRowWithFormatCopy()
Dim L As Integer
Dim Adresse As String

Adresse = ActiveCell.Address

L = ActiveCell.Row

With ActiveSheet
.Rows(L).Insert Shift:=xlDown
.Rows(L - 1).Copy
.Rows(L).PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Range(Adresse).Select
End Sub


Bon Samedi
@+Thierry

 

[DUCL44]

Oui je me rend compte maintenant que les cellules fusionné sont une source de M... . Je ne choisirais plus la facilité maintenant .

En tous les cas merci de ta réponse je ne l'ai pas encore essayée mais je suis sur que c'est nickel comme d'habitude.

@+ sur le forum

DUCL44

 

[DUCL44]

Je viens de tester et ca marche impecable

Merci

DUCL44