Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Souris suiveuse

Souris suiveuse

41 réponses
Avatar
milloche
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non copiables d'un
autre programme (Adobe par exemple) une méthode que je dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou elle ne gêne
pas : en haut à droite bien souvent. Mais parfois, c'est là que sont les
données.
Avec une variable physique (une case), j'ai donc prévu à chaque nouveau clic de
déplacer cette fenêtre et de lui faire faire le tour de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton dessin) car
pour l'instant, il se retrouve à chaque clic dans le vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais pas le mot.
Cordialement.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
michdenis
Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe de discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.


























Avatar
milloche
OULAH
Je vais mettre une paire de jours pour comprendre tout ça.
Mais comme je n'ai que ça à faire !
C'est super sympa en tous cas.
Pour ce jour, un peu télé puis dodo. C'est ça les vieux.
Cordialement
JMM

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe de
discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.





























Avatar
milloche
Je rattrape au vol
le bouton 2 provient donc de la BO formulaire et pas dessin.
D'ou la couleur identique et l'absence de couleurs et traits dans les
propriétés.
Tu vois je comprends presque vite.
Bonne nuit !

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe de
discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.





























Avatar
milloche
Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la barre
d'outils "dessin" : c'est juste esthétique. Comme sur une machine-outil.
Quand une fonction est active, le bouton est vert ou rouge suivant le cas.
Quand elle est inactive, la macro le remet en gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.
Picasso des boutons.

"milloche" a écrit dans le message de news:

Je rattrape au vol
le bouton 2 provient donc de la BO formulaire et pas dessin.
D'ou la couleur identique et l'absence de couleurs et traits dans les
propriétés.
Tu vois je comprends presque vite.
Bonne nuit !

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à
droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe de
discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.

































Avatar
milloche
Voilà le pourquoi de la chose.
J'espère que ça marche.
Première fois que je fais ça.

http://www.cijoint.fr/cjlink.php?file=cj200902/cijn0eZONM.xls

Cordialement
JMM


"milloche" a écrit dans le message de news:
%
Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la barre
d'outils "dessin" : c'est juste esthétique. Comme sur une machine-outil.
Quand une fonction est active, le bouton est vert ou rouge suivant le cas.
Quand elle est inactive, la macro le remet en gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.
Picasso des boutons.

"milloche" a écrit dans le message de news:

Je rattrape au vol
le bouton 2 provient donc de la BO formulaire et pas dessin.
D'ou la couleur identique et l'absence de couleurs et traits dans les
propriétés.
Tu vois je comprends presque vite.
Bonne nuit !

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à
droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe
de discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont
tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un
API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de
news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le
vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.





































Avatar
michdenis
Ok pour le bouton, mais cela n'explique pas pourquoi tu tenais
à obtenir que le curseur se retrouve sur le bouton lors d'un
déplacement !!
;-)



"milloche" a écrit dans le message de groupe de discussion :

Voilà le pourquoi de la chose.
J'espère que ça marche.
Première fois que je fais ça.

http://www.cijoint.fr/cjlink.php?file=cj200902/cijn0eZONM.xls

Cordialement
JMM


"milloche" a écrit dans le message de news:
%
Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la barre
d'outils "dessin" : c'est juste esthétique. Comme sur une machine-outil.
Quand une fonction est active, le bouton est vert ou rouge suivant le cas.
Quand elle est inactive, la macro le remet en gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.
Picasso des boutons.

"milloche" a écrit dans le message de news:

Je rattrape au vol
le bouton 2 provient donc de la BO formulaire et pas dessin.
D'ou la couleur identique et l'absence de couleurs et traits dans les
propriétés.
Tu vois je comprends presque vite.
Bonne nuit !

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à
droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe
de discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont
tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un
API
Selon la manière dont fonctionne ton application, tu appelles la procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de
news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois, c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le
vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.





































Avatar
Modeste
Bonsour® milloche

Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la
barre d'outils "dessin" : c'est juste esthétique. Comme sur une
machine-outil. Quand une fonction est active, le bouton est vert ou
rouge suivant le cas. Quand elle est inactive, la macro le remet en
gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.



;o))) Clearasil à ton age ????

Sub Creer_Boutons()
Dim cell As Range
Dim BoutonCourant As Shape
'----hauteur de ligne=hauteur du bouton
Selection.EntireRow.RowHeight = 36
'----creer un bouton dans chaque cellule de la selection
For Each cell In Selection
With cell
' mettre en commentaire selon besoins
' ------Bouton rectangulaire avec biseaux
'Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top, .Width, .Height)
'-------Bouton Oval
Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height)
With BoutonCourant
.Fill.ForeColor.SchemeColor = 10 ' rouge
.Fill.BackColor.SchemeColor = 11 ' vert
.Line.ForeColor.SchemeColor = 22 ' gris
.OLEFormat.Object.Caption = "O"
.OnAction = "Bouton_Click"
.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With '(caption)
End With '(bouton)
.Value = False '---- la cellule reçoit FAUX=bouton Rouge, VRAI=Bouton Vert
End With '(cellule)
DoEvents
Next
[a1].Select
End Sub
Sub Bouton_click()
Dim BoutonCourant As Shape
Set BoutonCourant = ActiveSheet.Shapes(Application.Caller)
With BoutonCourant
'---- à modifier si l'on souhaite un comportement Tri-state !!!!!!
'---- la cellule reçoit FAUX = bouton Rouge VRAI=Bouton Vert
Range(.TopLeftCell.Address) = (.Fill.ForeColor.SchemeColor = 10)
'---- la couleur du bouton est modifié ( ici couleur Rouge ou Vert)
.Fill.ForeColor.SchemeColor = IIf(.Fill.ForeColor.SchemeColor = 10, 11, 10)
'---- le texte du bouton est modifié ( ici texte alternatif "O" ou "I")
.OLEFormat.Object.Caption = IIf(.Fill.ForeColor.SchemeColor = 10, "O", "I")
End With
End Sub
Avatar
milloche
Rien à voir
Le fichier joint a été créé juste pour justifier mon "c'est joli" et les boutons
ronds.
Pour le curseur, c'est un tout autre fichier trop gros et confidentiel pour
l'envoyer par le même canal.
Admettons que j'ouvre ADOBE qui me donne mon relevé bancaire officiel et que je
veuille vérifier ou comparer ces données avec mon propre suivi banque.xls.
Par macro, je reduis la taille de ma fenetre banque.xls au quart supérieur droit
de l'écran. J'ai ainsi sous les yeux les deux programmes pour vérifier les
données.
Mais il arrive parfois que les données d'adobe sont justement dans ce quart
supérieur droit de l'écran, donc invisibles puisque sous ma petite fenêtre
Excel.
Pour ce cas, j'ai créé une macro qui déplace mon 1/4 de fenetre excel dans un
autre coin de l'écran. Pendant que j'y étais, j'ai prévu tous les cas et chaque
fois que je clique sur le bouton qui envoit la macro, mon 1/4 de fenetre excel
se déplace autour du centre de mon écran dans le sens horaire. Je peux ainsi
lire les données d'adobe ou qu'elles soient.
Mon problème est que le pointeur de ma souris reste là ou il était juste avant
le clic, mais que la fenetre (ET le bouton qui est dedans bien sur), s'est
barrée de l'endroit. Si ce second emplacement n'est pas bon non plus, je dois
recliquer une fois, donc déplacer ma souris pour retrouver le bouton.
C'est là que je voudrais que le pointeur fasse le déplacement seul pour
retrouver le dit-bouton. Et je n'aurais moi qu'à cliquer pour obtenir le
déplacement suivant de mon 1/4 de fenetre excel. Et ainsi de suite.
Je sais c'est un peu pointu.
Dans un msgbox, si on choisi une réponse par défaut, le pointeur vient se coller
automatiquement dessus.
C'est çà que je voudrait mais avec mon bouton. Malgré le déplacement de la
petite fenetre excel.
Ton ci-joint a répondu en partie au problème. Reste à l'adapter à mon cas.
Et je n'ai pas eu encore le temps de bidouiller dessus.
J'y arriverais.
Merci de ta patience.
JMM
"michdenis" a écrit dans le message de news:

Ok pour le bouton, mais cela n'explique pas pourquoi tu tenais
à obtenir que le curseur se retrouve sur le bouton lors d'un
déplacement !!
;-)



"milloche" a écrit dans le message de groupe de
discussion :

Voilà le pourquoi de la chose.
J'espère que ça marche.
Première fois que je fais ça.

http://www.cijoint.fr/cjlink.php?file=cj200902/cijn0eZONM.xls

Cordialement
JMM


"milloche" a écrit dans le message de news:
%
Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la barre
d'outils "dessin" : c'est juste esthétique. Comme sur une machine-outil.
Quand une fonction est active, le bouton est vert ou rouge suivant le cas.
Quand elle est inactive, la macro le remet en gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.
Picasso des boutons.

"milloche" a écrit dans le message de news:

Je rattrape au vol
le bouton 2 provient donc de la BO formulaire et pas dessin.
D'ou la couleur identique et l'absence de couleurs et traits dans les
propriétés.
Tu vois je comprends presque vite.
Bonne nuit !

"michdenis" a écrit dans le message de news:

Les contrôles provenant de la boîte d'outils contrôle ont en plus
tous les événements qui sont programmables. En mode création
si tu doubles cliques sur eux, tu te retrouves dans le module feuille
qui les contient. Dans la liste déroulante du haut de cette feuille, à
droite,
tu as tous les événements attachés à ce contrôle à partir desquels tu
peux ajouter du code. Pour pouvoir accéder au propriétés de ces
contrôles, tu affiches la barre d'outils contrôle et tu cliques sur le
bouton "mode création" et juste à côté, tu pourras cliquer sur le bouton
qui affiche la fenêtre de leur propriété.

Un exemple de code pour les principales caractéristiques des boutons
émanant de la barre d'outils Formulaire ou contrôle
'----------------------------------------
Sub Test()
'Exemple de code
'Bouton provenant de la barre d'outils formulaire
With Feuil1.Shapes("Bouton 1")
.Left = 25: .Top = 50: .Width = 20: .Height = 15
.Name = "MonBouton"
With .OLEFormat.Object
.Caption = "Gros Bouton"
.PrintObject = False
.Font.ColorIndex = 15
.Font.Bold = True
.Locked = True
.OnAction = "ExécuteMaMacro"
End With
End With
End Sub
'----------------------------------------
Sub Test2()
'Exemple de code
'Bouton provenant de la barre d'outils contrôle
With Feuil1.Shapes("Mon_Bouton")
.Left = 25: .Top = 50: .Width = 100: .Height = 30
.Name = "Mon_Bouton"
With .OLEFormat.Object.Object
.Caption = "GrosBouton"
.BackColor = vbRed
.ForeColor = vbWhite
.Font.Name = "Arial"
.Font.Size = 14
.Locked = True
End With
End With
End Sub
'----------------------------------------




"milloche" a écrit dans le message de groupe
de discussion :

Oui, hélas, encore moi.
C'est l'avidité de connaissances.
Sur ton dernier ci-joint, avec lequel j'avance bien, je remarque que
un bouton provient de la BO contrôles, donc pas de nom dans la fenêtre NOM
L'autre provient de la BO dessin et s'appelle Bouton2.
Dans les propriétés de ce dernier (clic bouton droit) je n'ai pas l'onglet
couleurs et traits. J'ai créé des centaines de boutons "DESSIN", ils ont
tous
cet onglet dans leurs propriétés.
Je n'ai d'ailleurs jamais réussi à reproduire exactement le gris excel.
Tes deux boutons ont exactement la même couleur !
Pourquoi ?
Quelques mots la-dessus serait sympa. Si tu as le temps.
(<°±°>)


"milloche" a écrit dans le message de news:

Denis
A vue de nez, après essais, c'est çà.
Mais je crois qu'il faut un "vrai" bouton de la BO contrôles.
En tous cas, j'ai la base, et je peux bidouiller qque chose.
Et là, ce n'est pas une usine à gaz.
Excuse si je t'ai un peu froissé dans ma réponse precédente !
On garde toujours le caractère que l'on a. Je m'y suis fait, moi.
Cordialement.
JMM

"michdenis" a écrit dans le message de news:

Un fichier exemple là : http://cjoint.com/?crsP7uL8NQ

Pour déplacer le curseur, que t'aime ou non, tu as besoin d'au moins un
API
Selon la manière dont fonctionne ton application, tu appelles la
procédure
LeBouton.



"Mgr T. Banni" a écrit dans le message de groupe de
discussion :
#
bien sûr que si, mon fils
essaie de faire cela :

dessine un bouton "commandes" sur ta feuille et édite son code ; tu
trouveras dans la liste déroulante à droite (dans visual basic editor) la
liste des évènements possibles et peut-être y trouveras-tu le mot que tu
cherches...
HTH mais comprends que, pour moi, st valentin ou pas, les souris me sont
inaccessibles...

Mgr T.B.



"milloche" a écrit dans le message de news:
%
Mgr
Mon problème de souris suiveuse ne vous intéresse t'il donc pas ?

"Mgr T. Banni" a écrit dans le message de news:
eTh$
heu....je ne savais pas que denis était un papou
je vais demander aux oeuvres pontificales missionnaires de le convertir
avant qu'il ne se recouche....
Mgr T.B.

"milloche" a écrit dans le message de
news:

Denis
Je vais attendre que les Canadiens sortent du lit.

"milloche" a écrit dans le message de
news: %
Petite correction pour être plus clair. Un mot restant un mot.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car

Veut dire
Comment faire pour que le pointeur suive la fenêtre (et donc le
bouton
créé avec la barre d'outil dessin) et sans avoir à déplacer la
souris.
Comme la réponse par défaut dans un "MsgBox".
Merci.

"milloche" a écrit dans le message de
news: uNUa$
Bonne fête les amoureux
J'utilise pour recopier sur Excel, au clavier, des données non
copiables d'un autre programme (Adobe par exemple) une méthode que
je
dirais géniale (;o))))
Par macro, je réduis ma fenêtre au 1/4 de l'écran et la place là ou
elle ne gêne pas : en haut à droite bien souvent. Mais parfois,
c'est
là que sont les données.
Avec une variable physique (une case), j'ai donc prévu à chaque
nouveau clic de déplacer cette fenêtre et de lui faire faire le tour
de l'écran en 4 clics.
Comment faire pour que le pointeur suive l'écran (et donc le bouton
dessin) car pour l'instant, il se retrouve à chaque clic dans le
vide.
C'est du cours après moi que j't'attrappe.
J'ai tenté Application.mouse.top=x, Application.pointer.top=x ......
Il me manque le juste mot et l'aide n'aide pas, vu que je ne connais
pas le mot.
Cordialement.








































Avatar
milloche
Bonjour Modeste
La publicité n'est pas interdite sur ce forum ?
Ton code est pas mal (même bien) mais fait quand même un peu usine à gaz.
Rien à voir avec mon ci-joint. Que tu as vu je suppose.
Figure toi que j'en suis fier (pour te faire une idée de mon niveau en VB)
Etant encore dans la catégorie amateurs, poids léger, je tape dans la
simplicité.
Mais je garde ton travail sous le coude. Pour les longues soirées d'hiver.
J'ai vu, ça marche mais il faut que je comprenne tout et pourquoi ça marche !
Cordialement.
JMM

"Modeste" a écrit dans le message de news:

Bonsour® milloche

Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la
barre d'outils "dessin" : c'est juste esthétique. Comme sur une
machine-outil. Quand une fonction est active, le bouton est vert ou
rouge suivant le cas. Quand elle est inactive, la macro le remet en
gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.



;o))) Clearasil à ton age ????

Sub Creer_Boutons()
Dim cell As Range
Dim BoutonCourant As Shape
'----hauteur de ligne=hauteur du bouton
Selection.EntireRow.RowHeight = 36
'----creer un bouton dans chaque cellule de la selection
For Each cell In Selection
With cell
' mettre en commentaire selon besoins
' ------Bouton rectangulaire avec biseaux
'Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top,
.Width, .Height)
'-------Bouton Oval
Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,
.Width, .Height)
With BoutonCourant
.Fill.ForeColor.SchemeColor = 10 ' rouge
.Fill.BackColor.SchemeColor = 11 ' vert
.Line.ForeColor.SchemeColor = 22 ' gris
.OLEFormat.Object.Caption = "O"
.OnAction = "Bouton_Click"
.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With '(caption)
End With '(bouton)
.Value = False '---- la cellule reçoit FAUX=bouton Rouge, VRAI=Bouton Vert
End With '(cellule)
DoEvents
Next
[a1].Select
End Sub
Sub Bouton_click()
Dim BoutonCourant As Shape
Set BoutonCourant = ActiveSheet.Shapes(Application.Caller)
With BoutonCourant
'---- à modifier si l'on souhaite un comportement Tri-state !!!!!!
'---- la cellule reçoit FAUX = bouton Rouge VRAI=Bouton Vert
Range(.TopLeftCell.Address) = (.Fill.ForeColor.SchemeColor = 10)
'---- la couleur du bouton est modifié ( ici couleur Rouge ou Vert)
.Fill.ForeColor.SchemeColor = IIf(.Fill.ForeColor.SchemeColor = 10, 11, 10)
'---- le texte du bouton est modifié ( ici texte alternatif "O" ou "I")
.OLEFormat.Object.Caption = IIf(.Fill.ForeColor.SchemeColor = 10, "O", "I")
End With
End Sub
Avatar
milloche
Bonjour
Je ne m'en sors pas. Je vais donc reposer ma question au plus simple.
Existe t'il une macro de module capable de positionner le pointeur de la souris
là ou je veux (avec Top et Left, comme un dessin) ou par autre moyen (X et Y)
Je vous ai auparavant sans doute embrouillé avec toutes mes explications
superflues
Cordialement..



"milloche" a écrit dans le message de news:

Bonjour Modeste
La publicité n'est pas interdite sur ce forum ?
Ton code est pas mal (même bien) mais fait quand même un peu usine à gaz.
Rien à voir avec mon ci-joint. Que tu as vu je suppose.
Figure toi que j'en suis fier (pour te faire une idée de mon niveau en VB)
Etant encore dans la catégorie amateurs, poids léger, je tape dans la
simplicité.
Mais je garde ton travail sous le coude. Pour les longues soirées d'hiver.
J'ai vu, ça marche mais il faut que je comprenne tout et pourquoi ça marche !
Cordialement.
JMM

"Modeste" a écrit dans le message de news:

Bonsour® milloche

Bonjour Denis
Tu dois te demander pourquoi je m'entête à créer des boutons avec la
barre d'outils "dessin" : c'est juste esthétique. Comme sur une
machine-outil. Quand une fonction est active, le bouton est vert ou
rouge suivant le cas. Quand elle est inactive, la macro le remet en
gris
Et ces couleurs sont en dégradé comme si le bouton était bombé.
C'est joli et c'est çà la raison.
Impossible avec les autres barres.
Et un bouton rond n'est pas prévu non plus. Moi, j'en ai.



;o))) Clearasil à ton age ????

Sub Creer_Boutons()
Dim cell As Range
Dim BoutonCourant As Shape
'----hauteur de ligne=hauteur du bouton
Selection.EntireRow.RowHeight = 36
'----creer un bouton dans chaque cellule de la selection
For Each cell In Selection
With cell
' mettre en commentaire selon besoins
' ------Bouton rectangulaire avec biseaux
'Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top,
.Width, .Height)
'-------Bouton Oval
Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top,
.Width, .Height)
With BoutonCourant
.Fill.ForeColor.SchemeColor = 10 ' rouge
.Fill.BackColor.SchemeColor = 11 ' vert
.Line.ForeColor.SchemeColor = 22 ' gris
.OLEFormat.Object.Caption = "O"
.OnAction = "Bouton_Click"
.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With '(caption)
End With '(bouton)
.Value = False '---- la cellule reçoit FAUX=bouton Rouge, VRAI=Bouton Vert
End With '(cellule)
DoEvents
Next
[a1].Select
End Sub
Sub Bouton_click()
Dim BoutonCourant As Shape
Set BoutonCourant = ActiveSheet.Shapes(Application.Caller)
With BoutonCourant
'---- à modifier si l'on souhaite un comportement Tri-state !!!!!!
'---- la cellule reçoit FAUX = bouton Rouge VRAI=Bouton Vert
Range(.TopLeftCell.Address) = (.Fill.ForeColor.SchemeColor = 10)
'---- la couleur du bouton est modifié ( ici couleur Rouge ou Vert)
.Fill.ForeColor.SchemeColor = IIf(.Fill.ForeColor.SchemeColor = 10, 11, 10)
'---- le texte du bouton est modifié ( ici texte alternatif "O" ou "I")
.OLEFormat.Object.Caption = IIf(.Fill.ForeColor.SchemeColor = 10, "O", "I")
End With
End Sub





1 2 3 4 5