VBA fusion cellule conditionnelleFermé

Question

Bonjour à tous, 

Je suis en train de construire une planning.

En ligne K12 -NL12, j'ai mis des dates journalières.
Je souhaiterais qu'au dessus en ligne L11-NL11, les cellules se fusionnent pour indiquer le mois correspondant uniquement.

la solution est en VBA me semble-t-il mais je ne maîtrise pas.

Je vous remercie pour votre aide précieuse.

Bonne journée




Configuration: Windows / Internet Explorer 11.0

The_boss_68 · Answer

Bonjour,

Mettre un fichier anonymisé pour une meilleur compréhension

Slts

Patrice33740 · Answer

Bonjour,

Sous Excel (et VBA), la fusion de cellules c'est le début de la catastrophe !

eriiic · Answer

Bonjour,

j'approuve, éviter les fusions tant qu'on peut.
Tu peux te contenter de mettre le mois sur la 1ère colonne où il apparait ce qui fera exactement pareil.
En K11 : =K12
En L11, à tirer vers la droite :
=SI(OU(K12="";MOIS(K12)<>MOIS(L12));L12;"")
format de cellule mmmm-aa
eric
 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

romanza · Answer

Merci pour vos retours.

La fusion est un souhait de présentation sur un fichier Excel type Gant.

En K12 -NL12, mes dates peuvent varier en fonction d'une formule que j'ai mis en amont.
Aussi, pour plus de lisibilité, je souhaite que la ligne au dessus - L11-NL11 -n'indique que le mois.

Ex : En  K12-Z12, j'ai des jours de février,        en AA12-BF12, j'ai des jours de mars

Je souhaite que K11-Z11 soient fusionnées avec indication "FEVRIER"
que AA11-BF11 soient fusionnées avec indication "MARS
et ainsi de suite...."

romanza

Patrice33740 · Answer

Bonjour,

Avec cette procédure :
Option Explicit
Sub FusionnerMois()
Dim r As Range
Dim c As Range
Dim d As Range
   
   Set r = ActiveSheet.Range("K12:NL12")
   With r.Offset(-1)
     .UnMerge
     .ClearContents
     .NumberFormat = "mmmm"
     .HorizontalAlignment = xlCenter
   End With
   For Each c In r.Cells
     If d Is Nothing Then
       Set d = c.Offset(-1)
       d.Value = c.Value
     End If
     If Month(c.Offset(0, 1).Value) <> Month(d.Value) Then
       ActiveSheet.Range(d, c.Offset(-1)).Merge
       Set d = Nothing
     End If
   Next c
   
End Sub

romanza · Answer

Bonjour Patrice,

Merci pour le temps passé.

Ce qu'il y a c'est que j'ai une barre de défilement des jours associée.

Je te propose de t'envoyer le fichier mais ici je ne sais pas comment....

romanza

romanza · Answer

Voilà :

https://mon-partage.fr/f/DqWoyeEW/

romanza · Answer

Oui, j'avais adapté pour la plage de cellules.

Mais si tu utilises la barre de défilement des jours en haut, les mois fusionnés ne suivent pas.

romanza · Answer

Merci Patrice cela fonctionne très bien.

Peux-tu m'indiquer le code pour que les cellules mois soit bordurées

romanza · Answer

Merci Patrice

TOP!!

Bonne journée

romanza

romanza · Answer

Autre souci dont je viens de me rendre compte.

Quand on filtre avec les segments la correspondance mois ne suit pas.

Comment peut-on déclencher la macro à partir du filtre segment?

Patrice33740 · Answer

Dans le module de la feuille TCD, ajoutes :
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
  FusionnerMois
End Sub

romanza · Answer

Merci Patrice,

Impec!

romanza

romanza · Answer

Bonjour Patrice,

Je me permets de te solliciter pour mon projet pour lequel je rencontre 2 questions sur l'onglet "Chronologie des tâches"

Je te joins le fichier et j'ai mis 2 commentaires sur l'onglet correspondant

https://mon-partage.fr/f/tZRhVCpw/


Je te remercie d'avance pour ton aide

Pascal


.

VBA fusion cellule conditionnelle

14 réponses

Newsletters