Pb avec Bouton Droit de la souris.

[Eric D]

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

 

[Hervé]

bonsoir eric

pas de solution, juste une piste.

essaye de mettre à jour ta version d'excel (voir le site de microsoft).

salut

 

[Eric D]

Bonjour Hervé, le forum,

Après une analyse générale et une bonne nuit, j'ai trouvé que le soucis venait d'une autre proc, je me disais aussi...
Merci quand même pour ton intéret et toutes mes excuses pour mon affolement.
Bonne journée.
Eric D