Automatiser une macro
Résolu
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 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
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é
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
3 réponses
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
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
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