Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fusion de cellule vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jibdu64
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jibdu64

XLDnaute Nouveau
Bonjour,

je galère depuis bientôt deux jours sur un problème de fusion de cellule.
Voila, j'ai programmé en vba de façon a obtenir un calendrier :

Mois Jours
Octobre 29/10/2015
Octobre 30/10/2015
Octobre 31/10/2015
Novembre 01/11/2015
Novembre 02/11/2015
Novembre 03/11/2015
..

J'aimerais fusionner les cellules des mêmes mois de façon a visualiser une fois le mois pour tous les jours du mois.

Auriez-vous une idée a la façon dont je dois procéder ?

Merci d'avance pour vos réponses
 
Trier par date Trier par votes
Re : Fusion de cellule vba

Re,

ton code modifié comme suit :

Code: 
Sub cal()
Set F = Worksheets("Feuil1")
Set G = Worksheets("Feuil2")

debut = F.Cells(2, 2)
fin = F.Cells(3, 2)
G.Cells(4, 3) = Day(debut)
G.Cells(4, 3).ColumnWidth = 3.5
G.Cells(2, 3) = MonthName(Month(debut))

For i = 1 To (fin - debut)
    'affectation des jours du mois
    G.Cells(4, i + 3) = Day(debut + i)
    G.Cells(4, i + 3).ColumnWidth = 3.5
     
    'Affectation des jours de la semaine
    jours = Weekday(debut + i, vbMonday)
    
    If jours = 1 Then
    G.Cells(3, i + 3) = "L"
    ElseIf jours = 2 Then
    G.Cells(3, i + 3) = "Ma"
    ElseIf jours = 3 Then
    G.Cells(3, i + 3) = "Me"
    ElseIf jours = 4 Then
    G.Cells(3, i + 3) = "J"
    ElseIf jours = 5 Then
    G.Cells(3, i + 3) = "V"
    ElseIf jours = 6 Then
    G.Cells(3, i + 3) = "S"
    ElseIf jours = 7 Then
    G.Cells(3, i + 3) = "D"
    End If
    If MonthName(Month(debut + i)) <> MonthName(Month(debut + i - 1)) Then G.Cells(2, i + 3) = MonthName(Month(debut + i))
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Fusion de cellule vba

Merci, mais mon problème persiste, je veux que le nom du mois n'apparaisse qu'une fois, et donc qu'il se fussionne avec toute les cases ou le nom du mois est le même ..
Or là il s'affiche au dessus de chaque date ..
 
Vote positif 0 Vote négatif
Re : Fusion de cellule vba

Re,

bah... fonctionne chez moi, mais manquait la fusion, ceci devrait le faire...

Code: 
Sub cal()
Set F = Worksheets("Feuil1")
Set G = Worksheets("Feuil2")

debut = F.Cells(2, 2)
fin = F.Cells(3, 2)
G.Cells(4, 3) = Day(debut)
G.Cells(4, 3).ColumnWidth = 3.5
G.Cells(2, 3) = MonthName(Month(debut))

For i = 1 To (fin - debut)
    'affectation des jours du mois
    G.Cells(4, i + 3) = Day(debut + i)
    G.Cells(4, i + 3).ColumnWidth = 3.5
     
    'Affectation des jours de la semaine
    jours = Weekday(debut + i, vbMonday)
    
    If jours = 1 Then
    G.Cells(3, i + 3) = "L"
    ElseIf jours = 2 Then
    G.Cells(3, i + 3) = "Ma"
    ElseIf jours = 3 Then
    G.Cells(3, i + 3) = "Me"
    ElseIf jours = 4 Then
    G.Cells(3, i + 3) = "J"
    ElseIf jours = 5 Then
    G.Cells(3, i + 3) = "V"
    ElseIf jours = 6 Then
    G.Cells(3, i + 3) = "S"
    ElseIf jours = 7 Then
    G.Cells(3, i + 3) = "D"
    End If
    If MonthName(Month(debut + i)) <> MonthName(Month(debut + i - 1)) Then G.Cells(2, i + 3) = MonthName(Month(debut + i)) _
        Else: With G.Cells(2, i + 2).Resize(, 2): .Merge: .HorizontalAlignment = xlCenter: End With
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Fusion de cellule vba

Re,

bah pas ce problème chez moi.... essaye comme cela :

Code: 
Sub cal()
Application.DisplayAlerts = False
Set F = Worksheets("Feuil1")
Set g = Worksheets("Feuil2")
g.Cells.Clear
debut = F.Cells(2, 2)
fin = F.Cells(3, 2)
g.Cells(4, 3) = Day(debut)
g.Cells(4, 3).ColumnWidth = 3.5
g.Cells(2, 3) = MonthName(Month(debut))

For i = 1 To (fin - debut)
    'affectation des jours du mois
    g.Cells(4, i + 3) = Day(debut + i)
    g.Cells(4, i + 3).ColumnWidth = 3.5
     
    'Affectation des jours de la semaine
    jours = Weekday(debut + i, vbMonday)
    
    If jours = 1 Then
    g.Cells(3, i + 3) = "L"
    ElseIf jours = 2 Then
    g.Cells(3, i + 3) = "Ma"
    ElseIf jours = 3 Then
    g.Cells(3, i + 3) = "Me"
    ElseIf jours = 4 Then
    g.Cells(3, i + 3) = "J"
    ElseIf jours = 5 Then
    g.Cells(3, i + 3) = "V"
    ElseIf jours = 6 Then
    g.Cells(3, i + 3) = "S"
    ElseIf jours = 7 Then
    g.Cells(3, i + 3) = "D"
    End If
    If MonthName(Month(debut + i)) <> MonthName(Month(debut + i - 1)) Then g.Cells(2, i + 3) = MonthName(Month(debut + i)) _
        Else: With g.Cells(2, i + 2).Resize(, 2): .Merge: .HorizontalAlignment = xlCenter: End With
Next i
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Re : Fusion de cellule vba

Super ca marche, merci merci merci beaucoup, tu m'enlève une sacré épine du pied, car c'est un programme essentiel au développement d'un projet.

Merci encore, trop fort!!!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
536
BLACKHAYES
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
V
  • Question Question
Autres Pseudo_Calendrier_8s
Réponses
0
Affichages
374
VIARD
V
N
  • Résolu(e)
Microsoft 365 Afficher-désafficher lignes selon réponses de menu déroulants (oui-non)
Réponses
11
Affichages
644
NicodePorto
N
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
566
JJ69
J
A
  • Question Question
XL 2016 Fusion cellules via VBA
Réponses
3
Affichages
717
fanfan38
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Question Question
XL 2016 Importer des données sans macro depuis le site de l'INSEE
Réponses
3
Affichages
2 K
cat manus
C
O
  • Question Question
XL 2019 Ecriture comptable - Quittances mensuelles de loyer
Réponses
14
Affichages
1 K
goube
N
  • Question Question
XL 2013 somme dates
2
Réponses
23
Affichages
3 K
nabilexcel2007
N
B
  • Question Question
XL 2016 VBA : Macro me permettant d'ajouter une tache ou un rdv sur mon GOOGLE AGENDA.
Réponses
2
Affichages
1 K
Bylka
B
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
1 K
Stellaire
S
P
  • Question Question
Microsoft 365 Tableau et condition inclusive comptabilité par mois
Réponses
1
Affichages
439
merinos-BernardEtang
D
  • Question Question
XL 2019 Formatage international de numéros de téléphone
Réponses
4
Affichages
974
JHA
J
F
  • Question Question
XL 2019 Recherche en ligne dans matrice et ramener cellule de la même ligne
Réponses
12
Affichages
1 K
TooFatBoy
M
  • Question Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
1 K
mrcooll
M
L
  • Résolu(e)
Microsoft 365 Recherche dans un tableau en fonction de 2 critères et fonction compter valeur texte en nombre
Réponses
4
Affichages
1 K
AC045364
A
P
  • Résolu(e)
Microsoft 365 Somme de cellule contenant des lettres
Réponses
6
Affichages
773
R@chid
EXCEL :: Effectuer des regroupements avec agrégations de données :: GROUPER.PAR
Réponses
1
Affichages
506
oguruma
T
  • Question Question
XL 2016 Décoder/distribuer les infos contenue dans la cellule A
Réponses
3
Affichages
862
Chris401
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…