Je souhaiterais en passant la souris sur une cellule (...)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Info ActiveCell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Info Target
End Sub
Sub Info(Target As Range)
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = Target.Cells(1, 1)
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1) <> "" Then Me.Hyperlinks.Add Anchor:=Target, _
Address:="", SubAddress:="", ScreenTip:=Target.Cells(1, 1).Text
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Cells(1, 1)) > 10 Then Me.Hyperlinks.Add Anchor:=Target, _
Address:="", SubAddress:="", ScreenTip:=Target.Cells(1, 1).Text
End Sub
Mais si je recharge cette feuille sans activer les macros ou même que je les supprime
Le résultat est toujours présent !
(...) Peux-tu m’expliquer ce fait ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Info ActiveCell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Info Target
End Sub
Sub Info(Target As Range)
Dim larg1 As Single, larg2 As Single
Application.ScreenUpdating = False
With Target.Cells(1, 1)
larg1 = .ColumnWidth
.Columns.AutoFit 'ajustement de la colonne
larg2 = .ColumnWidth
.ColumnWidth = larg1
End With
With Target.Validation
.Delete
If larg2 > larg1 Then
.Add Type:=xlValidateInputOnly
.InputMessage = Target.Cells(1, 1)
End If
End With
End Sub
Une dernière petite chose, si je veux revenir en arrière et ne plus avoir cet "info-bulle" est-ce possible ?
Sub Info(Target As Range)
Dim larg1 As Single, larg2 As Single
Application.ScreenUpdating = False
With Target.Cells(1, 1)
larg1 = .ColumnWidth
.Columns.AutoFit 'ajustement de la colonne
larg2 = .ColumnWidth
.ColumnWidth = larg1
End With
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = [COLOR="Red"]IIf(larg2 > larg1, Target.Cells(1, 1), "")[/COLOR]
End With
End Sub
Sub Info(Target As Range)
Dim larg1 As Single, larg2 As Single, f As String
Application.ScreenUpdating = False
With Target.Cells(1, 1)
larg1 = .ColumnWidth
.Columns.AutoFit 'ajustement de la colonne
larg2 = .ColumnWidth
.ColumnWidth = larg1
f = .NumberFormat
End With
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = IIf(larg2 > larg1, Format(Target.Cells(1, 1), f), "")
End With
End Sub
(...) mais est-ce que je pourrais supprimer les infos-bulles qui sont déjà en place dans mes cellules ?