Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.