... de mettre un fichier exemple ?est ce que il y a une possibilité de mettre
Sub a()
ActiveSheet.Unprotect
Range("A3:B3").Locked = False
Range("A3:B3").HorizontalAlignment = xlCenterAcrossSelection
Range("A6:B6").Locked = False
Range("A6:B6").HorizontalAlignment = xlCenterAcrossSelection
Range("B14:C14").Locked = False
Range("B14:C14").HorizontalAlignment = xlCenterAcrossSelection
Range("D9").Locked = False
ActiveSheet.Protect
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Interior.ColorIndex = 2 Then
Target.Locked = False
End If
End If
End Sub
C'est pour cela que dans mon code nous trouvions en lieu et place:(si et seulement bye-bye aux cellules fusionnées)
Et pourquoi donc cette obligation ?je dois avoir des cellules fusionnées dans mon programme?
Re
comme je disais plus bas
C'est pour cela que dans mon code nous trouvions en lieu et place:
xlCenterAcrossSelection
Target.Locked = False
Target.MergeArea.Locked = False
Re
Ilino
Et pourquoi donc cette obligation ?
La fusion est là pour l’esthétisme mais avec les ennuis
Centrer sur plusieurs colonnes équivaut à la fusion sans les ennuis mais avec le même résultat esthétique
Donc le changement c'est maintenant
Re
Tu es bien sur que cela fonctionne dans tous les cas de figure ?
Ce n'est pas le cas chez moi
par exemple
je fusionne deux cellules plus je mets en blanc
la case Verrouillée reste cochée