Contenu récent par shadok974

merci beaucoup c'est parfait. je suis sur des semaines de 7 sept jours , (le début du tableau n'est pas bon) j'ai donc modifier ton code pour -63 au lieu de -37 et cela fonctionne très bien. (d'ailleurs je ne comprends pas pourquoi -37 de base, 37 étant le nb de lignes )? Sub defusionner()...

Re Bonjour tout d'abord merci énormément de ta réponse et de ta réactivité. tu trouveras mon fichier en totalité (pour te faire une idée de mon soucis), j'y ai recopier, modifier les lignes, et ajouter ton code. cela demande donc une petite manip du code, si ajout de ligne dans le fichier...

j'aimerais défusionner la colonne 1 (qui me sert à faire des suites de dates sans perdre ma mise en page), et que les dates apparaissent dans chaque cellule défusionnée, si possible. (sans bordure intérieure) la feuille contient déjà un macro, pour annuler les mises en page des copier coller...

bonjour je suis effectivement tombé sur ce topic, Sub defusionner() Dim Cel As Range Dim I As Byte For Each Cel In ActiveSheet.UsedRange If Cel.MergeCells Then I = Cel.MergeArea.Cells.Count Cel.UnMerge Cel.Resize(1, I).Value = Cel.Value End If Next Cel End Sub...

Bonjour J'aimerais avoir une solution pour que lors d'une défusion de cellule, la valeur dans la dite cellule se duplique à toutes les celles crées. Pouvez vous m'aidez. svp merci beaucoup d'avance.