Microsoft 365 deux macros succesives et un bouton

[MICHAEL]

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("o6125").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("D6125").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( _
"D6125"), 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]

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
Et ta non participation active !!!

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 ?

non!

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

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

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

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

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

7) La recherche se fait par menu déroulant

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

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.

 

[Phil69970]

@MICHAEL

C’est bien la peine que Ducros se décarcasse si tu ne viens pas voir la solution !!!

Ducros regardera mieux la prochaine fois chez qui il se décarcasse ....