Automatiser une macro

Résolu/Fermé

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - Modifié le 26 août 2020 à 18:53
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 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

A voir également:

Automatiser une macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Macro recorder - Télécharger - Confidentialité
Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? - Forum Bureautique

3 réponses

Réponse 1 / 3

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

Bonjour,

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

Réponse 2 / 3

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 461
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

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

voir ceci:

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 139
27 août 2020 à 11:42

Bonjour à tous,

Tu as 2 Macro1 ! Supprime déjà celle qui se trouve dans la Feuil1.

Cordialement

Réponse 3 / 3

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 461
27 août 2020 à 12:13

Merci à tous les 2
Cela fonctionne comme attendu
Cordialement

Discussions similaires

document html

Encadrement d'un Titre intégré au cadre

faire une boucle sans VBA

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro