Bonjour Milaerdo,
Si j'ai bien compris ton problème, voici une réponse qui devrait convenir.
Je pense que tu n'as pas besoin de ComboBox pour atteindre le résultat souhaité.
Il suffit de programmer l'évènement "Worksheet_Change" de la Feuille "UN" de la façon suivante :
=====================================================
Private Sub Worksheet_Change(ByVal Target As Range)
' Cette procédure est activée chaque fois que les contenus de cellules de la feuille ("UN") sont modifiés
' Si C2 fait partie des cellules modifiées dans feuille "UN"
If Not Intersect(Target, Range("C2")) Is Nothing Then
' Alors mise à jour du contenu de G4 feuille "UN" à partir de C2
Sheets("UN").Range("G4").Value = Sheets("UN").Range("C2").Value
' Alors mise à jour du contenu de D3 feuille "DEUX" à partir de C2
Sheets("DEUX").Range("D3").Value = Sheets("UN").Range("C2").Value
End If
End Sub
=====================================================
On peut aussi écrire de façon plus simple :
=====================================================
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
Range("G4") = Range("C2")
Sheets("DEUX").Range("D3") = Range("C2").Value
End If
End Sub
=====================================================
Si je n'ai pas compris le problème, ou si magré tout tu veux passer à tout prix par une ComboBox, n'hésite pas à me recontacter.
Cordialement.
Omicron.
