Double référence - VBA

Le
ericlbt
Bonjour,

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.

Merci par avance pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ericlbt
Le #16775431
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
Le #16775681
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.



ericlbt
Le #16776131
Merci.
Ce que j'ai fait avant de lire la réponse...et ça fonctionne !
Merci et bonne soirée.
Publicité
Poster une réponse
Anonyme