Microsoft 365 deux macros succesives et un bouton

MICHAEL

XLDnaute Occasionnel
Bonjour,
je souhaiterai executer à l'aide d'un sel bouton et dans cet ordre les marcros suivantes: macro4 et macroAlpha.

macro 4
Sub Macro4()
'
' Macro4 Macro
'

ActiveSheet.Unprotect
Range("l6").Select
Range("d1").Select

End Sub

puis macro Alpha
Sub Alpha()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("k1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Application.CutCopyMode = False
ActiveSheet.Unprotect
Range("o6:eek:125").Select
Selection.Copy
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-117
Range("D6:D125").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-113
Range("D6:k125").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Membres").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Membres").Sort.SortFields.Add2 Key:=Range( _
"D6:D125"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Membres").Sort
.SetRange Range("D6:k125")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("k1:k118").Select
Range("k118").Activate
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range("d1,k1,f5,g5,k5,l5").Select

Selection.ClearContents
Range("A1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
ActiveSheet.Protect
End Sub

Merci de votre aide
 

Phil69970

XLDnaute Barbatruc
Bonjour @MICHAEL

Je te propose ce fichier

Pour info:
Les noms, téléphone et email qui sont dans le fichier sont fictifs donc pas d'affolement on reste calme !!!! 🤣 🤣 🤣
Nom généré ==> https://www.generateur-de-pseudo.fr/
N° de tel généré ==> ALEA.ENTRE.BORNES(123456789;9987654321)


@MICHAEL
J'ai tout refait malgré tes informations inexistantes o_O
Et ta non participation active !!! :mad:

Explique en clair ce que tu veux que chaque macro fassent ??
je ne comprend pas ta question..... a part que cela fonctionne

Et pour les autres macros elle font quoi ?

1) Pour rentrer pour la 1ere fois tes adhérents voir la feuille "Listes" et les explications associées

2) Ensuite tout se gère avec ce bouton

1716457252677.png


3) Si tu cliques sur "Suppression" un MDP de contrôle est demandé

1716457675092.png


4) Si tu cliques sur "RAZ cotisations" un MDP de contrôle est demandé

1716457703723.png


5) Si tu importes la liste des membres un MDP de contrôle est demandé

1716457729776.png


Chaque mot de passe est différent pour te faire réfléchir 3 secondes de plus !!! 🤣

6) Les années sont sélectionnables par menu déroulant jusqu'en 2050 :rolleyes:

1716457916181.png


7) La recherche se fait par menu déroulant

1716458102190.png


8) L'ajout ou la suppression de cotisation se fait par simple clic dans la cellule

1716458343048.png


1716458292175.png


Evidement j'ai testé l'ensemble !! ;)

Merci de ton retour

PS: Si j’ai mis tout ces explications c'est pour que tu les lises bien sur.
 

Pièces jointes

  • Compta club rando par case a cocher V1.xlsm
    74 KB · Affichages: 1

Discussions similaires

Réponses
3
Affichages
685

Statistiques des forums

Discussions
313 283
Messages
2 096 810
Membres
106 751
dernier inscrit
Souleymani