Une Macro pour plusieurs boutons

[Goose]

Bsr à tous,
j'aimerai adapter une macro pour plusieurs boutons !!
ci-joint le fichier explicatif !!
merci d'avance
@+

 

[stefan373]

Bonsoir Goose et le forum.

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

A +

 

[Goose]

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 ??

 

[phlaurent55]

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

 

[Goose]

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 ??
@+

 

[Goose]

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
@+

 

[phlaurent55]

Re : Une Macro pour plusieurs boutons

Re,
en lisant ceci:

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 ??
@+

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

 

[Goose]

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 ??

 

[job75]

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 :

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+

 

[Banzai64]

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

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

Bonne journée

 

[Goose]

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 ?

 

[job75]

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

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

A+

 

[job75]

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 :

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+

 

[Goose]

Re : Une Macro pour plusieurs boutons

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

@+