Une Macro pour plusieurs boutons

S

stefan373

XLDnaute Occasionnel

• 14 Mars 2011

• #2

Bonsoir Goose et le forum.

Voilà c' est fait, il suffit de faire clic droit sur le Bouton, puis vous affectez une macro.

A +

 

Pièces jointes

• DavisCupV1.xls

  43 KB · Affichages: 72
• DavisCupV1.xls

  43 KB · Affichages: 71
• DavisCupV1.xls

  43 KB · Affichages: 69

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 15 Mars 2011

• #3

Re : Une Macro pour plusieurs boutons

Bjr et Merci stefan,
la question n'est pas comment affecter une macro, mais plutôt comment adapter la macro en changant certains paramètres du code, pour quelle fonctionne dans les 3 cas de figure !!
as tu une idée ??

 

Dernière édition: 15 Mars 2011

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mars 2011

• #4

Re : Une Macro pour plusieurs boutons

Bonjour à tous,

ce que j'ai compris:
la macro ajoute une ligne et fait le tri de la zone de données qui se trouve au dessus du bouton
Pourquoi ne pas l'avoir expliqué clairement dès le premier post

le problème est donc de récupérer la position du bouton sur la feuille

plutôt que se casser le c.., pour trouver cette position ,
je verrais plutôt bien une évènementielle RightClick ou Dblclick sur les cellules qui contiennent actuellement les boutons (les boutons seront supprimés)
et utiliser la valeur de Target.Row pour se situer dans la feuille

je peux le faire mais pas avant demain-matin

à+
Philippe

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 15 Mars 2011

• #5

Re : Une Macro pour plusieurs boutons

Salut Jean-Marcel,
la macro fonctionne avec le pays "Belarus" en E57, mais pas pour les autres pays (ce que j'aimerai adapter)
je veux éviter de faire 1 macro par pays (usine à gaz), car j'ai dans l'absolu 30 pays à gérer !!
d'où ma question: peut on adapter le code pour trouver les valeurs "Belarus" ou "Belgique" ou "Brésil" en colonne B ??
@+

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 15 Mars 2011

• #6

Re : Une Macro pour plusieurs boutons

Bjr phlaurent55,

étant novice de le VBA je dirai que ta solution me parait pas mal...j'attends avec impatience ton exemple
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Mars 2011

• #7

Re : Une Macro pour plusieurs boutons

Re,
en lisant ceci:

Goose à dit:

Salut Jean-Marcel,
la macro fonctionne avec le pays "Belarus" en E57, mais pas pour les autres pays (ce que j'aimerai adapter)
je veux éviter de faire 1 macro par pays (usine à gaz), car j'ai dans l'absolu 30 pays à gérer !!
d'où ma question: peut on adapter le code pour trouver les valeurs "Belarus" ou "Belgique" ou "Brésil" en colonne B ??
@+

Cliquez pour agrandir...

je me dis que ça s'embrouille de plus en plus et qu'il est nécessaire de préciser davantage à quoi sert cette macro

à+
Philippe

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 15 Mars 2011

• #8

Re : Une Macro pour plusieurs boutons

pour simplifier, je voudrais que le code s'adapte a n'importe quel pays !!
mais pour cela, il faut trouver un repère cible pour chaque tableau ??

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2011

• #9

Re : Une Macro pour plusieurs boutons

Bonjour le fil,

On peut conserver les boutons sans problème.

Pour chaque bouton, clic droit => Modifier le texte => entrer le nom du pays.

Ensuite mettez en début de macro et testez :

Code:

Sub Insertion()
Dim pays$, deb As Range, fin As Range
pays = ActiveSheet.DrawingObjects(Application.Caller).Text
Set deb = [B:B].Find(pays, LookIn:=xlValues): MsgBox deb.Row 'pour tester
Set fin = [B:B].Find(pays, After:=deb): MsgBox fin.Row 'pour tester
End 'pour tester
'reste de la macro à revoir en fonction de deb et fin...
End Sub

En ayant le début et la fin de chaque tableau, on fait ce que l'on veut ensuite 🙂

A+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Mars 2011

• #10

Re : Une Macro pour plusieurs boutons

Bonjour

Pas compris du tout la macro
Recherche "Belarus" en colonne I ???????

Sinon pour trouver la ligne du bouton

Code:

Lg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

Bonne journée

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 16 Mars 2011

• #11

Re : Une Macro pour plusieurs boutons

Bjr à tous,
merci job75 pour ce bout de code, cependant je ne vois pas comment l'inserer dans ma macro !!
pourrais tu joindre un fichier exemple ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mars 2011

• #12

Re : Une Macro pour plusieurs boutons

Bonjour Goose, le fil, le forum,

Je fais entière confiance à ma boule de cristal, et voici ce qu'elle me dit :

La macro de Goose n'a ni queue ni tête

Cliquez pour agrandir...

C'est ce que vous ont déjà dit Jean-Marcel, Philippe et Banzai64 avec plus de doigté 😎

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mars 2011

• #13

Re : Une Macro pour plusieurs boutons

Re,

Elle est vache ma boule de cristal, je trouve.

Alors moi j'ai écrit, en suivant l'idée de base de Goose :

Code:

Sub Insertion()
Dim derlig As Long
derlig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Cells(derlig - 1, "B").Resize(, 9).Insert xlDown
Cells(derlig - 2, "B").Resize(, 9).AutoFill Cells(derlig - 2, "B").Resize(2, 9)
End Sub

Et roulez 😎

PS : pour calculer derlig j'ai utilisé le code de Banzai64, ça évite de modifier le texte des boutons...

A+

 

Pièces jointes

• DavisCup(1).xls

  42.5 KB · Affichages: 73

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 16 Mars 2011

• #14

Re : Une Macro pour plusieurs boutons

Edit:
Nickel Job75 c'est exactement ce que je recherche
merci pour tous !!

@+

 

Dernière édition: 16 Mars 2011

Vote positif 0 Vote négatif