If c <> "" Then Rotation c, c(3) 'c <> "" car cellules fusionnées
If c.Address = c.MergeArea(1).Address Then Rotation c, c(3)
Private Sub Worksheet_Activate()
Dim c As Range
For Each c In [D41:H41] 'plage à adapter
If c <> "" Then Rotation c, c(3) 'c <> "" car cellules fusionnées
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In [J41:K41] 'plage à adapter
If c <> "" Then Rotation c, c(3) 'c <> "" car cellules fusionnées
Next
End Sub
With ActiveSheet.OLEObjects("Label" & nomfleche) 'objet ActiveX renommé
.Object.AutoSize = False
.Object.WordWrap = False
.Object.Caption = nom & " " & Adegre.Text & " "
.Width = 200
.Object.AutoSize = True
'----------------
With ActiveSheet.OLEObjects("Label" & nomfleche) 'objet ActiveX renommé
.Object.AutoSize = False
.Object.WordWrap = False
.Object.Caption = nom & " " & Adegre.Text
.Object.AutoSize = True
.Width = 1.2 * .Width 'ajustement
.Height = 1.2 * .Height
'------------
Sub MAJ()
'touches Ctrl+M
Dim c As Range
For Each c In [D41:K41] 'plage à adapter
If c <> "" Then Rotation c, c(3) 'c <> "" si cellules fusionnées
Next
End Sub
J'ai essayé d'ouvrir le fichier et lorsque je fais CRTL+M j'ai un message d'erreur
" Les informations de lience de ce composant sont introuvables ..... "