Comment lancer automatiquement cette macro?
Résolu
schpop12
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
schpop12 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
schpop12 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai écrit cette macro. J'ai cherché dans le forum mais je comprend pas comment faire pour qu'elle s'éxécute automatiquement quand B41 change.
Si quelq'un peut me donner une solution précise je débute.
Sub CopieBV()
If Range("B41").Value = "BV1" Then
Range("C12:I12").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
If Range("B41").Value = "BV2" Then
Range("C13:I13").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
If Range("B41").Value = "BV3" Then
Range("C14:I14").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
End Sub
Merci
J'ai écrit cette macro. J'ai cherché dans le forum mais je comprend pas comment faire pour qu'elle s'éxécute automatiquement quand B41 change.
Si quelq'un peut me donner une solution précise je débute.
Sub CopieBV()
If Range("B41").Value = "BV1" Then
Range("C12:I12").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
If Range("B41").Value = "BV2" Then
Range("C13:I13").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
If Range("B41").Value = "BV3" Then
Range("C14:I14").Select
Selection.Copy
Sheets("Assemblage de bassins").Select
Range("C44").Select
ActiveSheet.Paste
End If
End Sub
Merci
A voir également:
- Comment lancer automatiquement cette macro?
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment lancer un programme automatiquement au démarrage de windows - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel pour trier les photos automatiquement - Guide
6 réponses
Salut,
Tu peux utiliser ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [b41] Then CopieBV
End Sub
à mettre sur le code de la feuille où est cette fameuse cellule B41.
Tu peux utiliser ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [b41] Then CopieBV
End Sub
à mettre sur le code de la feuille où est cette fameuse cellule B41.
Salut ca marche mais il y'a un message d'erreur
il marque incompatibilité de type et il me souligne
If Target = [B41] Then
Comment supprimer le message d'erreur?
il marque incompatibilité de type et il me souligne
If Target = [B41] Then
Comment supprimer le message d'erreur?
Salut
essayes plutot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "B21" Then CopieBV
End Sub
essayes plutot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "B21" Then CopieBV
End Sub
Salut
bon je résume j'ouvre VBE, je vais dans explorateur de projet. je double clique sur la feuille sur laquelle je travaille.
Dans la fenétre qui s'ouvre je colle ton code.
Ca marche toujours pas il ce passe plus rien.
Tu voulais écrire B41 et pas B21 ? ca marche avec aucun des 2.
Je comprend rien.
bon je résume j'ouvre VBE, je vais dans explorateur de projet. je double clique sur la feuille sur laquelle je travaille.
Dans la fenétre qui s'ouvre je colle ton code.
Ca marche toujours pas il ce passe plus rien.
Tu voulais écrire B41 et pas B21 ? ca marche avec aucun des 2.
Je comprend rien.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question