Comment lancer automatiquement cette macro?
Résolu
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
Configuration: Windows 2000 Internet Explorer 6.0
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. -
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? -
Salut
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. -
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+. -
Excellent ca marche Nickel
Merci beaucoup
