lancer pluieurs macro a l'activation userform

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion dede039
  • 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 !

S'inscrire
D

dede039

XLDnaute Occasionnel
bonjours a tous


comment peut ton faire plus court
Code: 
Private Sub UserForm_Activate() 
recordA1
recordA2
recordA3
recordA4
recordA5
recordA6
recordA7
recordA8
recordA9
recordB10
recordB11
recordB12
recordB13
recordB14
recordB15
recordB16
recordB17
recordB18
recordB19
recordB20
recordB16
recordB21
recordB22
recordB23
recordB24
recordB25
recordB26
recordB27
recordB28
recordB29
recordB30
End Sub

je lance 30 macro a l'ouverture de l'userform
il doit bien y avoir plus court je pense mais étand débutant en vba je ne c pas fait mieux (je pense que par une boucle sa doit se faire )
 
Trier par date Trier par votes
Re : lancer pluieurs macro a l'activation userform

Bonjour dede,

peut-être comme ceci:

Code: 
Sub Main()
For x = 1 To 9
Call recordA & x
Next
For j = 10 To 30
Call recordB & j
Next

Insère la sub dans l'userform, et dans Private Userform_Activate
Tu écrit: Call Main ou seulement Main. A tester.


A+ 😎
 
Vote positif 0 Vote négatif
Re : lancer pluieurs macro a l'activation userform

Bonjour,

Lone-wolf à dit:
Bonjour dede,
peut-être comme ceci:
Code: 
Sub Main()
For x = 1 To 9
Call recordA & x
Next
For j = 10 To 30
Call recordB & j
Next
Insère la sub dans l'userform, et dans Private Userform_Activate
Tu écrit: Call Main ou seulement Main. A tester.
A+ 😎
Cliquez pour agrandir...

je ne sais pas si tu as testé... mais à priori ne devrait pas fonctionner en l'état... une autre proposition avec "application.run"

Code: 
Dim x As Byte
For x = 1 To 9
    Application.Run "RecordA" & x
Next x

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : lancer pluieurs macro a l'activation userform

bonjours Pierrot93,Lone-wolf

merci pour les réponse sa marche trop bien
😱 sans vouloir abuse comment faire pour les deux boute de code suivant

Code: 
palette1.BackColor = ThisWorkbook.Colors(1)
palette2.BackColor = ThisWorkbook.Colors(2)
palette3.BackColor = ThisWorkbook.Colors(3)
palette4.BackColor = ThisWorkbook.Colors(4)
palette5.BackColor = ThisWorkbook.Colors(5)
palette6.BackColor = ThisWorkbook.Colors(6)
palette7.BackColor = ThisWorkbook.Colors(7)
palette8.BackColor = ThisWorkbook.Colors(8)
palette9.BackColor = ThisWorkbook.Colors(9)
palette10.BackColor = ThisWorkbook.Colors(10)
palette11.BackColor = ThisWorkbook.Colors(11)
palette12.BackColor = ThisWorkbook.Colors(12)
palette13.BackColor = ThisWorkbook.Colors(13)
palette14.BackColor = ThisWorkbook.Colors(14)
palette15.BackColor = ThisWorkbook.Colors(15)
palette16.BackColor = ThisWorkbook.Colors(16)
palette17.BackColor = ThisWorkbook.Colors(17)
palette18.BackColor = ThisWorkbook.Colors(18)
palette19.BackColor = ThisWorkbook.Colors(19)
palette20.BackColor = ThisWorkbook.Colors(20)
palette21.BackColor = ThisWorkbook.Colors(21)
palette22.BackColor = ThisWorkbook.Colors(22)
palette23.BackColor = ThisWorkbook.Colors(23)
palette24.BackColor = ThisWorkbook.Colors(24)
palette25.BackColor = ThisWorkbook.Colors(25)
palette26.BackColor = ThisWorkbook.Colors(26)
palette27.BackColor = ThisWorkbook.Colors(27)
palette28.BackColor = ThisWorkbook.Colors(28)
palette29.BackColor = ThisWorkbook.Colors(29)
palette30.BackColor = ThisWorkbook.Colors(30)
palette31.BackColor = ThisWorkbook.Colors(31)
palette32.BackColor = ThisWorkbook.Colors(32)
palette33.BackColor = ThisWorkbook.Colors(33)
palette34.BackColor = ThisWorkbook.Colors(34)
palette35.BackColor = ThisWorkbook.Colors(35)
palette36.BackColor = ThisWorkbook.Colors(36)
palette37.BackColor = ThisWorkbook.Colors(37)
palette38.BackColor = ThisWorkbook.Colors(38)
palette39.BackColor = ThisWorkbook.Colors(39)
palette40.BackColor = ThisWorkbook.Colors(40)
palette41.BackColor = ThisWorkbook.Colors(41)
palette42.BackColor = ThisWorkbook.Colors(42)
palette43.BackColor = ThisWorkbook.Colors(43)
palette44.BackColor = ThisWorkbook.Colors(44)
palette45.BackColor = ThisWorkbook.Colors(45)
palette46.BackColor = ThisWorkbook.Colors(46)
palette47.BackColor = ThisWorkbook.Colors(47)
palette48.BackColor = ThisWorkbook.Colors(48)
palette49.BackColor = ThisWorkbook.Colors(49)
palette50.BackColor = ThisWorkbook.Colors(50)
palette51.BackColor = ThisWorkbook.Colors(51)
palette52.BackColor = ThisWorkbook.Colors(52)
palette53.BackColor = ThisWorkbook.Colors(53)
palette54.BackColor = ThisWorkbook.Colors(54)
palette55.BackColor = ThisWorkbook.Colors(55)
palette56.BackColor = ThisWorkbook.Colors(56)

Code: 
validation_1.Visible = False
validation_2.Visible = False
validation_3.Visible = False
validation_4.Visible = False
validation_5.Visible = False
validation_6.Visible = False
validation_7.Visible = False
validation_8.Visible = False
validation_9.Visible = False
validation_10.Visible = False
validation_11.Visible = False
validation_12.Visible = False
validation_13.Visible = False
validation_14.Visible = False
validation_15.Visible = False
validation_16.Visible = False


1000 merci par avance
 
Vote positif 0 Vote négatif
Re : lancer pluieurs macro a l'activation userform

Re,

ceci, à utiliser dans le module de l'usf :
Code: 
Dim i As Byte
For i = 1 To 56
    Me.Controls("Palette" & i).BackColor = ThisWorkbook.Colors(i)
Next i

même principe à utiliser pour les "commandButton"....
 
Vote positif 0 Vote négatif
Re : lancer pluieurs macro a l'activation userform

sa marche pas pour sa
Code: 
CO1.BackColor = ThisWorkbook.Colors(CByte(N1))
CO2.BackColor = ThisWorkbook.Colors(CByte(N2))
CO3.BackColor = ThisWorkbook.Colors(CByte(N3))
CO4.BackColor = ThisWorkbook.Colors(CByte(N4))
CO5.BackColor = ThisWorkbook.Colors(CByte(N5))
CO6.BackColor = ThisWorkbook.Colors(CByte(N6))
CO7.BackColor = ThisWorkbook.Colors(CByte(N7))

j'ai fais sa
Code: 
Dim I As Byte
For I = 1 To 7
    Me.Controls("CO" & I).BackColor = ThisWorkbook.Colors(CByte("N" & I))
Next I


COx et Nx toujours des label
 
Vote positif 0 Vote négatif
Re : lancer pluieurs macro a l'activation userform

Re,

A noter, ceci fonctionne chez moi :
Code: 
Dim i As Byte
i = 1
Me.Controls("Label" & i).BackColor = ThisWorkbook.Colors(CByte(Me.Controls("Label" & i + 1).Caption))

caption du "label2" = 3
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
TooFatBoy
TooFatBoy
patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
Usine à gaz
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
535
spike29
S
F
  • Question Question
Microsoft 365 Récupérer l'userform parent d'un controle
2
Réponses
27
Affichages
1 K
Dranreb
Dranreb
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
784
vgendron
vgendron
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
833
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
961
Simon 1234
S
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
691
Yvan1
Y
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
Phil69970
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
828
AtTheOne
AtTheOne
Lu76Fer
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
852
Lu76Fer
Lu76Fer
F
  • Question Question
XL 2010 Appeler une macro dans une autre
Réponses
5
Affichages
719
Dranreb
Dranreb
patricktoulon
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
2 K
patricktoulon
patricktoulon
B
  • Question Question
XL 2016 Macro recherche dans userform
Réponses
1
Affichages
536
Dranreb
Dranreb
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
716
Phil69970
Phil69970
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
735
tactic6
tactic6
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
497
eric72
E
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
884
Nadou69
Nadou69
Retour