Automatiser une macro
Résolu
JCB40
Messages postés
3058
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
3 réponses
-
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
-
Bonjour
Je te joins le fichier je n'arrive pas a le mettre à jour
https://www.cjoint.com/c/JHBh1RJNH6f
Crdlt
-
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 -
-
-
Merci à tous les 2
Cela fonctionne comme attendu
Cordialement
