> Tous les forums > Forum Bureautique
 Position souris interactiveSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Milloche51
  Posté le 14/08/2015 @ 19:59 
Aller en bas de la page 
Petit astucien

Bonjour le forum
J'aimerais améliorer cette macro et au lieu d'utiliser 2 colonnes différentes comme Target,
n'utiliser qu'une seule, la "B"avec comme condition la position X de la souris dans la cellule.
Si je sais placer la souris quelque part en XY, je ne sais pas faire l'opération inverse c'est
a dire savoir ou est la souris.
Autre petit soucis avec le filtre automatique, il bogue si je veux cacher les flèches Dropdown
Merci

Dans la feuille concernée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 4 And ActiveCell <> "" Then FiltreAuto
Application.SendKeys ("{ENTER}")
'Car le FiltreAuto stoppait avec le curseur clignotant dans la cellule
End Sub

Dans module :
Sub FiltreAuto()
Application.EnableEvents = True
Dim monmot
If ActiveCell.Column = 3 Then
'Serait If activecell.Column = 2 and position X souris entre 400 et 600 then
monmot = Mid(ActiveCell.Offset(0, -1), 25, 8)
'Serait monmot = Mid(ActiveCell, 25, 8)
End If
If ActiveCell.Column = 2 Then
'Serait If activecell.Column = 2 and position X souris entre 300 et 400 Then
If Left(ActiveCell, 6) = "CHEQUE" Then
monmot = "CHEQUE"
ElseIf Left(ActiveCell, 11) = "RETRAIT DAB" Then
monmot = "RETRAIT DAB"
ElseIf ActiveCell.Offset(0, -1) = "" And ActiveCell.Offset(0, 1) = "" Then
MacroSplit1
ActiveSheet.DrawingObjects("Rectangle 10").ShapeRange.Fill.ForeColor.SchemeColor = 3
Exit Sub
Else: monmot = Left(ActiveCell, 24)
End If
End If
selection.AutoFilter field:=2, Criteria1:="=*" & monmot & "*" ' , VisibleDropDown:= False

ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.LargeScroll Down:=-1
ActiveCell.Select
ActiveSheet.DrawingObjects("Rectangle 10").ShapeRange.Fill.ForeColor.SchemeColor = 3
ActiveSheet.DrawingObjects("BOUTSPLIT").ShapeRange.Fill.ForeColor.SchemeColor = 22
End Sub

A bientôt

JMM

Publicité
pcastuces
 Posté le 14/08/2015 à 21:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Equipe PC Astuces
Bonjour,

Le sujet a été déplacé par la modération dans le forum Bureautique qui semble plus adéquat.

Vous pouvez continuer la discussion à la suite de ce message.

A bientôt.
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
comment marque les $ avec la souris
position dans un array, mais en partant de la fin
Comment garder la taille et la position d'une image lors d'une copie
Fermer windows sans souris
Sauvetage de la position des icones du bureau.
Word 2013 Pb Souris défilement "doux"
telecharger logiciel souris
Afficher l' heure en position veille
copier-coller avec souris impossible dans off 2007
Pointeur de souris et Gestionnaire de Taches.
Plus de sujets relatifs à Position souris interactive
 > Tous les forums > Forum Bureautique