Les deux macros suivantes fonctionnent parfaitement :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each g In Worksheets("Sheet1").Range("F9", "F9")
If Target.Address = g.Address And g <> "" Then
g.Offset(0, 1) = Range("M8")
End If
Next
For Each i In Worksheets("Sheet1").Range("F10", "F10")
If Target.Address = i.Address And i <> "" Then
i.Offset(0, 1) = Range("H2")
End If
Aujourd'hui je voudrais pouvoir entrer une seule donnée (en F9) puis obtenir
deux références (M8 et H2).
En effet le chiffre entré dans F9 et F10 est le même et je voudrais pouvoir
gagner du temps et surtout éviter les erreurs au maximum.
J'ai essayé en remplaçant F10 par F9 dans la macro, ou encore en fusionnant
F9 et F10 mais aucune de ces solutions fonctionne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ericlbt
Merci beaucoup Stéphane. Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules. Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then Target.Offset(0, 1) = Range("M8") Target.Offset(1, 1) = Range("H2") End If Next If Target.Address = "$F$11" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H4") End If Next If Target.Address = "$F$12" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H5") End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur. Encore merci.
Merci beaucoup Stéphane.
Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules.
Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque
j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("M8")
Target.Offset(1, 1) = Range("H2")
End If
Next
If Target.Address = "$F$11" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("H4")
End If
Next
If Target.Address = "$F$12" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("H5")
End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur.
Encore merci.
Merci beaucoup Stéphane. Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules. Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then Target.Offset(0, 1) = Range("M8") Target.Offset(1, 1) = Range("H2") End If Next If Target.Address = "$F$11" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H4") End If Next If Target.Address = "$F$12" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H5") End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur. Encore merci.
Papyjac
Bonjour Eric
Sous VBE, menu exécuter ; réinitialier
et recommence pour voir -- Papyjac
"ericlbt" a écrit :
Merci beaucoup Stéphane. Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules. Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then Target.Offset(0, 1) = Range("M8") Target.Offset(1, 1) = Range("H2") End If Next If Target.Address = "$F$11" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H4") End If Next If Target.Address = "$F$12" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H5") End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur. Encore merci.
Bonjour Eric
Sous VBE, menu exécuter ; réinitialier
et recommence pour voir
--
Papyjac
"ericlbt" a écrit :
Merci beaucoup Stéphane.
Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules.
Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque
j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("M8")
Target.Offset(1, 1) = Range("H2")
End If
Next
If Target.Address = "$F$11" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("H4")
End If
Next
If Target.Address = "$F$12" And Target.Value <> "" Then
Target.Offset(0, 1) = Range("H5")
End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur.
Encore merci.
Merci beaucoup Stéphane. Cela fonctionne mais je n'arrive pas à ajouter d'autres cellules. Mais j'ai un message d'erreur (Can't execute code in break mode) lorsque j'essaie d'ajouter d'autres cellules.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" And Target.Value <> "" Then Target.Offset(0, 1) = Range("M8") Target.Offset(1, 1) = Range("H2") End If Next If Target.Address = "$F$11" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H4") End If Next If Target.Address = "$F$12" And Target.Value <> "" Then Target.Offset(0, 1) = Range("H5") End Sub
Ne fonctionne pas et je n'arrive pas à trouver mon erreur. Encore merci.
ericlbt
Merci. Ce que j'ai fait avant de lire la réponse...et ça fonctionne ! Merci et bonne soirée.
Merci.
Ce que j'ai fait avant de lire la réponse...et ça fonctionne !
Merci et bonne soirée.