Discussion :

[ANGLIQUESOIG]

bonjour
j'ai une ligne qui contient des noms de mois . Je voudrai savoir s'il existe un moyen en VBA de fusionner les cellules qui contiennent le même mois.Cette ligne doit servir pour construire un graphique glissant sur 2 années.Mon graphique comporte des données par semaine avec le numéro de semaine sur l'axe des X . Je voudrai avoir le mois correspondant sous les semaine.
Actuellement , je fusionne les cellules manuellement à chaque rajout de semaines et je ne connais rien à la VBA pouvez vous m'aider.
d'avance merci

[jfontaine]

Bonjour,

Comment gères tu les semaines a cheval sur 2 mois? voir 2 années?

[ANGLIQUESOIG]

bonjour
je n'ai pas trouve le moyen de le faire pour l'instant. je dois appliquer la methode 4,4,5 pour le nombre de semaine dans les mois
janvier 4 , février 4, mars 5 etc... pour construire mon graphique

[jfontaine]

un coup de pouce,

Code a mettre au niveau de la feuil2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub fusion()
 
Dim c As Integer
Dim rg As Range
 
Application.DisplayAlerts = False
 
For c = 1 To Rows(13).End(xlToRight).Column
    If c = 1 Then Set rg = Cells(13, c)
 
    If rg.Value <> Cells(13, c).Value Then
        Range(rg, Cells(13, c - 1)).Merge
        Set rg = Cells(13, c)
    End If
 
Next c
 
Range(rg, Cells(13, c - 1)).Merge
 
Application.DisplayAlerts = True
 
End Sub