Fusionner des cellules dans un planning par macro

[christian.bedere]

Bonsoir à vous tous

J'ai grâce à Tibo créé un programme pour remplir un planning en fonction d'une base de données.
En fonction des dates saisies, le tableau "févr" se remplit automatiquement.
J'aimerai connaître une macro qui permettrait en fonction de ces dates de fusionner les cases colorées représentant cette période, mais aussi intégrer dans cette fusion, le nom du groupe ainsi que le nombre de participants donnés dans la BDD.
Est ce possible de réaliser cela ?
Pour votre aide, la pj renseigne le mode opératoire, cliquer sur le boutton et valider directement, les inos sont pré-remplies
Merci pour votre aide
Christian

 

[Jeanbulle]

Re : Fusionner des cellules dans un planning par macro

Salut

Je dois partir, et je ne suis pas un expert.
Mais un début dans le genre :
JE PRECISE : le code ne marche pas correctement
y'a deux trois erreurs à corriger
n'ayant pas le temps, je ne le fais pas
mais si tu te sens, en mode pas à pas, tu verras ou ca plante

 dur = Durée.Value
heb = Hébergement.Value
Worksheets("Févr").Select

For Each c In Range("A7:A13")
   ligne = c.Row
  If Cells(ligne, 1) = heb Then
   GoTo suite:
   End If
   Next
   
suite:
compteur = 1
For Each d In Range("B3:AC3")


compteur = compteur + 1

MsgBox compteur

jig = Cells(3, compteur)
If jig = Début.Value Then
Range("Cells(3, compteur)", "cells(3, lig +dur").Select
Selection.MergeCells = False


End If
Next

Je le reprends plus tard

Désolé

 

[christian.bedere]

Re : Fusionner des cellules dans un planning par macro

Salut JeanBulle

Et bien, j'ai vu et j'avoue n'avoir rien compris, ec compteur, je ne sais pas ce qu'il compte alors j'attendrais tes explications...
merci et bonne soirée
christian