Bonjour le forum,
Ce fil reprend mon fil précédent, à savoir que ma 'Textbox ' devient opaque alors que 'Backstyle' a éré spécifié transparent. Voici mon code:
Private Sub Textbox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
Range('h25').Value = X
Range('h26').Value = Y
Range('h27').Value = Button
Range('h28').Value = Int(Y / 12.75) + 1
' Sheets('Feuil1').OLEObjects('Textbox3').Visible = False
TextBox2.BackStyle = fmBackStyleTransparent
Sheets('Feuil1').OLEObjects('Textbox3').Visible = True
Exit Sub
End If
If Button = 1 Then
Range('h27').Value = Button
Range('h28').Value = Int(Y / 12.75) + 1
Sheets('Feuil1').OLEObjects('Textbox3').Visible = False
TextBox2.BackStyle = fmBackStyleTransparent
Sheets('Feuil1').OLEObjects('Textbox3').Visible = True
Exit Sub
End If
End Sub
les actions sont identiques pour le bouton droit (=2) que pour le bouton gauche (=1) de la souris, parce que je suis en phase de création. Vous avez sans doute remarqué que si Button = 2, une ligne est en commentaire. C'est
mon PB. En effet si elle ne l'est pas, j'ai un default et une fenêtre s'ouvre en me demandant si j'autorise Excel a envoyer un rapport à Microsoft?
Avez vous une idée sur la question?
Bonne fin de journée à tous.
Merci pour vos suggestions.
Eric D