Planning salles

Bonjour, j'ai mis un bouton effacer. le problème c'est que quand j'efface les cellules, je ne peux pas faire une nouvelle réservation car le crénaux est déjà réservé.

Aussi je ne sait pas comment faire pour que les cellules fusionnent lors de la réservation.

merci pour votre aide. bonne journée

Bonjour,

Pour vider les cellules > c'est Cel.ClearContents ...

Cel.ClearContents efface le contenu sans supprimer les formats

Cel.Clear efface tout contenu et formats

Sub effacer()
Dim Cel As Range

   For Each Cel In Selection
      Selection.MergeCells = False
      Selection.ClearComments
      Cel.Interior.ColorIndex = Clear
      Cel.Characters.Text = Clear    ' << pas sûr que c'est utile
      Cel.ClearContents
   Next
End Sub

ric

merci. ça ne marche pas car quand j'efface et que je fait une nouvelle réservation avec la même plage horaire sem et salle ca m'indique impossible car il a une réservation.

Bonjour,

Cela fonctionne bien si tu modifies ta macro "effacer" tel que je te l'ai suggéré plus haut ...

Sub effacer()
Dim Cel As Range

   For Each Cel In Selection
      Selection.MergeCells = False
      Selection.ClearComments
      Cel.Interior.ColorIndex = Clear
      Cel.Characters.Text = Clear    ' << pas sûr que c'est utile
      Cel.ClearContents               ' << ajoute cette ligne 
   Next
End Sub

ric