Re : comment donner des infos a l'ouverture d'une feuille
voici ce que je voulais faire mais ca ne fonctionne pas
1 la couleur des cellules c ok
2 la legende mobile c ok
3 les infos lors de l'affichage de la feuille c pas ok
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target.Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 5, _
.ColorIndex = 5, 3, _
.ColorIndex = 3, 4, _
.ColorIndex = 4, 6, _
.ColorIndex = 6, 0)
End With
Shapes("TextBox1").Left = Target.Offset(0, 3).Left
Shapes("TextBox1").Top = Target.Offset(1, 0).Top
TextBox2.Visible = True
PauseTime = 3 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Loop
TextBox2.Visible = False
End Sub
merci de votre aide