Comment lancer automatiquement cette macro?

Résolu/Fermé

schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 17 mars 2008 à 09:37
schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 17 mars 2008 à 11:17

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

A voir également:

Comment lancer automatiquement cette macro?
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Automatiquement - Guide

6 réponses

Réponse 1 / 6

Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
17 mars 2008 à 09:43

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.

Réponse 2 / 6

schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 6
17 mars 2008 à 09:48

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?

Réponse 3 / 6

amigo
17 mars 2008 à 10:28

Salut

essayes plutot

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "B21" Then CopieBV
End Sub

Réponse 4 / 6

schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 6
17 mars 2008 à 11:02

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.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

amigo
17 mars 2008 à 11:14

en effet c'est pas comme ça

voila comment l'ecrire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$41" Then CopieBV
End Sub

A+.

Réponse 6 / 6

schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 6
17 mars 2008 à 11:17

Excellent ca marche Nickel

Merci beaucoup

Discussions similaires

exo pix

lancer un script sh

Transformer un chiffre en lettres dans excel sans macro

Problème replay "MYTF1" visionage vidéos

impossible de lancer l'application ce-30005-8 ps4

Discussions similaires

Newsletters