Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

automatiser declanchement d'une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eduraiss
  • 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
E

eduraiss

XLDnaute Accro
Bonjour au forum

J'ai une macro que voici
Sub test_eric()
Dim CelluleType As String
CelluleType = Range("b3")

Application.ScreenUpdating = False

If CelluleType = "A" Then
Range("B56:E83").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select


End If

If CelluleType = "B" Then
Range("B84:E125").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If
If CelluleType = "C" Then
Range("B126:e167").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If
If CelluleType = "D" Then
Range("B168:E209").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If

End Sub

Comment faire pour l'automatiser, je m'explique

en B1 j'ai une liste déroulante (numero de semaine) avec une formule en b3 je vais chercher une lettre (A,B,C,D)coresponadant a des groupes ensuite je clique sur le bouton macro pour effectuer la copie


Si possible lorsque j'utilise la liste deroulante en validant par enter faire directement la copie

Merci de votre aide A+
 
Trier par date Trier par votes
Re : automatiser declanchement d'une macro

Bonsoir Eduraiss

si j'ai bien compris, peut être avec une macro évènementielle placée dans le moule de la feuille en question :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
test_eric
End If
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : automatiser declanchement d'une macro

re:

si c'est une combobox, tu lie ta combobox à la macro

si c'est une liste de validation
dans le code worksheet de la bonne feuille

sub worksheet_change(byval target as range) ---> interuption sur saisie

if target.address = ""$B$1" then call tamacro

end sub
 
Vote positif 0 Vote négatif
Re : automatiser declanchement d'une macro

Bonjour à tous
J'ai aussi un souci avec l'automatisation d'une macro. Mon problème est le suivant: j'ai une macro qui doit executer une feuille d'excel resultante elle d'une requete. comment faire pour que ma macro s'execute sur la nouvelle feuille? Merci d'avance
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
587
dysorthographie
P
  • Question Question
Microsoft 365 Macro qui plante exel
Réponses
1
Affichages
575
mapomme
  • Question Question
Autres Simplifier une macro
Réponses
1
Affichages
478
fanch55
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
691
marie3107
M
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
2 K
firecarl
F
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
935
crocrocro
C
C
  • Question Question
Microsoft 365 Arret macro si condition est fausse
Réponses
4
Affichages
794
Chounoé
C
V
  • Question Question
Microsoft 365 accélérer une boucle
Réponses
12
Affichages
923
vg026u
V
  • Résolu(e)
XL 2019 Réussir à exécuter une macro VBA sur différentes feuilles à la fois
2
Réponses
19
Affichages
2 K
Yazeubi
T
  • Résolu(e)
Microsoft 365 Répétition macro sur nombre de lignes X
2
Réponses
28
Affichages
4 K
Phil69970
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
  • Question Question
XL 2013 Fonction vba copie coller
Réponses
1
Affichages
1 K
job75
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
M
  • Question Question
XL 2021 Macro protege cellule avec Intersect
Réponses
9
Affichages
1 K
Michel_ja
M
M
  • Question Question
XL 2010 Insérer image dans une zone de texte
2
Réponses
15
Affichages
2 K
patricktoulon
  • Question Question
XL 2019 Difficulté avec FileDialog
Réponses
11
Affichages
850
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…