Automatiser une macro
Résolu/Fermé
JCB40
Messages postés
2997
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
6 mai 2025
-
Modifié le 26 août 2020 à 18:53
JCB40 Messages postés 2997 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 6 mai 2025 - 27 août 2020 à 12:13
JCB40 Messages postés 2997 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 6 mai 2025 - 27 août 2020 à 12:13
Bonsoir
Ce que je cherche à faire en code Vba :
Si A1 Feuil1=B1Feuil2 alors déclencher une macro qui me fait un copier coller.
Ma macro fonctionne bien manuellement
Ce que je cherche à faire c'est de l'automatiser.
Si vous avez une idée...
Cordialement
Ce que je cherche à faire en code Vba :
Si A1 Feuil1=B1Feuil2 alors déclencher une macro qui me fait un copier coller.
Ma macro fonctionne bien manuellement
Ce que je cherche à faire c'est de l'automatiser.
Si vous avez une idée...
Cordialement
A voir également:
- Automatiser une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Actiona macro - Télécharger - Divers Utilitaires
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
26 août 2020 à 18:59
26 août 2020 à 18:59
Bonjour,
a mettre dans le module de la feuille1:
a mettre dans le module de la feuille1:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then If Target.Value = Sheets("Feuil2").Range("B1") Then test End If End If End Sub Sub test() MsgBox "coucou" End Sub
JCB40
Messages postés
2997
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
6 mai 2025
463
27 août 2020 à 09:54
27 août 2020 à 09:54
Bonjour
Je te joins le fichier je n'arrive pas a le mettre à jour
https://www.cjoint.com/c/JHBh1RJNH6f
Crdlt
Je te joins le fichier je n'arrive pas a le mettre à jour
https://www.cjoint.com/c/JHBh1RJNH6f
Crdlt
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
27 août 2020 à 10:59
27 août 2020 à 10:59
voir ceci:
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
ce qui donne:
Voilà c'est tout simple!
@+ Le Pivert
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
ce qui donne:
Sub Macro1() Worksheets("Feuil2").Range("A2:A6").Copy _ Destination:=Worksheets("Feuil1").Range("G4") End Sub
Voilà c'est tout simple!
@+ Le Pivert
ALS35
Messages postés
1033
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
9 janvier 2024
144
27 août 2020 à 11:42
27 août 2020 à 11:42
Bonjour à tous,
Tu as 2 Macro1 ! Supprime déjà celle qui se trouve dans la Feuil1.
Cordialement
Tu as 2 Macro1 ! Supprime déjà celle qui se trouve dans la Feuil1.
Cordialement
JCB40
Messages postés
2997
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
6 mai 2025
463
27 août 2020 à 12:13
27 août 2020 à 12:13
Merci à tous les 2
Cela fonctionne comme attendu
Cordialement
Cela fonctionne comme attendu
Cordialement