XL 2007 Effacer les cellules fusionnees sous condition d'autre cellule sujet

Bonsoir Forum
je cherche un code VBA
quand j'efface le contenu de la cellule fusionnée G12(G-K12) les autres cellule fusionnées L12 ( L-O12) et P12 ( P-Q) R12 (R-T12) s'effacent automatiquement; je vous informe que la feuille est protegé .. mais les cellules de mon souci ne sont pas verouillées
GRAZIE

XL 2007 liste de cellules fusionnées et simplification de macro sujet

Bonsoir amis du forum
je recherche une solution pour un problème de cellules fusionnées ;
Voila je m'explique ,
j'ai un fichier avec environs 200 onglets , sur chaque onglet j'ai plusieurs cellules fusionnées, pas toujours les mêmes ,ces cellules doivent être de couleur différant selon la valeur d'une cellule ici A1.
j'ai fait une macro avec l'enregistreur et les MFC ,
mais je me retrouve avec une série de MFC que je ne veux pas ,je ne sais pas comment transformer la macro pour que selon la valeur en A1 de la feuille la série de cellules change de couleur .
De plus, je voudrais avoir si possible la liste des cellules fusionnées dans une cellule , ce qui me permettrait de sélectionner cette cellule pour fais fonctionner la macro
Range("C3:F5,B4:B11,C9:E11,F6:F18").Select

merci pour votre aide
bonne soirée à tous

Fichiers attachés

• 
  
  cellules fusionées.xlsm‎
  (24,0 Ko)
  

XL 2010 Centrer image sur cellules ou cellulles fusionnées avec sélection manuelle sujet

Bonjour à tous,

Je souhaite pouvoir centrer une image que je souhaite sélectionner à la souris sur une ou plusieurs cellules ou sur des cellules fusionnées sélectionnées aussi à la souris.

J'arrive à sélectionner les cellules mais j'ai l'impression que l'InputBox ne gère pas les cellules fusionnées.
J'aimerais également pouvoir sélectionner l'image que je souhaite centrer.

Quelqu'un pourrait m'aider?

Par avance merci.

Ci-dessous macro VBA chopée d'un autre forum.

Sub CentreImage()
Dim cel As Range, k1 As Double, k2 As Double
Set cel = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) ' à modifier pour tenir compte des cellules fusionnées
With ActiveSheet.Shapes("Image 1") 'à modifier pour sélectionner l'image
k1 = .Width / cel.Width
k2 = .Height / cel.Height
If k1 > k2 Then
.Width = (.Width / k1) - 4
.Top = cel.Top + (cel.Height - .Height) / 2
.Left = cel.Left + 2
Else
.Width = .Width / k2 - 2
.Top = cel.Top + 1
.Left = cel.Left + (cel.Width - .Width) / 2
End If
End With
End Sub