Automatiser une macro
Résolu
JCB40
Messages postés
3070
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3070 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3070 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
A voir également:
- Automatiser une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro express - Télécharger - Divers Utilitaires
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
