Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affecter une macro a un trait

  • Initiateur de la discussion Initiateur de la discussion kewell
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

kewell

Guest
Bonjour tout le monde.
En fait en gros j'ai representé un quartier sur excel avec des traits. De
simples traits.
J'ai remarqué que l'on pouvait affecter des macro au traits.

Donc disons que un trait représente une rue. Je voudrais que si je clique
sur un des traits sa aille automatiquement récuperer une ligne dans un
tableau.

Ce tableau est une base de donnée que j'ai faite. Cette base de donnée
contient des info sur la rue.
Je sais pas si vous voyez se que je veux dire...

Merci d'avance, Kewell.
 
Re : Affecter une macro a un trait

salut kewell

a mon avis pour cela il vaut mieux que tu crées un lien hyper texte factice donc sur la meme zone en renseignant des données dans l'info bulle ce qui te permettra de visualiser les données simplement en passant la souris dessus
exemple dans le fichier joint
A+
Denis
 
Re : Affecter une macro a un trait

désolé je n'avais pas vu que la fonctionalité joindre un post n'était pas dispo pour l'instant

quand tu es sur ta forme automatique clic droit lien hypertexte et clique sur le bouton infobulle
renseigne tout ce que tu veux dans cette zone

et dans le lien hypertexte clique à gauche sur "emplacement dans ce document et selectionne une cellule à coté de ta forme

j'espère avoir été clair

Denis
 
Re : Affecter une macro a un trait

Merci Droussel mais le tuc c'est que je voudrais recuperer ces info.

Par exemple disons que je clique sur le trait representant la rue 3 puis sur celui de la rue 7.

Il faudrait que dans un tableau j'ai les informations de la rue 3 et 7. Ces informations venant de la base de donnée.

Donc une macro qui lorsque je clique sur le trait aille me recuperer les données concernant la rue et me les copient dans un nouveau tableau.
Je sais pas si c'est plus, c'est pas evident a expliquer a l'ecrit.

Merci pour tout..Kewell
 
Re : Affecter une macro a un trait

ci dessous une réponse
c'est un peu long car je ne peux pas te joindre de fichier
crée deux feuilles sur excel
une avec tes dessins et une avec ta base de données qui doit commencer dans mon exemple en cellule A3 sur la feuille2 et qui a cette forme là

3 tartan 300 10 maisons
4 essai 400 11 maisons
5 blanc 500 12 maisons
6 bleu 600 13 maisons
7 rouge 700 14 maisons
8 blanc 800 15 maisons
9 bleu 900 16 maisons
10 rouge 1000 17 maisons
11 blanc 1100 18 maisons
12 bleu 1200 19 maisons
13 rouge 1300 20 maisons
14 vert 1400 21 maisons

sur cette meme feuille en cellule B1
mets la formule suivante
=+RECHERCHEV($A1;$A$3:$D$1000;COLONNE();FAUX)
en cellule C1
=+RECHERCHEV($A1;$A$3:$D$1000;COLONNE();FAUX)
en cellule D1
=+RECHERCHEV($A1;$A$3:$D$1000;COLONNE();FAUX)


la suite dans un instant
 
Re : Affecter une macro a un trait

sur la feuille 1
crée un tableau comme ceci
en cellule A2 à D2


rue designation metre detail


puis crée les macros suivantes


Sub Macro7()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "7"

Call macrocopie
End Sub

Sub macrocopie()
Sheets("Feuil2").Select
Range("A1😀1").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Sub Macro8()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "8"

Call macrocopie
End Sub
 
Re : Affecter une macro a un trait

sur la feuille 1
crée un tableau comme ceci
en cellule A2 à D2


rue designation metre detail


puis crée les macros suivantes


Sub Macro7()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "7"

Call macrocopie
End Sub

Sub macrocopie()
Sheets("Feuil2").Select
Range("A1😀1").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A2").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Sub Macro8()
Sheets("Feuil2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "8"

Call macrocopie
End Sub


crée autant de macro7 que tuveux et affecte a chaque dessin de rue une des macro 7 ou 8 etc...

j'espère que cela t'ira
 
Re : Affecter une macro a un trait

A yes ej viens de calculer...
En fait si j'ai 20 rue je rentre les 20 macro et ej les affecte sa demonte....
Bien jouer partenaire...
Non serieux merci beaucoup...sa claque Kewell
 
Re : Affecter une macro a un trait

oui sa me convient, mais la je viens de mettre en un trait en feuille trois et d'affecter la macro7 a se trait ils me disent.

Sub Macro7()
Sheets("Feuil2").Select
Range("A1").Select ----> il affiche une erreur sur cette ligne
ActiveCell.FormulaR1C1 = "7"
Call macrocopie
End Sub

Sais tu pourquoi???
Kewell
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
194
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…